J.S. Bach: Die Kunst der Fuge (BWV 1080) - list of subjects: color Le…

…dgerLineSpanner

Signed-off-by: Davide Madrisan <[email protected]>

src/johann-sebastian-bach/die-kunst-der-fuge-BWV1080/list-of-subjects.ly

@@ -34,9 +34,14 @@ CommonSubjectIV = {
 }
 CommonSubjectV = {
   \commonSettings
-  | \red d'2^\markup \abs-fontsize #8 \italic  { "14-notes version of the main subject" }
+  | \red d'2^\markup \abs-fontsize #8 \italic  {
+      "14-notes version of the main subject"
+      "(the notes in red correspond to the short version)"
+    }
     \once\override Stem.length = #6 \red a'4. g8
-  | \red f4. e8 \red d2 | \red cis \red d4. \red e8 | \red \red f2~ \red f8 \red g \red f \red e
+  | \red f4. e8 \red d2
+  | \red cis \red d4. \red e8
+  | \red \red f2~ \red f8 \red g \red f \red e
   | \red d4 s
 }
 

src/johann-sebastian-bach/die-kunst-der-fuge-BWV1080/macros.ly

@@ -2,13 +2,23 @@ greyTextColor = #(x11-color "dimgray")
 lightGrey = #(x11-color 'grey65)
 middleGrey = #(x11-color 'grey45)
 
-red = {
-  \once\override Accidental.color = #(x11-color 'red)
-  \once\override NoteHead.color = #(x11-color 'red)
-  %\once\override Stem.color = #(x11-color 'red)
-  %\once\override Flag.color = #(x11-color 'black)
-  %\once\override Staff.LedgerLineSpanner.color = #(x11-color 'red)
-}
+red =
+#(define-music-function (music)
+   (ly:music?)
+   "Change the color of the given note."
+   #{
+     \stopStaff
+     \startStaff
+     \override Accidental.color = #(x11-color 'red)
+     \override NoteHead.color = #(x11-color 'red)
+     \override Staff.LedgerLineSpanner.color = #(x11-color 'red)
+     #music
+     \revert Staff.LedgerLineSpanner.color
+     \revert NoteHead.color
+     \revert Accidental.color
+     \stopStaff
+     \startStaff
+   #})
 
 staffLower = { \change Staff = "lower" }
 staffUpper = { \change Staff = "upper" }