header_book.ly

%{
    Header formatting for bagpipe tunes. Customize to get your name in the tag line.
%}

\version "2.24.0"

today = #(strftime "%B %e, %Y" (localtime (current-time)))
comment = #(if (ly:get-option 'without-comment)
               ""
               (markup #:vspace 1.2 #:justify-field 'header:comment))

\paper {
  score-markup-spacing = #'((basic-distance . 12)
                            (minimum-distance . 8)
                            (padding . 0.5)
                            (stretchability . 60))
  markup-markup-spacing = #'((basic-distance . 6)
                             (minimum-distance . 4)
                             (padding . 0.5))
  top-markup-spacing = #'((basic-distance . 6)
                          (minimum-distance . 4)
                          (padding . 1))

  raggedbottom = ##t
  tagline = \markup {
    \line {
      "P/S Sven Axelsson, MPD,"
      \with-url #"http://svenax.net/site/sheetmusic"
      "http://svenax.net/site/sheetmusic"
      \concat { "(rev. " \today ")" }
    }
  }
  bookTitleMarkup = \markup {
    \override #'(baseline-skip . 3)
    \vspace #0.6
    \column {
      \fill-line { \fromproperty #'header:dedication }
      \column {
        \huge \larger \bold
        \fill-line {
          \larger \fromproperty #'header:title
        }
        \fill-line {
          \large \smaller \bold
          \larger \fromproperty #'header:subtitle
        }
        \fill-line {
          \smaller \bold
          \fromproperty #'header:source
        }
        \fill-line {
          \line { \fromproperty #'header:meter }
          \line {
            \fromproperty #'header:composer
            \italic \fromproperty #'header:arranger
            \tiny \fromproperty #'header:date
          }
        }
      }
      \comment
      \vspace #0.6
    }
  }
}