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

Compare commits

base: boernel:9de2869750ca5cc9a1072b5f9e1630a6bc6778e6
Branches Tags
boernel:main boernel:chord-spacing-experimental boernel:secondVoiceStyle_for_rests boernel:yaml_parser boernel:include_refactoring boernel:chordExceptions boernel:set-spacing-for-rests-in-chordlyrics boernel:tocSubtitleText-Variable
..
compare: boernel:260664462d0adbbcc5eeffb8d9fac3d6393d1019
Branches Tags
boernel:chord-spacing-experimental boernel:main boernel:secondVoiceStyle_for_rests boernel:yaml_parser boernel:include_refactoring boernel:chordExceptions boernel:set-spacing-for-rests-in-chordlyrics boernel:tocSubtitleText-Variable

1 Commits
9de2869750 ... 260664462d

Author SHA1 Message Date
tux
260664462d fix custom verse breaks for windows 2023-10-30 23:24:18 +01:00
1 changed files with 2 additions and 2 deletions
Expand all files Collapse all files

4
verses_with_chords.ly
View File

@@ -5,7 +5,7 @@
#{ \markup { \column {
$(let ((verse-markup-string (
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\" }" )))
(ly:parser-include-string verse-markup-string))
}}#}
@@ -108,7 +108,7 @@
text
(let make-custom-linebreaks
((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)
newtext
(make-custom-linebreaks