tagged case in lyricmode

2024-12-04 20:37:44 +01:00 · 2024-12-04 20:37:44 +01:00 · a558a0b02f
commit a558a0b02f
parent c4f3a3c196
1 changed files with 10 additions and 1 deletions
--- a/basic_format_and_style_settings.ly
+++ b/basic_format_and_style_settings.ly
@ -174,4 +174,13 @@ multiVerseSkips =

 alt =
 #(define-music-function (parser location a b) (ly:music? ly:music?)
-  #{ \tag #'firstVerse { #a } \tag #'multiVerse { #b } #})
+  #{ \tag #'firstVerse { #a } \tag #'multiVerse { #b } #})
+
+updown =
+#(define-music-function (parser location word) (string?)
+#{
+  \lyricmode {
+    \tag #'up { \markup { #(string-capitalize word) } }
+    \tag #'down { \markup { #(string-downcase word) } }
+  }
+#})