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

transposeGlobal kann ganzen Song transponieren

Browse Source
This commit is contained in:
tux
2023-08-07 16:24:43 +02:00
parent 8e6eff1cad
commit 19b5fe2d94
5 changed files with 23 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
verses_with_chords.ly
View File

@ -119,7 +119,7 @@
(regexp-substitute/global #f "\\(( *)([^,()]*)( *),([^)]*)\\)"
(regexp-substitute/global #f "(([^ \n]*\\([^()]*\\)[^ \n]*)+)" verse
'pre " \\concat { " 1 " } " 'post)
'pre "\\textup \\line { \"" 1 "\" " 2 " \"" 3 "\" } \\score { " transp " \\chords { s4 " 4 " } \\layout { \\verseChordLayout } }" 'post))
'pre "\\textup \\line { \"" 1 "\" " 2 " \"" 3 "\" } \\score { \\transposable " transp " \\chords { s4 " 4 " } \\layout { \\verseChordLayout } }" 'post))
))))
% Kompletter Vers aus dem Akkorde entfernt werden