Akkordliste/code

\version "2.20"
\language "deutsch"
#(ly:load "x11-color.scm")
\include "exceptions.ily"
\include "drawchords.ily"
\include "titel.ily"

\paper {
  markup-markup-spacing.padding = #1
  markup-markup-spacing.minimum-distance = #1
  oddHeaderMarkup = ##f
  evenHeaderMarkup = #oddHeaderMarkup
  oddFooterMarkup = ##f %\markup \fill-line { \null "Jazz-Akkorde" \null }
  evenFooterMarkup = #oddHeaderMarkup
  ragged-right = ##t
  ragged-last = ##t
  ragged-bottom = ##t
  ragged-last-bottom = ##t
  bottom-margin = #1
  annotate-spacing = ##f
}

\layout {

  \context {
    \Staff
    \remove "Time_signature_engraver"
    \override InstrumentName.padding = #0.5
    \override InstrumentName.self-alignment-X = #1
    \override TextScript.padding = #2
  }

  \context {
    \PianoStaff
    \override SystemStartBrace.collapse-height = #1
  }

  \context {
    \Score
    \override KeyCancellation.break-visibility = #all-invisible
  }

  \context {
    \ChordNames
    \alias ChordNames
    \override ChordName.self-alignment-X = #LEFT
    chordNameLowercaseMinor = ##f
    \override Rest.stencil = ##f
    chordNoteNamer = #(chord-name->german-markup #f)
    chordChanges = ##f
    chordNameLowercaseMinor = ##f
    chordNameExceptions = #chExceptions
    chordRootNamer = #germanChords
    majorSevenSymbol = \markup { maj7 }
    \override ChordName.font-name = #"ArnoldBoeD"
    \override ChordName.font-name = #"Arial Narrow"
    %\override ChordName.layer = #2
    \override ChordName.font-shape = #'bold
    \override ChordName.extra-spacing-width = #'(+inf.0 . -inf.0)
    \override ChordName.font-size = #4
    noChordSymbol = ##f
    \override VerticalAxisGroup.staff-affinity = #UP
    \override VerticalAxisGroup.nonstaff-relatedstaff-spacing.padding = #1
  }
}

#(define-markup-command (my-chord-symbol layout props mus)
   (ly:music?)
   (interpret-markup layout props
     #{
       \markup \score {
         \new Staff
         \with {
           instrumentName = \markup
           \override #'(line-width . 15)
           %\override #'(font-name . "forte")
           %\fill-line
           \fill-with-pattern #1 #RIGHT " "
             \null
             \score {
               \new ChordNames
               { \override ChordName.font-name = #"LilyJAZZ Text"
                 \override ChordName.font-size = #6
                 $mus }
             }
           }

         {
           \textLengthOff
           \ChordKeyboard c' c' #0.05 $mus \noBreak
           \once \override Staff.BarLine.stencil = ##f
           \override Staff.Clef.full-size-change = ##t
           \clef bass \transpose c c,, $mus \bar "||"
         }
         \layout {
           line-width = #70
           ragged-right = ##t
           indent = #0
         }
       }
     #}))