mirror of
https://github.com/kastdeur/bagpipe.ly.git
synced 2024-11-01 01:53:32 +01:00
50 lines
1.4 KiB
Text
50 lines
1.4 KiB
Text
|
%{
|
||
|
|
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
|
||
|
|
}
|
||
|
|
}
|
||
|
|
}
|
||
|
|
}
|