mirror of
https://github.com/kastdeur/bagpipe.ly.git
synced 2024-11-01 01:53:32 +01:00
38 lines
1.1 KiB
Text
38 lines
1.1 KiB
Text
|
%{
|
||
|
|
Header formatting for bagpipe tunes. Customize to get your name in the tag line.
|
||
|
|
%}
|
||
|
|
|
||
|
|
\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"
|
||
|
|
}
|
||
|
|
}
|
||
|
|
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)))
|
||
|
|
}
|
||
|
|
}
|
||
|
|
}
|