input/regression/chord-name-exceptions.ly

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