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

Compare commits

base: boernel:main
Branches Tags
boernel:main boernel:chord-spacing-experimental boernel:tocSubtitleText-Variable
..
compare: boernel:410b8b4b4f36e51fba02709908cd1c84f450b2b7
Branches Tags
boernel:main boernel:chord-spacing-experimental boernel:tocSubtitleText-Variable

1 Commits
main ... 410b8b4b4f

Author SHA1 Message Date
tux
410b8b4b4f new engraver for spacing in chordlyrics 2025-12-15 11:50:17 +01:00
1 changed files with 3 additions and 4 deletions
Expand all files Collapse all files

7
private_includes/base/verses_with_chords.ily
View File

@@ -302,10 +302,9 @@ Chord_lyrics_spacing_engraver =
(ly:grob-set-property! grob 'extra-spacing-width (ly:grob-set-property! grob 'extra-spacing-width
(cons (- chord-width-since-last-lyric) (cdr (ly:grob-property grob 'extra-spacing-width '(0 . 0))))) (cons (- chord-width-since-last-lyric) (cdr (ly:grob-property grob 'extra-spacing-width '(0 . 0)))))
(if last-printed-chord (if last-printed-chord
(let ((gap-for-starting-rest 2.0)) (begin
(if stanza (ly:grob-set-property! stanza 'padding (+ 1 gap-for-starting-rest))) (if stanza (ly:grob-set-property! stanza 'padding chord-width-since-last-lyric))
(ly:grob-set-parent! grob X last-printed-chord) (place-at-right-edge grob last-printed-chord 0)
(ly:grob-set-property! grob 'X-offset gap-for-starting-rest)
))) )))
) )
(set! last-lyric-syllable grob) (set! last-lyric-syllable grob)