%
% JAZZ CHORDS
% (based upon pop-chords.ly by James L. Hammons)
%
% v3.1
% 19 Nov 2011
% address@hidden
%
% tested against lilypond v2.14.2



#(define-markup-command (jcRaise layout props jcText) (markup?)
    (interpret-markup layout props
      (markup #:raise 1.5 #:smaller #:smaller #:smaller jcText )
    )
  )

  
jcFlat = \markup{  \hspace #0.2 \raise #0.4 { \smaller \flat } }
jcSharp = \markup{ \hspace #0.2 \raise #0.7 { \smaller \sharp } }

% define your prefererred mode markers here
jcMinor = \markup{ \smaller\smaller "mi" }
jcMajor = \markup{ "Maj" }



jazzChordsMusic =
{

	% Duads
	<c g>-\markup\jcRaise{ "5" }
	<c e>-\markup\jcRaise{ "3" }
	<c ees>-\markup{ \jcMinor\jcRaise{ "3"} }
	
	
	% Triads
	<c e ges>-\markup\jcRaise{ \jcFlat "5" }
	<c e gis>-\markup\jcRaise{ \jcSharp "5" }

	<c ees g>-\markup\jcMinor
	<c ees gis>-\markup{ \jcMinor\jcRaise{ \jcSharp "5" } }
	<c ees ges>-\markup\jcRaise{ \tiny "o" }	
	<c d g>-\markup\jcRaise{ "sus2" }
	<c f g>-\markup\jcRaise{ "sus4" }

	% this chord appears in Miles Davis's "Enigma" and is called "p4",
	% meaning a chord constisting of perfect fourths
	<c f bes>-\markup\jcRaise{ "p4" } 
	
	
	% Sixth Chords
	<c e g a>-\markup\jcRaise{ "6" }
	<c ees g a>-\markup{ \jcMinor\jcRaise{ "6" } }

	
	% Sevenths (including altered ones)	
	
	% dominant sept
	<c e g bes>-\markup\jcRaise{ "7" }
	<c e ges bes>-\markup\jcRaise{ "7" \jcFlat "5" }
	<c e gis bes>-\markup\jcRaise{ "+7" }
	
	
	% major sept
	<c e g b>-\markup\jcRaise{ \jcMajor "7" }
	<c e gis b>-\markup\jcRaise{ \jcMajor "7(" \jcSharp "5)" }
	<c e ges b>-\markup\jcRaise{ \jcMajor "7(" \jcFlat "5)" }
	
	
	% minor
	<c ees g bes>-\markup{ \jcMinor\jcRaise{ "7" } }
	<c ees g b>-\markup{ \jcMinor\jcRaise{ \whiteTriangleMarkup "7" } }
	
	<c ees ges bes>-\markup\jcRaise{ {\larger\larger #(ly:export (ly:wide-char->utf-8 #x00f8)) } "7" }
	<c ees ges beses>-\markup\jcRaise{ "o7" }

	% suspended
	<c f g bes>-\markup\jcRaise{ "7sus4" }
	<c d g bes>-\markup\jcRaise{ "7sus2" }



	% Ninths (including altered--incomplete)

	% major	
	<c e g b d'>-\markup\jcRaise{ \jcMajor "9" }
	<c e g bes d'>-\markup\jcRaise{ "9" }
	<c e g bes des'>-\markup\jcRaise{ "7(" \jcFlat "9)" }
	<c e g bes dis'>-\markup\jcRaise{ "7(" \jcSharp "9)" }

	<c e gis bes dis'>-\markup\jcRaise{ "7" \jcSharp "5(" \jcSharp "9)" }
	<c e ges bes dis'>-\markup\jcRaise{ "7" \jcFlat "5(" \jcSharp "9)" }
	<c e gis bes des'>-\markup\jcRaise{ "7" \jcSharp "5(" \jcFlat "9)" }
	<c e ges bes des'>-\markup\jcRaise{ "7" \jcFlat "5(" \jcFlat "9)" }
	
	<c e g bes cis' dis'>-\markup { 
	    \jcRaise{ "7" }
	    {\larger\larger "(" } 
	      \tiny { \column{ 
	        \raise #1.2 \line{ \jcFlat "9" }  % the upper tension in the bracket
	        \raise #2.5 \line{ \jcSharp "9" } % the lower tension in the bracket
	      } } 
	     \larger\larger ")" } 
	
	<c e gis bes cis' dis'>-\markup{ 
	    \jcRaise{ "7" \jcSharp "5" }
	    {\larger\larger "(" } 
	      \tiny { \column{ 
	        \raise #1.2 \line{ \jcFlat "9" }  % the upper tension in the bracket
	        \raise #2.5 \line{ \jcSharp "9" } % the lower tension in the bracket
	      } } 
	     \larger\larger ")" } 
	
	<c e ges bes cis' dis'>-\markup{ 
	    \jcRaise{ "7" \jcFlat "5" }
	    {\larger\larger "(" } 
	      \tiny { \column{ 
	        \raise #1.2 \line{ \jcFlat "9" }  % the upper tension in the bracket
	        \raise #2.5 \line{ \jcSharp "9" } % the lower tension in the bracket
	      } } 
	     \larger\larger ")" } 

	     
	% minor
	<c ees g bes d'>-\markup{ \jcMinor\jcRaise{ "9" } }
	<c ees g bes des'>-\markup{ \jcMinor\jcRaise{ \jcFlat "9" } }
	<c ees g bes dis'>-\markup{ \jcMinor\jcRaise{ \jcSharp "9" } }
	
	
	% Elevenths
	
	% major	
	<c e g b d' f'>-\markup\jcRaise{ \jcMajor "11" }
	<c e g b d' fis'>-\markup\jcRaise{ \jcMajor "7(" \jcSharp "11)" }
	<c e g b d' fes'>-\markup\jcRaise{ \jcMajor "7(" \jcFlat "11)" }
	<c e g bes des' fes'>-\markup{ 
	    \jcRaise{ "7" }
	    {\larger\larger "(" } 
	      \tiny { \column{ 
	        \raise #1.2 \line{ \jcFlat "9" }  % the upper tension in the bracket
	        \raise #2.5 \line{ \jcFlat "11" } % the lower tension in the bracket
	      } } 
	     \larger\larger ")" } 
	
	<c e g bes des' f' >-\markup\jcRaise{ "11("\jcFlat "9)" }
	<c e g bes dis' f' >-\markup\jcRaise{ "11("\jcSharp "9)" }
	<c e g bes d' fes'>-\markup\jcRaise{ \jcFlat "11" }
	<c e g bes d' fis'>-\markup\jcRaise{ \jcSharp "11" }
		
	
	% minor	
	<c ees g bes d' f'>-\markup{ \jcMinor\jcRaise{ "11" } }
	<c ees ges bes d' f'>-\markup{ \jcMinor\jcRaise{ "7" \jcFlat "5(11)" } }

	% Thirteens
	<c e g b d' f' a'>-\markup{ \jcRaise{ \jcMajor "13" } }
	<c ees g bes d' f' a'>-\markup{ \jcMinor\jcRaise{ "13" } }

	
}



% Exception handling
jazzChordsAdd = #(append
	 (sequential-music-to-chord-exceptions jazzChordsMusic #t)
	 ignatzekExceptions)


	 

#(define (chord-name->jazz-markup pitch lowercase?)

  (let* ((alt (ly:pitch-alteration pitch)))

  (make-line-markup
    (list
      (make-simple-markup (vector-ref #("C" "D" "E" "F" "G" "A" "B") (ly:pitch-notename pitch)))

      ;; If it's natural, do nothing

      (if (= alt 0)

        (make-line-markup (list empty-markup))

        (if (= alt FLAT)

          ;; Otherwise, handle adding the flat symbol

          (make-line-markup
            (list
              (make-hspace-markup 0.3) ;; WAS: 0.4
              (make-tiny-markup (make-raise-markup 1.0
                (make-musicglyph-markup "accidentals.flat")))
            )
          )

          ;; or handle adding the sharp symbol

          (make-line-markup
            (list
              (make-hspace-markup 0.1) ;; WAS: 0.2
              (make-teeny-markup (make-raise-markup 1.0
                (make-musicglyph-markup "accidentals.sharp")))
            )
          )

        )

      )

    )
  )
  )
)


\layout
{
  \context
  {
    \Score
    chordNameExceptions = #jazzChordsAdd
    chordRootNamer = #chord-name->jazz-markup
    \override ChordName #'extra-spacing-width = #'(-1.25 . 1.25)
  }
}