31 lines
738 B
Plaintext
31 lines
738 B
Plaintext
%{
|
|
Tagline. Customize to get your name in the tag line.
|
|
%}
|
|
|
|
\version "2.16.0"
|
|
|
|
%%% See LSR 567: http://lsr.di.unimi.it/LSR/Item?id=567
|
|
#(use-modules (ice-9 popen))
|
|
#(use-modules (ice-9 rdelim))
|
|
commit =
|
|
#(let* ((port (open-pipe* OPEN_READ "git" "rev-parse" "--short" "HEAD"))
|
|
(str (read-line port)))
|
|
(close-pipe port)
|
|
str)
|
|
|
|
today = #(strftime "%Y-%m-%d" (localtime (current-time)))
|
|
|
|
\paper {
|
|
tagline = \markup {
|
|
\concat {
|
|
\with-url #"http://lilypond.org" #(format #f "Typeset with LilyPond ~a" (lilypond-version) )
|
|
", "
|
|
\with-url #"https://deboone.nl" "by ET de Boone"
|
|
", "
|
|
\with-url #bandWebsite \bandnameFull
|
|
", "
|
|
\concat { "(rev. " \today ", #" \commit ")" }
|
|
}
|
|
}
|
|
}
|