Tagline: optionally include bandname and commithash

cmpd.sly

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

defs/tagline.ily

@@ -1,4 +1,4 @@
-%{0
+%{
     Tagline. Customize to get your name in the tag line.
 %}
 
@@ -7,13 +7,44 @@
 %%% 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)
 
-today = #(strftime "%Y-%m-%d" (localtime (current-time)))
+#(if (eof-object? commit) (set! commit ""))
+
+#(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 {
@@ -21,8 +52,21 @@ today = #(strftime "%Y-%m-%d" (localtime (current-time)))
 		    \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

@@ -1,30 +0,0 @@
-%{
-    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

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