\version "2.24.0"
\language "english"

\header {
  title = "Instrumental"
  composer = "Tommy Montgomery"
  copyright = "(c) 2023 Tommy Montgomery"
}

global = {
  \key e \major
  \set Staff.printKeyCancellation = ##f
  \numericTimeSignature
  \compressMMRests
  \omit Voice.StringNumber
  \override TupletBracket.bracket-visibility = #'if-no-beam
  \override MultiMeasureRest.expand-limit = #3
  \override Score.ChordName.font-name = #"Noto Serif"
  \override Score.ChordName.font-size = #0
  \override Score.LyricText.font-name = #"Noto Serif"
  \override Score.LyricText.font-size = #0
  \time 6/8
  \tempo 4. = 66
}

guitarOne = \relative c' {
  \partial 8 b'8\glissando |

  e2. | ds4. e | fs ~ fs8. b,16 e( fs) | \grace fs8( g4 fs8) e8.( fs32 e) d16( e) |

  e4. ~ e4 e16( d) | b8. b16 b a g8. g16 g b |
  a8. a16 a g fs4. | a,16 b ds e fs a b ds e fs a b |

}

guitarOneStaff = \new Staff \with { midiInstrument = "distorted guitar" }{ \global \guitarOne }

chordExceptionMusic = {
  <c e g b d'>1-\markup { "maj9" }
  <c e g b fs'>1-\markup { "maj7" \sharp "11" }
  <c ef f g bf>1-\markup { "m7sus4" }
  <c ef gf bff>1-\markup { "°7" }
  <c e g d'>1-\markup { "add9" }
  <c ef g d'>1-\markup { "m(add9)" }
  <c e fs as>1-\markup { \super { \sharp "11" \sharp "13" } }
  <c g>1-\markup { "5" }
  <c e g b>1-\markup { "maj7" }
  <c f g>1-\markup { "sus4" }
  <c d g>1-\markup { "sus2" }

}

chordExceptions = #(append
  (sequential-music-to-chord-exceptions chordExceptionMusic #t)
  ignatzekExceptions
)

chordValues = \chordmode {
  \global
  \set chordNameExceptions = #chordExceptions
  \set majorSevenSymbol = \markup "maj7"

  \partial 8 s8 |
  e2. | b | d | a |
  e | g | d | b |
  c | d | a | q |
  bf | c | d | q |

}

chordNames = \new ChordNames {
  \set chordChanges = ##t
  \set chordNameExceptions = #chordExceptions
  \chordValues
}

\score {
  <<
    \chordNames
    \guitarOneStaff
  >>
  \layout {
    \context {
      \Staff \RemoveEmptyStaves
      \override Glissando.minimum-length = #4
      \override Glissando.springs-and-rods = #ly:spanner::set-spacing-rods
      \override Glissando.thickness = #2
      \override VerticalAxisGroup.remove-first = ##t
    }
  }
}

\score {
  \unfoldRepeats {
    <<
      \transpose c c, \guitarOneStaff
    >>
  }
  \midi {}
}