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

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