ericteunis/ly-styles
1
0
Fork 0
Code Issues Pull requests Releases Wiki Activity

Taglines now include (short) commit hash

Browse source
This commit is contained in:
Eric Teunis de Boone 2019-01-04 00:08:27 +01:00
parent de38a589d5
commit 96e7ca79c7
3 changed files with 28 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

15
defs/tagline.ily
View file

@ -4,16 +4,25 @@
\version "2.16.0"
today = #(strftime "%b %e, %Y" (localtime (current-time)))
%%% 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 #"https://deboone.nl" "by ET de Boone"
", "
\concat { "(rev. " \today ")" }
\concat { "(rev. " \today ", #" \commit ")" }
}
}
}

15
defs/tagline_seaforth.ily
View file

@ -4,18 +4,27 @@
\version "2.16.0"
today = #(strftime "%b %e, %Y" (localtime (current-time)))
%%% 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 #"https://deboone.nl" "by ET de Boone"
", "
\with-url #"https://seaforth.nl" "Seaforths of Holland"
", "
\concat { "(rev. " \today ")" }
\concat { "(rev. " \today ", #" \commit ")" }
}
}
}

6
pipeband.sly
View file

@ -5,11 +5,10 @@
Includes some defs from lib/styles/defs
%}
%% TODO: Change Me
\include "/home/ericteunis/projects/scoring/pipeband/music/defs.ily"
\version "2.19.80"
%% TODO
#(newline)
#(display "Fix BagpipeKey instance in repo")
#(display "**not** in stylesheet")
@ -21,6 +20,9 @@ bagpipeKey = {
#(ly:set-option 'relative-includes #t)
%% TODO: Change Me
\include "../../pipeband/music/defs.ily"
% Default Score Titling
\include "defs/header_default.ily"