no chord repeating by default in chordlyrics after linebreak

This commit is contained in:
tux 2024-11-02 19:51:10 +01:00
parent a1bc48b824
commit fd14138d0b
2 changed files with 42 additions and 0 deletions

View File

@ -138,3 +138,44 @@ generalLayout = \layout {
}
}
#}))
% If you add this engraver to ChordNames Context chords get only printed on chordchanges and not at newline.
% See https://lists.gnu.org/archive/html/lilypond-user/2020-07/msg00187.html
Ignoring_newline_chord_changes_engraver =
#(lambda (ctx)
(let* ((chord #f)
(last-chord #f))
(define (at-line-beginning? grob)
(let* ((col (ly:item-get-column grob))
(ln (ly:grob-object col 'left-neighbor))
(col-to-check (if (ly:grob? ln) ln col)))
(and (eq? #t (ly:grob-property col-to-check 'non-musical))
(= 1 (ly:item-break-dir col-to-check)))))
(make-engraver
(acknowledgers
((chord-name-interface this-engraver grob source-engraver)
(if chord
(begin
(set! last-chord chord)
(set! chord #f)))
(set! chord (ly:grob-property grob 'text))
;; If two subsequent chords are equal and chordChanges is enabled,
;; set 'after-line-breaking to a procedure which sets the stencil
;; to an empty-stencil if the new chord is at line-start.
(if (and (equal? chord last-chord)
(ly:context-property ctx 'chordChanges #f))
(ly:grob-set-property! grob 'after-line-breaking
(lambda (grob)
(if (at-line-beginning? grob)
(ly:grob-set-property! grob 'stencil empty-stencil))
;; keep default
(ly:chord-name::after-line-breaking grob))))))
((finalize this-engraver)
;; house keeping
(set! chord #f)
(set! last-chord #f)))))

View File

@ -277,6 +277,7 @@
\ChordNames
\override VerticalAxisGroup.staff-affinity = ##f
\override ChordName.extra-spacing-width = #'(-0.1 . 0.1)
\consists \Ignoring_newline_chord_changes_engraver
}
\context {
\Score