Re: Non-blank chord repeat

[Thomas Morley]

2016-07-03 0:03 GMT+02:00 Lee Daniel Crocker <address@hidden>:
> I'm printing lead sheets with just chords and lyrics, and this makes the
> rhythm of the tune hard to see. What I'd like to do print chords at regular
> intervals, say every half note, and rather than having repeats suppressed,
> have them print "-".
>
> For example, "G - C - D C" for two beats of G, two of C, one of D, one of C.
>
> I'd be happy to do this manually by inserting a chord named "-" if there
> were a way to do that. Or I could enter the chords at regular intervals and
> have it mark the repeats with "-" somehow. Or maybe enter "N.C." and have
> that print as "-" somehow?
>
> --
> To the extent possible under law, I, Lee Daniel Crocker,
> waive all copyright and related or neighboring rights to all
> creative works original to me

Hi,

you could do

(1) manually:

minus =\once \override ChordName.text = "-"

<<
\new ChordNames
\chordmode {
  g4 \minus g c \minus c d c
}
\new Staff { \repeat unfold 6 c''4 }
>>

(2) automatic

#(define dash-repeated-chords
  (lambda (context)
   (let ((chord '()))
     `((acknowledgers
         (chord-name-interface .
           ,(lambda (engraver grob source-engraver)
             (if (equal? (ly:grob-property grob 'text) chord)
                 (ly:grob-set-property! grob 'text "-"))
             (set! chord (ly:grob-property grob 'text)))))
        (finalize . ,(lambda (translator) (set! chord '())))))))

<<
\new ChordNames \with { \consists #dash-repeated-chords }
\chordmode {
  g4 g c c d c
}
\new Staff { \repeat unfold 6 c''4 }
>>

HTH,
  Harm