Fretboards - interval

[Lee]

Hi

I'm amazed at how flexible lilypond is -  everything I've tried is possible.

The lefty chord example below works for me.

One thing that would be handy when learning chords is to display the
interval below the fretboard.

in this single chord example (for left handed chord)

1 5 m3 9 5 1

I would prefer if this was automated using the chord name e:m9^7 but if
this isn't possible what is best way to add the mark-up manually?

Best

Lee

\version "2.25.27"

\language "english"

\include "predefined-guitar-fretboards.ly"

\header {
  title = "Example guitar chords for lefty chords that are standardised and
customised"

}

\storePredefinedDiagram #default-fret-table \chordmode {   e:m9^7 }
#guitar-tuning
"o;2-1;4-4;o;o;o;"



oo = #(define-music-function
       (grob-path value)
       (list? scheme?)
       #{ \override $grob-path = #value #})


global = {
  \time 4/4
  \key c \major


}

chordnames = \chordmode  {
\set additionalPitchPrefix = #"add"
  e:m9^7

}




melody = {
  \oo FretBoard.fret-diagram-details.handedness #-1  %set left handed
  \oo FretBoard.fret-diagram-details.finger-code #'in-dot
  \override ChordName.font-size = #-2
  \chordnames


}

\score {

  <<
    \new FretBoards
    \new ChordNames
    \melody
    \melody


  >>
  \layout { indent = 0 }
  \midi {
    \tempo 4=80
  }
}