\version "2.19.0"

\paper {
  indent = 0
  ragged-right = ##f
}

fretDiagramToBarLine =
#(make-engraver
  (acknowledgers
   ((fret-diagram-interface engraver grob source)
    (let* ((context (ly:translator-context engraver))
           (col (ly:context-property context 'currentCommandColumn)))
      (set! (ly:grob-parent grob X) col)))))


frets = {
  < d'\3 g'\2 b'\1 >1 | < g\4 cis'\3 e'\2 > | < cis'\3 fis'\2 a'\1 > | < fis\4 b\3 d'\2 > |
  < b\3 e'\2 g'\1 > | < e\4 ais\3 cis'\2 > | < a\3 d'\2 fis'\1 > | < a\4 dis'\3 fis'\2 >
}

chordnames = \chordmode {
  e1:m7 | a:7 | d:maj7 | g:maj7 |
  cis:m7.5- | fis:7 | b:m7 | b:7 |
}

\layout {
  \context {
    \FretBoards 
    \override FretBoard.align-dir = #-1
    \override FretBoard.fret-diagram-details.fret-count = #8
    \override FretBoard.size = #1.5
  }
}

\score {
  <<
    \new FretBoards \with { \consists \fretDiagramToBarLine } { \frets }
    \new ChordNames { \chordnames }
    \new Staff \with { \omit Stem } { \improvisationOn \repeat unfold 32 b'4 \bar ":|." }
  >>
}