fix default reference voice and chords for songbook output
This commit is contained in:
		| @@ -17,4 +17,8 @@ | ||||
| LAYOUT = \layout { \generalLayout } | ||||
| HEADER = {} | ||||
| MUSIC = {} | ||||
| TEXT = \markuplist {""} | ||||
| TEXT = \markuplist {""} | ||||
|  | ||||
| verseChords = {} | ||||
| firstVoice = {} | ||||
| global = {} | ||||
|   | ||||
| @@ -10,7 +10,12 @@ verselayout = \layout { | ||||
|     \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 | ||||
| output = #(if (not noStandaloneOutput) | ||||
|   | ||||
| @@ -222,9 +222,9 @@ | ||||
|         (interpret-markup-list layout props lines)))) | ||||
|  | ||||
| #(define-markup-command (chordlyrics layout props lyrics) (ly:music?) | ||||
|    #:properties ((verse-chords #f) | ||||
|                  (verse-reference-voice #f) | ||||
|                  (verse-break-voice #f) | ||||
|    #:properties ((verse-chords #{#}) | ||||
|                  (verse-reference-voice #{#}) | ||||
|                  (verse-break-voice #{#}) | ||||
|                  (verse-line-height songTextLineHeigth) | ||||
|                  (intraverse-vspace 0)) | ||||
|   "Vers mit Akkorden" | ||||
| @@ -236,9 +236,9 @@ | ||||
|         \score-equal-height #verse-line-height \score-lines { | ||||
|           \transposable | ||||
|           << | ||||
|             \new Devnull { #(if (ly:music? verse-break-voice) verse-break-voice) } | ||||
|             #(if (ly:music? verse-chords) (music-clone verse-chords) #{ \chords { \verseChords } #}) | ||||
|             \new NullVoice { #(if (ly:music? verse-reference-voice) verse-reference-voice #{ \global \firstVoice #}) } | ||||
|             \new Devnull { #verse-break-voice } | ||||
|             #verse-chords | ||||
|             \new NullVoice { #verse-reference-voice } | ||||
|             \addlyrics { #lyrics } | ||||
|           >> | ||||
|           \layout { | ||||
|   | ||||
		Reference in New Issue
	
	Block a user