2009-02-15 13:55:36 +01:00
|
|
|
%{
|
|
|
|
Header formatting for bagpipe tunes. Customize to get your name in the tag line.
|
|
|
|
%}
|
|
|
|
|
2012-09-16 21:04:09 +02:00
|
|
|
\version "2.16.0"
|
2009-02-15 13:55:36 +01:00
|
|
|
|
|
|
|
% Bring in the time/date package. Set format to month day, year
|
|
|
|
|
|
|
|
#(use-modules (srfi srfi-19))
|
2011-02-12 18:39:44 +01:00
|
|
|
today = #(date->string (current-date) "~B ~e, ~Y")
|
2009-02-15 13:55:36 +01:00
|
|
|
|
|
|
|
\paper {
|
|
|
|
raggedbottom = ##t
|
|
|
|
tagline = \markup {
|
|
|
|
\line {
|
2011-11-01 00:30:54 +01:00
|
|
|
"P/S Sven Axelsson, MPD,"
|
|
|
|
\with-url #"http://svenax.net/site/sheetmusic"
|
|
|
|
"http://svenax.net/site/sheetmusic"
|
|
|
|
\concat { "(rev. " \today ")" }
|
2009-02-15 13:55:36 +01:00
|
|
|
}
|
|
|
|
}
|
|
|
|
bookTitleMarkup = \markup {
|
|
|
|
\override #'(baseline-skip . 3.5)
|
|
|
|
\column {
|
|
|
|
\fill-line { \fromproperty #'header:dedication }
|
|
|
|
\override #'(baseline-skip . 3.5)
|
|
|
|
\column {
|
|
|
|
\huge \larger \bold
|
|
|
|
\fill-line {
|
|
|
|
\larger \fromproperty #'header:title
|
|
|
|
}
|
|
|
|
\fill-line {
|
|
|
|
\large \smaller \bold
|
|
|
|
\larger \fromproperty #'header:subtitle
|
|
|
|
}
|
|
|
|
\fill-line {
|
|
|
|
\smaller \bold
|
2009-04-12 11:56:46 +02:00
|
|
|
\fromproperty #'header:source
|
2009-02-15 13:55:36 +01:00
|
|
|
}
|
|
|
|
\fill-line {
|
|
|
|
\line { \fromproperty #'header:meter }
|
|
|
|
\line { \fromproperty #'header:composer " " \italic \fromproperty #'header:arranger }
|
|
|
|
}
|
|
|
|
}
|
|
|
|
}
|
|
|
|
}
|
|
|
|
}
|