fix updown syllable hyphens

This commit is contained in:
2025-08-13 21:25:39 +02:00
parent 5ef4ee78ae
commit f824b23311

View File

@@ -198,8 +198,10 @@ updown =
(rest (substring word 1 (string-length word))))
#{
\lyricmode {
\tag #'up { \markup { #(string-append (string-capitalize first-char) rest) } }
\tag #'down { \markup { #(string-append (string-downcase first-char) rest) } }
\markup {
\tag #'up #(string-append (string-capitalize first-char) rest)
\tag #'down #(string-append (string-downcase first-char) rest)
}
}
#}))