ly/chord-modifiers.ly

   1
   2 % urg!
   3 %
   4 \chordmodifiers #'(
   5         (m . ( 0 2 -1 ))
   6         (min . ( 0 2 -1 ))
   7         (aug . ( 0 4 1 ))
   8 ; (dim . ( -100 4 -1 ))
   9         (dim . ( -100 2 -1 ))
  10 ; urg, not actually a chord-modifier, but it works
  11 ; c7 -> <c bes>, c 7+ -> c b
  12         (maj . ( 0 6 1 ))
  13 ; sus4 should delete 2 too...
  14         (sus . ( 0 3 0 ))
  15 )
  16