1 Commits

Author SHA1 Message Date
f824b23311 fix updown syllable hyphens 2025-08-13 21:25:39 +02:00

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)
}
} }
#})) #}))