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

Compare commits

base: boernel:0f41cde5f66157c772489c02c4725e345ecbbc9c
Branches Tags
boernel:main boernel:chord-spacing-reloaded boernel:nicer_toc_breaks boernel:chord-spacing-experimental boernel:secondVoiceStyle_for_rests boernel:yaml_parser boernel:include_refactoring boernel:chordExceptions boernel:set-spacing-for-rests-in-chordlyrics boernel:tocSubtitleText-Variable
..
compare: boernel:78ed5a046bc7b07505ee163b97512b290b8ca4a2
Branches Tags
boernel:chord-spacing-reloaded boernel:nicer_toc_breaks boernel:main boernel:chord-spacing-experimental boernel:secondVoiceStyle_for_rests boernel:yaml_parser boernel:include_refactoring boernel:chordExceptions boernel:set-spacing-for-rests-in-chordlyrics boernel:tocSubtitleText-Variable

1 Commits
0f41cde5f6 ... 78ed5a046b

Author SHA1 Message Date
tux
78ed5a046b new engraver for spacing in chordlyrics 2025-11-16 22:08:11 +01:00
1 changed files with 1 additions and 3 deletions
Expand all files Collapse all files

4
private_includes/base/verses_with_chords.ily
View File

@@ -317,8 +317,7 @@ Chord_lyrics_spacing_engraver =
((chord-name-interface this-engraver grob source-engraver) ((chord-name-interface this-engraver grob source-engraver)
(if (not (and (if (not (and
(boolean? (ly:grob-property grob 'begin-of-line-visible)) (boolean? (ly:grob-property grob 'begin-of-line-visible))
(ly:grob-property grob 'begin-of-line-visible) (ly:grob-property grob 'begin-of-line-visible)))
lyrics-seen-since-break))
(let* ((last-printed-chord-width (if last-printed-chord (interval-length (ly:grob-extent last-printed-chord last-printed-chord X)) 0)) (let* ((last-printed-chord-width (if last-printed-chord (interval-length (ly:grob-extent last-printed-chord last-printed-chord X)) 0))
(chord-overwidth (- last-printed-chord-width lyric-width-since-last-chord)) (chord-overwidth (- last-printed-chord-width lyric-width-since-last-chord))
(chord-gap 0.5)) (chord-gap 0.5))
@@ -340,7 +339,6 @@ Chord_lyrics_spacing_engraver =
(set! last-printed-chord grob) (set! last-printed-chord grob)
(set! last-lyric-syllable #f) (set! last-lyric-syllable #f)
) )
(ly:grob-set-property! grob 'X-extent '(+inf.0 . -inf.0))
) )
) )
((stanza-number-interface this-engraver grob source-engraver) ((stanza-number-interface this-engraver grob source-engraver)