input/test/Cc-chords.ly

   1 \header {
   2   texidoc="Jazz chord names, but with lower case names for minor chords"
   3 }
   4
   5 \version "1.3.146"
   6
   7 #(assoc-set! chord::names-alist-jazz
   8   '((0 . 0) (2 . -1)) '(""))
   9
  10 #(assoc-set! chord::names-alist-jazz
  11    '((0 . 0) (2 . -1) (4 . 0) (6 . -1)) '("7"))
  12
  13 #(define (pitch->chord-name-text-banter pitch additions)
  14   (let ((name (pitch->text-banter pitch)))
  15     (if (member '(2 . -1) (map pitch->note-name additions))
  16         (cons (string-append
  17                (string-downcase (substring (car name) 0 1))
  18                (substring (car name) 1))
  19                (cdr name))
  20         name)))
  21
  22 \score {
  23   <
  24     \property ChordNames.ChordName \set #'style = #'jazz
  25     \context ChordNames \chords { c1 c:m c:m7 }
  26   >
  27 }