\version "2.20.0"

\sourcefilename "en/included/display-predefined-fretboards.ly"
\sourcefileline 0
\include "predefined-guitar-fretboards.ly"

\paper {
  #(set-paper-size "a4")
  paper-height = 14.85\cm
  line-width = 15.0\cm
  indent = #0
}

verseI = \lyricmode {
  An -- dul -- ka ko -- no -- pě mo -- či -- la,
  žab -- ka jí do ka -- psy sko -- či -- la,
  na dru -- hý den mo -- či -- la len,
  žab -- ka jí z_kap -- sič -- ky sko -- či -- la ven, ven, ven,
  žab -- ka jí z_kap -- sič -- ky sko -- či -- la ven.
}

melody = \chordmode {
  d2. a4.:7 d4. d2. a4.:7 d4.
  a2.:7 d g4. d4.
  a:7 d g d a:7 d 
}

theFretBoards = \chordmode {
  \override FretBoards.FretBoard #'size = #'0.95
  \override FretBoard #'(fret-diagram-details finger-code) = #'none
  \set chordChanges = ##t      
  \melody
}

theChords = \chordmode {
  \set chordChanges = ##t
  \germanChords
  \melody
}

staffMelody = \relative c' {
  \key d \major
  \clef "treble"
  \time 6/8
  a8 d d d cis d e4 cis8 d4 r8
  d8 fis fis fis e fis   g4 e8 fis4 r8
  e8 cis d e4 r8   fis8 d e fis4 r8
  g8 g g fis fis fis e e e d fis
  a g g g fis fis fis e e e d4 r8
}

\book {
  \header {
    tagline = ##f
    dedication = "lidová píseň"
    title = \markup \center-column { "Andulka konopě močila" }
    poet = \markup { "Česká" }
    meter = \markup { \tiny \italic "Allegreto" }
    composer = "(Doprovod: 2, 7)"
  }

  \score {
    <<
      \override Score.SystemStartBar #'collapse-height = #1
      \context ChordNames { \theChords }
      \context FretBoards { \theFretBoards }
      \new Staff {
        \context Voice = "voiceMelody" { \staffMelody }
      }
      \new Lyrics = "lyricsI" {
        \lyricsto "voiceMelody" \verseI
      }
    >>
  }

}