fix updown syllable hyphens
This commit is contained in:
@@ -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)
|
||||||
|
}
|
||||||
}
|
}
|
||||||
#}))
|
#}))
|
||||||
|
|
||||||
|
Reference in New Issue
Block a user