3 texidoc="Jazz chord names, but with lower case names for minor chords
11 %% UGH UH GUG UHGUHGHGH GHG
12 % -- this is fucking up global name space.
16 % lilypond Cc-chords.ly ..other-files-testing-chords...
18 % then the other files will get messed up.
25 %#(assoc-set! chord::names-alist-jazz
26 % '((0 . 0) (2 . -1)) '(""))
28 %#(assoc-set! chord::names-alist-jazz
29 % '((0 . 0) (2 . -1) (4 . 0) (6 . -1)) '("7"))
31 #(define (pitch->chord-name-text-banter pitch additions)
32 (let ((name (pitch->text-banter pitch)))
33 (if (member '(2 . -1) (map pitch->note-name additions))
35 (string-downcase (substring (car name) 0 1))
36 (substring (car name) 1))
44 \property ChordNames.ChordName \set #'style = #'jazz
45 \context ChordNames \chords { c1 c:m c:m7 }