ly-styles/defs/tagline.ily

%{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"
			", "
            \concat { "(rev. " \today ", #" \commit ")" }
        }
    }
}