\version "2.19.16"

#(define output-language 'english)

inputLanguage =
#(define-void-function (parser location language) (string?)
   (_i "Set note names for language @var{language}.")
   (note-names-language parser language))
outputLanguage =
#(define-void-function (parser location language) (string?)
   (_i "Define language for output (i.e. display tagline and table of contents in @var{language})")
   (set! output-language (string->symbol language))
   )
language =
#(define-void-function (parser location language) (string?)
   (_i "Define languages for input (i.e. set note names for @var{language}) and
output (i.e. display tagline and table of contents in @var{language})")
   (note-names-language parser language)
   (set! output-language (string->symbol language))
   )

%\language "deutsch"
\inputLanguage "deutsch"
\outputLanguage "catalan"

#(format #t "Output language has been defined as ~a" output-language)

englishTaglineText = #(format #f
                        "Music typeset using LilyPond ~a~awww.lilypond.org"
                        (lilypond-version)
                        (ly:wide-char->utf-8 #x2014) ;; 2014 = em dash.
                        )
germanTaglineText = #(format #f
                       "Noten gesetzt mit LilyPond ~a ~a www.lilypond.org"
                       (lilypond-version)
                       (ly:wide-char->utf-8 #x2013) ;;2013 = en dash.
                       )

#(define taglines
   `(
      (deutsch . ,germanTaglineText)
      (english . ,englishTaglineText)
      ))

#(define-markup-command (format-tagline layout props text) (markup?)
   (interpret-markup layout props
     #{
       \markup {
         \pad-to-box #'(0 . 0) #'(0 . 3)
         {
           \with-url #"http://lilypond.org/"
           $text
         }
       }
     #}))

tagline =
\markup \format-tagline
#(let
  ((tagl (assoc-get output-language taglines)))
  (if tagl
      tagl
      (begin
       (ly:warning (format #f "Tagline for ~a not defined, using the english one."
                     (symbol->string output-language)))
       (assoc-get 'english taglines))))

\header {

}

{ h'1 }