Taglines now include (short) commit hash

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 ")" }
         }
     }
 }

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 ")" }
         }
     }
 }

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"