cmpd.sly

@@ -12,14 +12,15 @@
 
 \include "./pipeband.sly"
 
+
 bandname = "Canadian Memorial Pipes and Drums"
 bandnameFull = "Canadian Memorial Pipes and Drums of Holland"
 bandnameTagline = \bandnameFull
 bandnameShort = "CMPD"
-bandUrl = "https://canadianmemorialpipesanddrums.nl"
+bandWebsite = "https://canadianmemorialpipesanddrums.nl"
 
 % Reload the tagline
-\include "./defs/tagline.ily"
+\include "./defs/tagline_band.ily"
 
 % Reset the TitleMarkup
 

defs/tagline.ily

@@ -1,4 +1,4 @@
-%{
+%{0
     Tagline. Customize to get your name in the tag line.
 %}
 
@@ -7,44 +7,13 @@
 %%% See LSR 567: http://lsr.di.unimi.it/LSR/Item?id=567
 #(use-modules (ice-9 popen))
 #(use-modules (ice-9 rdelim))
-today = #(strftime "%Y-%m-%d" (localtime (current-time)))
-
 commit =
 #(let* ((port (open-pipe* OPEN_READ "git" "rev-parse" "--short" "HEAD"))
         (str  (read-line port)))
    (close-pipe port)
    str)
 
-#(if (eof-object? commit) (set! commit ""))
+today = #(strftime "%Y-%m-%d" (localtime (current-time)))
-
-#(define-once commitUrl "")
-#(define-once bandWebsite "")
-#(define-once bandname "")
-#(define-once bandnameFull bandname)
-#(define-once bandUrl "")
-#(define-once bandnameTagline (if (not (string-null? bandnameFull)) bandnameFull
-								(if (not (string-null? bandname)) bandname
-								  (if (not (string-null? bandUrl)) bandUrl ""))))
-
-
-#(if (and (not (string-null? commitUrl)) (not (string-null? commit)))
-   (set! commitUrl (string-append commitUrl commit)))
-
-#(define (print-bandname-in-tagline layout props)
-	"Whether to print any bandname in the tagline."
-	(and
-		(string?  bandnameTagline)
-		(not (string-null?  bandnameTagline))
-	)
-)
-
-#(define (print-commit-hash-in-tagline layout props)
-	"Whether to print a commit hash in the tagline."
-	(and
-		(string? commit)
-		(not (string-null? commit))
-	)
-)
 
 \paper {
     tagline = \markup {
@@ -52,21 +21,8 @@ commit =
 		    \with-url #"http://lilypond.org" #(format #f "Typeset with LilyPond ~a" (lilypond-version) )
 			", "
 			\with-url #"https://etdeboone.nl" "by ET de Boone"
-			% optionally include a bandname
+			", "
-			\if \print-bandname-in-tagline
+            \concat { "(rev. " \today ", #" \commit ")" }
-			{
-				", "
-				\with-url #bandUrl \bandnameTagline
-			}
-			" "
-			"(rev. " \today
-			% optionally include the commit hash
-			\if \print-commit-hash-in-tagline
-			{
-				", "
-				\with-url #commitUrl \concat { "#" #commit }
-			}
-			")"
         }
     }
 }

defs/tagline_band.ily

@@ -0,0 +1,30 @@
+%{
+    Tagline. Customize to get your name in the tag line.
+%}
+
+\version "2.16.0"
+
+%%% 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://etdeboone.nl" "by ET de Boone"
+			", "
+			\with-url #bandWebsite \bandnameFull
+			", "
+            \concat { "(rev. " \today ", #" \commit ")" }
+        }
+    }
+}

pipeband.sly

@@ -29,12 +29,12 @@ bagpipeKey = {
 
 bandname = "Seaforth Highlanders of Holland"
 bandnameFull = "Seaforth Highlanders of Holland Memorial Pipes and Drums"
-bandnameTagline = "Seaforth's of Holland"
+bandnameTagline = "Seaforths of Holland"
 bandnameShort = "Seaf"
-bandUrl = "https://seaforth.nl"
+bandWebsite = "https://seaforth.nl"
 
 % Seaforth Tagline
-\include "defs/tagline.ily"
+\include "defs/tagline_band.ily"
 
 \layout {
 	indent = 0.0