bagpipe.ly/formatbook.ly

%{
    Header formatting for bagpipe tunes. Customize to get your name in the tag line.
    
    $Id: format.ly 225 2005-09-10 23:34:07Z sven $
%}

\version "2.11.43"

% Bring in the time/date package. Set format to month day, year

#(use-modules (srfi srfi-19))
today = #(date->string (current-date) "~B ~d, ~Y")

\paper {
    raggedbottom = ##t
    tagline = \markup {
        \line {
            "Rev. " \today 
            #(ly:export (ly:wide-char->utf-8 #x2014)) % Em-dash
            "P/S Sven Axelsson, MPD"
        }
    }
    bookTitleMarkup = \markup {
      \override #'(baseline-skip . 3.5)
      \column {
        \fill-line { \fromproperty #'header:dedication }
        \override #'(baseline-skip . 3.5)
        \column {
          \huge \bigger \bold
          \fill-line {
            \bigger \fromproperty #'header:title
          }
          \fill-line {
            \large \smaller \bold
            \bigger \fromproperty #'header:subtitle
          }
          \fill-line {
            \smaller
            \line { "(" \fromproperty #'header:source ")" }
          }
          \fill-line {
            \line { \fromproperty #'header:meter }
            \line { \fromproperty #'header:composer " " \italic \fromproperty #'header:arranger }
          }
          \fill-line { " " } % Empty line
        }
      }
    }
}