1
0
Fork 0
mirror of https://github.com/kastdeur/bagpipe.ly.git synced 2024-10-31 17:43:33 +01:00
bagpipe.ly/format.ly
Sven Axelsson a7586c1d58 Updated page breaking system.
Since version 2.11.45 the \pageBreak command can be used correctly at the top level, so the hack for this has been removed. Also updated the version in all files to 2.12.0 to indicate that we need a recent Lilypond.
2009-04-10 14:37:30 +02:00

37 lines
1.1 KiB
Text

%{
Header formatting for bagpipe tunes. Customize to get your name in the tag line.
%}
\version "2.12.0"
% 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"
}
}
scoreTitleMarkup = \markup {
\override #'(baseline-skip . 3)
\column {
\fill-line {
\column {
\large \bold \fromproperty #'header:title
\bold \fromproperty #'header:subtitle
}
\fromproperty #'header:meter
\line { \fromproperty #'header:composer " " \italic \fromproperty #'header:arranger }
}
#(ly:export (if (not (ly:get-option 'without-comment))
(markup #:justify-field 'header:comment)
(markup)))
}
}
}