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

Taglines now include (short) commit hash

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