boernel/lilypond-common-includes
10
0
Fork 0
Code Issues 12 Pull Requests Packages Projects Releases Wiki Activity

fix default reference voice and chords for songbook output

Browse Source
This commit is contained in:
tux 2024-05-22 22:38:02 +02:00
parent 5884ab9d2c
commit 68608375dc
3 changed files with 17 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
all_base_includes.ly
View File

@ -17,4 +17,8 @@
LAYOUT = \layout { \generalLayout } LAYOUT = \layout { \generalLayout }
HEADER = {} HEADER = {}
MUSIC = {} MUSIC = {}
TEXT = \markuplist {""} TEXT = \markuplist {""}
verseChords = {}
firstVoice = {}
global = {}

7
standalone_output.ly
View File

@ -10,7 +10,12 @@ verselayout = \layout {
\override ChordName.font-size = \songTextChordFontSize \override ChordName.font-size = \songTextChordFontSize
} }
} }
TEXT = \markuplist { \override #`(verselayout . verselayout) \TEXT } TEXT = \markuplist {
\override #`(verselayout . verselayout)
\override #`(verse-chords . ,#{ \chords { \verseChords } #})
\override #`(verse-reference-voice . ,#{ \global \firstVoice #})
\TEXT
}
% nur Output wenn noStandaloneOutput auf false steht % nur Output wenn noStandaloneOutput auf false steht
output = #(if (not noStandaloneOutput) output = #(if (not noStandaloneOutput)

12
verses_with_chords.ly
View File

@ -222,9 +222,9 @@
(interpret-markup-list layout props lines)))) (interpret-markup-list layout props lines))))
#(define-markup-command (chordlyrics layout props lyrics) (ly:music?) #(define-markup-command (chordlyrics layout props lyrics) (ly:music?)
#:properties ((verse-chords #f) #:properties ((verse-chords #{#})
(verse-reference-voice #f) (verse-reference-voice #{#})
(verse-break-voice #f) (verse-break-voice #{#})
(verse-line-height songTextLineHeigth) (verse-line-height songTextLineHeigth)
(intraverse-vspace 0)) (intraverse-vspace 0))
"Vers mit Akkorden" "Vers mit Akkorden"
@ -236,9 +236,9 @@
\score-equal-height #verse-line-height \score-lines { \score-equal-height #verse-line-height \score-lines {
\transposable \transposable
<< <<
\new Devnull { #(if (ly:music? verse-break-voice) verse-break-voice) } \new Devnull { #verse-break-voice }
#(if (ly:music? verse-chords) (music-clone verse-chords) #{ \chords { \verseChords } #}) #verse-chords
\new NullVoice { #(if (ly:music? verse-reference-voice) verse-reference-voice #{ \global \firstVoice #}) } \new NullVoice { #verse-reference-voice }
\addlyrics { #lyrics } \addlyrics { #lyrics }
>> >>
\layout { \layout {