\version "2.23.4"


\storePredefinedDiagram #default-fret-table \chordmode {c}
#guitar-tuning
"x;3-3;x;o;1-1;3-4;"
\storePredefinedDiagram #default-fret-table \chordmode {f:6}
#guitar-tuning
"x;x;3-3;x;3-4;x;"   
\storePredefinedDiagram #default-fret-table \chordmode {g/b}
#guitar-tuning
"x;2-2;o;o;3-3;o;"
\storePredefinedDiagram #default-fret-table \chordmode {g}
#guitar-tuning
"3-1;x;o;o;o;x;"
\storePredefinedDiagram #default-fret-table \chordmode {g:7}
#guitar-tuning
"3-3;x;x;o;o;1-1;"
\storePredefinedDiagram #default-fret-table \chordmode {f}
#guitar-tuning
#`((place-fret 1 1 1)
   (mute 2)
   (place-fret 3 2 2)
   (mute 4)
   (mute 5)
   (place-fret 6 1 ,#{ \markup \fontsize #-1 \pad-around #0.1 "P" #})) 

#(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 ))

diagrams = \chordmode {
  c1 s f:6 s g s g:7 s g/b s f
}

\header {
  tagline = ##f
}

\paper {}


\markup {
  \fill-line {
    \score {
      <<
        \new ChordNames << \diagrams >>
        \new FretBoards << \diagrams >>
      >>
      \layout {
        \context {
          #(set-default-paper-size "format") 
          \ChordNames {
            \override ChordName #'font-size = #-1
            \override ChordName.stencil = #text-interface::print-X-centered
            }
        }
        \context {
          \FretBoards
          \override FretBoard.align-dir = #CENTER
        }
      }
    }
  }
}