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)))) (rest (substring word 1 (string-length word))))
#{ #{
\lyricmode { \lyricmode {
\tag #'up { \markup { #(string-append (string-capitalize first-char) rest) } } \markup {
\tag #'down { \markup { #(string-append (string-downcase first-char) rest) } } \tag #'up #(string-append (string-capitalize first-char) rest)
\tag #'down #(string-append (string-downcase first-char) rest)
}
} }
#})) #}))