add default chordName exceptions

This commit is contained in:
2025-04-27 16:02:57 +04:00
committed by tux
parent 9a9ef8e8df
commit 57bcf94167
2 changed files with 36 additions and 4 deletions

View File

@ -22,12 +22,13 @@ refStringWithNumbers = "Ref. ~a:"
% hübsche Wiederholungszeichen für den Liedtext
repStart = "𝄆"
repStop = "𝄇"
customChordPrintings = {}
\paper {
cueMarkup = \markup {
\italic
#(make-on-the-fly-markup (lambda (layout props m)
(interpret-markup layout props
(interpret-markup layout props
(string-join (map (lambda (n) (format #f "~@r." n)) (chain-assoc-get 'cues props)) ", ")))
(make-null-markup))
}