\version "2.19.16"

#(define output-language '())

language =
#(define-void-function (parser location channel language)
   (string-or-symbol? (scheme?))
   (_i "Define languages for input (i.e. set note names for @var{language}),
output (i.e. display tagline and table of contents in @var{language}), or both.")
   
   (if (string? channel)
       (set! channel 'general))
   (if (not (string? language))
       (set! language "deutsch"))
   
   ;(display (not (eq? channel 'input)))
   (if
    (not (eq? channel 'output))
    (note-names-language parser language))

   (if (not (eq? channel 'input))
       (set! output-language (string->symbol language)))
   )

\language "deutsch" 

{
  c
}



#(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 English."
                     (symbol->string output-language)))
       (assoc-get 'english taglines))))

\header {

}

{ h'1 }