\version "2.18.2"
\language "deutsch"

\header{
  composer = \markup \override #'(baseline-skip . 2.5)
  \right-column
  {"Musik: Lowell Mason (1792-1872)" "Akkordeonsatz: Manuela Gößnitzer"}
  title = "Näher mein Gott zu Dir"
  subtitle =
  \markup
  {
    \column {
      \line { "gesetzt für Piano-Akkkordeon" }
      \line  { "  " } \line  {  " " }
    }
  }
  tagline = "this is the tagline"
  poet = \markup \override #'(baseline-skip . 2.5) \left-column
  {
    "Text: Sarah Flower Adams (1805-1848)"
    "Deutsch: Ehrhardt Friedrich Wunderlich (1830-1895)"
  }
}

FootLeft = #(string-append "" )
FootCenter = #(string-append "")
FootRight = #(string-append "gesetzt mit LILYPOND " (lilypond-version) " am " (strftime "%d.%m.%Y %H:%M:%S" (localtime (current-time))))

\paper {
  #(set-paper-size "a4")
  oddFooterMarkup = \markup \fill-line {
    \abs-fontsize #9 { \FootLeft }
    % \abs-fontsize #7.0 { \italic { \FootCenter } }
    \abs-fontsize #9 { \FootRight }
  }
  fonts = #
  (make-pango-font-tree
   "Mongolian Baiti"
   "Modern"
   "DejaVu Sans Mono"
   (/ (* staff-height pt) 2.5))
  left-margin = #30
  top-margin = #30
  markup-system-spacing #'padding = #5
}

\layout {
  indent = #0
  ragged-last-bottom = ##f
  ragged-last = ##f
  ragged-bottom = ##f
  line-width = #160

  \context {
    \Staff
    % weglassen der kleinen 8en, falls Notenschlüssel bass^8 etc.
    \omit ClefModifier
    % Takte am Zeilenende nicht anzeigen
    \override TimeSignature.break-visibility = #all-invisible
    %Notenschlüssel nur am Zeilenanfang
    \override Clef.break-visibility = #begin-of-line-visible
    \override TimeSignature.stencil = ##f
  }

  \context {
    \Score
    \override Score.BarNumber.break-visibility = #'#(#f #f #f)
    \override NonMusicalPaperColumn.line-break-permission = ##f
    \override NonMusicalPaperColumn.page-break-permission = ##f
  }
}

Melodie= {
  < a c, >2 < g b, >4 < f a, >
  < d f >4. < d b >8 q2
  c < c f >4 < c a' > < c g' >1

  < a' c, >2 < g b, >4 < f a, >
  < d f >4. < d b >8 q2
  < c a >4_( < c f >4) < c e > < c g' > < c f >1

  < f c' >2 < f d' >4 < f c' >   % Soll doch trotz
  < f c' >4. < f a >8 < f c' >2  % Kreuz und Pein,
  < f c' >2 < f d' >4 < f c' >   % Dies meine
  < f c' >4. < c a' >8 < c g' >2   %Los ung sein:

  < a' c, >2 < g b, >4 < f a, >  < d f >4. < d b >8 q2
  < c a >4_( < c f >4) < c e > < c g' > < c f >1

}

Bass = {

  < f, f' a c'  >2 < c' e' b >4 < f' a c' >4
  < b, b d' f'  >2 q
  < c c' e' g >2 q
  < c c' e' b >1
  < f, f' a c' >2 < b d' f' >4 < f' a c' >4
  < b, b d' f' >2 q
  < f, f' a c' > < c c' e' g >
  < f, f' a c' >1
  < f, f' a c' >2 < b d' f' >4 < f' a c' >4
  < f, f' a c' >2 q
  q < b d' f' >4 < f' a c' >4
  < f, f' a c' >2 < c c' e' b >
  < f, f' a c' >2 < c' e' b >4 < f' a c' >4
  < b, b d' f' >2 q
  < f, f' a c' > < c c' e' g >
  < f, f' a c' >1
}

AK = {
  \chordmode {
    \germanChords

    f2 c4:7 f4
    b2 b
    f/c f/c c1:7
    f2 b4 f4
    b2 b
    f c f1
    f2 b4 f
    f2 f
    f2 b4 f
    f2 c:7
    f2 c4:7 f4
    b2 b
    f c f1
  }
}

TextDe = \lyricmode {
  \set stanza = "de:"
  Nä -- her mein Gott zu Dir,
  Nä -- her zu Dir!
  Drückt mich auch Kum -- mer hier,
  Dro -- het man mir,
  Soll doch trotz Kreuz und Pein,
  Dies mei -- ne Lo -- sung sein:
  Nä -- her mein Gott zu Dir,
  Nä -- her zu Dir!
}

TextEn = \lyricmode {
  \set stanza = "en:"
  Nea -- rer, my God, to Thee, nea -- rer to Thee!
  E’en though it be a cross that rai -- seth me,
  Still all my song shall be, nea -- rer, my God, to Thee.
  Nea -- rer, my God, to Thee,
  Nea -- rer to Thee!
}

Struktur = {
  s1 * 4 \break
  s1 * 4 \break
  s1 * 4 \break
  s1 * 4 \break
}

\score {

  \new PianoStaff <<
    \set PianoStaff.instrumentName = #"Accordion"
    \new Staff = "upper"

    \relative c''
    <<
      \key f \major
      \new Voice = "meintext"
      {
        \Melodie
      }
      \new Voice
      \Struktur
    >>
    \new Lyrics \lyricsto "meintext" \TextDe
    \new Lyrics \lyricsto "meintext" \TextEn

    \new Staff = "lower"

    <<
      \key f \major
      \clef bass
      \Bass
      \new ChordNames
      \AK
    >>
  >>
}