\version "2.24.0"

#(set! paper-alist (cons '("format" . (cons (* 13 cm) (* 2 cm))) paper-alist))

#(define (text-interface::print-X-centered grob)
   (ly:stencil-aligned-to (ly:text-interface::print grob) X CENTER ))


\header {
  tagline = ##f
}

%--- définition de accords
\storePredefinedDiagram #default-fret-table \chordmode {d}
#guitar-tuning
#"o;o;4-3;2-1-(;3-4;2-1-);"
\storePredefinedDiagram #default-fret-table \chordmode {a}
#guitar-tuning
"x;o;7-3;6-2;5-1;x;"                          

diagrams = \chordmode {
  d s a
}

\markup {
  \fill-line {
    \score {
      <<
        \new ChordNames << \diagrams >>
        \new FretBoards << \diagrams >>
      >>
      \layout {
        \context {
          #(set-default-paper-size "format") 
          \ChordNames
          \override ChordName.font-size = #-1          
        }
        \context {
          \FretBoards
        }
      }
    }
  }
}