input/lsr/chords/Chord-name-exceptions.ly

   1 \version "2.10.12"
   2
   3 \header { texidoc = "
   4 The property @{chordNameExceptions@} can used to store a list of special notations for specific chords.
   5 " }
   6
   7 % 7sus4 denoted with ^7 wahh
   8 chExceptionMusic =  {
   9     <c f g bes>1-\markup { \super "7" "wahh" }}
  10
  11                                 % add to existing exceptions.
  12 chExceptions = #(append
  13                  (sequential-music-to-chord-exceptions chExceptionMusic #t)
  14                  ignatzekExceptions)
  15
  16 theMusic = \chordmode {
  17     c:7sus4 c:dim7/+f
  18     \set chordNameExceptions = #chExceptions
  19     c:7sus4 c:dim7/+f
  20 }
  21
  22 \layout { ragged-right = ##t }
  23
  24 << \context ChordNames \theMusic
  25    \context Voice \theMusic
  26 >>
  27