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

13
defs/tagline.ily
View file

@ -4,7 +4,16 @@
\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 {
@ -13,7 +22,7 @@ today = #(strftime "%b %e, %Y" (localtime (current-time)))
", " ", "
\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 ")" }
} }
} }
} }

13
defs/tagline_seaforth.ily
View file

@ -4,7 +4,16 @@
\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 {
@ -15,7 +24,7 @@ today = #(strftime "%b %e, %Y" (localtime (current-time)))
", " ", "
\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"