\version "2.23.4"

\include "predefined-guitar-fretboards.ly"

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

% Make a blank new fretboard table
#(define custom-fretboard-table-one
   (make-fretboard-table))

% Make a new fretboard table as a copy of default-fret-table
#(define custom-fretboard-table-two
   (make-fretboard-table default-fret-table))

% Add a chord to custom-fretboard-table-one
\storePredefinedDiagram #custom-fretboard-table-one
\chordmode {a:m}
#guitar-tuning
"o;2-1;o;4-3;o;4-4;"

% Add a chord to custom-fretboard-table-two
\storePredefinedDiagram #custom-fretboard-table-two
\chordmode {a:m}
#guitar-tuning
"3-2;o;o;o;4-4;o;"

\header {
  title = "Ma Tablature"
  composer = "Composer"
  tagline = ##f
}

\paper {
  markup-markup-spacing.basic-distance = 10
  markup-system-spacing.basic-distance = 20
}


diagrams = \chordmode {
  \set predefinedDiagramTable = #default-fret-table
  a1:m
  \set predefinedDiagramTable = #custom-fretboard-table-one
  a1:m
  \set predefinedDiagramTable = #custom-fretboard-table-two
  a1:m 
  \set predefinedDiagramTable = #default-fret-table
  c1
}

lesdoigts = \relative c' {
  \voiceOne
  %\override Beam.concaveness = #10000
  a4 c e c4
  a4 c e c
  g dis'\2 e g,
  g dis'\2 e g,
  <b\3 b gis'>1 
  <g c e>1
}

lepouce= \relative c {
  \voiceTwo
  \tabFullNotation
  a1
  a
  g\6
  a
  b
  c
}


accordsTab = \chordmode {
  \override FretBoard.size = #'1.5
  a1:m s 
  \set predefinedDiagramTable = #custom-fretboard-table-two
  a1:m 
  s 
  \set predefinedDiagramTable = #custom-fretboard-table-one
  a1:m 
  \set predefinedDiagramTable = #default-fret-table
  c 
}

accords = \chords{
  a1:m  
  s s s s 
  c
}
\markup{\line{"Enchaînement des positions : "}}
\markup {
  \fill-line {
    \score {
      <<
        \new ChordNames << \diagrams >>
        \new FretBoards << \diagrams >>
      >>
      \layout {
        \context {
          \ChordNames
          \override ChordName.stencil = #text-interface::print-X-centered
        }
        \context {
          \FretBoards
          \override FretBoard.align-dir = #CENTER
          \override FretBoard.size = #'1.5
        }
      }
    }
  }
}


\score {
  <<
    \accords
    \new FretBoards << \accordsTab >>
    \new TabStaff = "guitare TAB" 
    <<
      \context TabVoice = "le pouce" \lepouce
      \context TabVoice = "les doigts" \lesdoigts
    >>
  >>
}