boernel/lilypond-common-includes
14
0
Fork 0
Code Issues 22 Pull Requests 1 Packages Projects Releases Wiki Activity

fix custom verse breaks for windows

Browse Source
This commit is contained in:
tux
2023-10-30 23:20:49 +01:00
parent 9de2869750
commit 260664462d
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
verses_with_chords.ly
View File

@@ -5,7 +5,7 @@
#{ \markup { \column { #{ \markup { \column {
$(let ((verse-markup-string ( $(let ((verse-markup-string (
string-append "\\line { " string-append "\\line { "
(ly:regex-replace (ly:make-regex "\n") text " } \\line { ") (ly:regex-replace (ly:make-regex "\r?\n") text " } \\line { ")
" \\size-box-to-box ##f ##t \"\" \"Agj\" }" ))) " \\size-box-to-box ##f ##t \"\" \"Agj\" }" )))
(ly:parser-include-string verse-markup-string)) (ly:parser-include-string verse-markup-string))
}}#} }}#}
@@ -108,7 +108,7 @@
text text
(let make-custom-linebreaks (let make-custom-linebreaks
((break-words custom-verse-breaks) ((break-words custom-verse-breaks)
(newtext (ly:regex-replace (ly:make-regex "\n") text " "))) (newtext (ly:regex-replace (ly:make-regex "\r?\n") text " ")))
(if (null? break-words) (if (null? break-words)
newtext newtext
(make-custom-linebreaks (make-custom-linebreaks