diff --git a/defs/tagline.ily b/defs/tagline.ily index 44320fe..8255749 100644 --- a/defs/tagline.ily +++ b/defs/tagline.ily @@ -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 ")" } } } } diff --git a/defs/tagline_seaforth.ily b/defs/tagline_seaforth.ily index eee8643..049707a 100644 --- a/defs/tagline_seaforth.ily +++ b/defs/tagline_seaforth.ily @@ -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 ")" } } } } diff --git a/pipeband.sly b/pipeband.sly index fce5ce6..0071b8e 100644 --- a/pipeband.sly +++ b/pipeband.sly @@ -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"