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

repair transposition for books

Browse Source
This commit is contained in:
tux
2024-05-25 13:14:14 +02:00
parent bce9ffe763
commit 0199813a81
4 changed files with 29 additions and 20 deletions
Download Patch File Download Diff File Expand all files Collapse all files

27
verses_with_chords.ly
View File

@ -52,11 +52,6 @@
((center) (make-size-box-to-box-markup use-x use-y abox bbox))
((left) (make-size-box-to-box-left-aligned-markup use-x use-y abox bbox)))))
% Akkorde in Strophen transponieren
#(define-markup-list-command (transpose layout props from to markuplist)
(markup? markup? markup-list?)
(interpret-markup-list layout (prepend-alist-chain 'transposition (cons from to) props) markuplist))
#(define-markup-command (chord-alignment-style-dependent layout props chord-with-text) (markup?)
(interpret-markup layout props
(case songTextChordAlignment
@ -129,19 +124,22 @@
% Kompletten Vers mit Akkorden
#(define-markup-command (chordverse layout props stanza verse) (string-or-music? string?)
#:properties ((intraverse-vspace 0)(custom-verse-breaks '()))
#:properties (
(intraverse-vspace 0)
(custom-verse-breaks '())
(transposition (cons #f #f))
(verselayout generalLayout)
)
"Vers mit Akkorden"
(let* ((fromto (chain-assoc-get 'transposition props #f))
(transp (if fromto
(string-append "\\transpose " (car fromto) " " (cdr fromto))
""))
(verselayout (chain-assoc-get 'verselayout props generalLayout)))
(let ((transp (if (car transposition)
(string-append "\\transpose " (note-name->string (car transposition)) " " (note-name->string (cdr transposition)))
"")))
(interpret-markup layout props
(markup #:override `(baseline-skip . ,(+ intraverse-vspace songTextLineHeigth)) #:anchor-x-between #:stanza stanza
(make-wrap-newline-markup
(ly:regex-replace (ly:make-regex "\\(( *)([^,()]*)( *),([^)]*)\\)")
(ly:regex-replace (ly:make-regex "(([^ \n]*\\([^()]*,[^()]+\\)[^ \n(]*)+)") (handle-custom-newlines custom-verse-breaks verse) " \\concat { " 1 " } ")
"\\textup \\line { \"" 1 "\" " 2 " \"" 3 "\" } \\score { \\transposable " transp " \\chords { s4 " 4 " } \\layout { \\verselayout } }")
"\\textup \\line { \"" 1 "\" " 2 " \"" 3 "\" } \\score { " transp " \\chords { s4 " 4 " } \\layout { \\verselayout } }")
)
))))
@ -226,7 +224,8 @@
(verse-reference-voice #{#})
(verse-break-voice #{#})
(verse-line-height songTextLineHeigth)
(intraverse-vspace 0))
(intraverse-vspace 0)
(transposition (cons #f #f)))
"Vers mit Akkorden"
(interpret-markup layout props
#{
@ -234,7 +233,7 @@
\override #`(baseline-skip . ,intraverse-vspace)
\pad-left #-5
\score-equal-height #verse-line-height \score-lines {
\transposable
\transposable #transposition
<<
\new Devnull { #verse-break-voice }
#(music-clone verse-chords)