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