Here is something I have used for years with good results. Someone on the list
created this off the cuff. I have not tried it with 2.19.x. No doubt it could
be improved, but it is short and simple.
\version "2.18.0"
#(define (left-parenthesis-ignatzek-chord-names in-pitches bass inversion
context)
(markup #:line ("( " (ignatzek-chord-names in-pitches bass inversion context))))
#(define (right-parenthesis-ignatzek-chord-names in-pitches bass inversion
context)
(markup #:line ((ignatzek-chord-names in-pitches bass inversion context) " )")))
LPC = { \set chordNameFunction = #left-parenthesis-ignatzek-chord-names }
RPC = { \set chordNameFunction = #right-parenthesis-ignatzek-chord-names }
NPC = { \unset chordNameFunction }
%%%%%%%%%%%%%%
% \LPC first-chord \NPC more chords \RPC last-chord \NPC
%%%%%%%%%%%%%%
_______________________________________________
lilypond-user mailing list
[email protected]
https://lists.gnu.org/mailman/listinfo/lilypond-user
