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" \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 { \paper {
tagline = \markup { tagline = \markup {
\concat { \concat {
\with-url #"http://lilypond.org" #(format #f "Typeset with LilyPond ~a" (lilypond-version) ) \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" \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 { \paper {
tagline = \markup { tagline = \markup {
\concat { \concat {
\with-url #"http://lilypond.org" #(format #f "Typeset with LilyPond ~a" (lilypond-version) ) \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" \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 Includes some defs from lib/styles/defs
%} %}
%% TODO: Change Me
\include "/home/ericteunis/projects/scoring/pipeband/music/defs.ily"
\version "2.19.80" \version "2.19.80"
%% TODO
#(newline) #(newline)
#(display "Fix BagpipeKey instance in repo") #(display "Fix BagpipeKey instance in repo")
#(display "**not** in stylesheet") #(display "**not** in stylesheet")
@ -21,6 +20,9 @@ bagpipeKey = {
#(ly:set-option 'relative-includes #t) #(ly:set-option 'relative-includes #t)
%% TODO: Change Me
\include "../../pipeband/music/defs.ily"
% Default Score Titling % Default Score Titling
\include "defs/header_default.ily" \include "defs/header_default.ily"