ly/titling-init.ly

   1 \version "2.6.0"
   2
   3 slashSeparator = \markup {
   4   \hcenter
   5   \vcenter \combine
   6   \beam #2.0 #0.5 #0.48
   7   \raise #0.7 \beam #2.0 #0.5 #0.48
   8 }
   9
  10 tagline = \markup {
  11   \with-url
  12
  13   %% todo: lilypond.org/music-engraving
  14   #"http://lilypond.org/web/"
  15   \line {
  16     "Music engraving by LilyPond"
  17     #(ly:export (lilypond-version))
  18
  19     %% 2014 = em dash.
  20     #(ly:export (ly:wide-char->utf-8 #x2014))
  21     "www.lilypond.org"
  22   }
  23 }
  24
  25 bookTitleMarkup = \markup {
  26   \override #'(baseline-skip . 3.5)
  27   \column {
  28     \fill-line { \fromproperty #'header:dedication }
  29     \override #'(baseline-skip . 3.5)
  30     \column {
  31       \huge \bigger \bold
  32       \fill-line {
  33         \bigger \fromproperty #'header:title
  34       }
  35       \fill-line {
  36         \large \smaller \bold
  37         \bigger \fromproperty #'header:subtitle
  38       }
  39       \fill-line {
  40         \smaller \bold
  41         \fromproperty #'header:subsubtitle
  42       }
  43       \fill-line {
  44         \fromproperty #'header:poet
  45         { \large \bold \fromproperty #'header:instrument }
  46         \fromproperty #'header:composer
  47       }
  48       \fill-line {
  49         \fromproperty #'header:meter
  50         \fromproperty #'header:arranger
  51       }
  52     }
  53   }
  54 }
  55
  56 scoreTitleMarkup = \markup {
  57   \fill-line {
  58     \fromproperty #'header:piece
  59     \fromproperty #'header:opus
  60   }
  61 }
  62
  63 #(define (first-page layout props arg)
  64   (if (= (chain-assoc-get 'page:page-number props -1)
  65          (ly:output-def-lookup layout 'firstpagenumber))   (interpret-markup layout props arg)
  66    empty-stencil))
  67
  68 #(define (last-page layout props arg)
  69   (if (chain-assoc-get 'page:last? props #f)
  70    (interpret-markup layout props arg)
  71    empty-stencil))
  72
  73 #(define (not-first-page layout props arg)
  74   (if (not (= (chain-assoc-get 'page:page-number props -1)
  75               (ly:output-def-lookup layout 'firstpagenumber)))
  76    (interpret-markup layout props arg)
  77    empty-stencil))
  78
  79 %% unused
  80 #(define (not-single-page layout props arg)
  81   (if (not (and (= (chain-assoc-get 'page:page-number props -1)
  82                    (ly:output-def-lookup layout 'firstpagenumber))
  83                (chain-assoc-get 'page:last? props -1)))
  84    (interpret-markup layout props arg)
  85    empty-stencil))
  86
  87 #(define (print-page-number layout props arg)
  88   (if (eq? (ly:output-def-lookup layout 'printpagenumber) #t)
  89    (interpret-markup layout props arg)
  90    empty-stencil))
  91
  92 #(define (print-page-number-check-first layout props arg)
  93   (if (or (not (= (chain-assoc-get 'page:page-number props -1)
  94                   (ly:output-def-lookup layout 'firstpagenumber)))
  95           (eq? (ly:output-def-lookup layout 'printfirstpagenumber) #t))
  96    (print-page-number layout props arg)
  97    empty-stencil))
  98
  99 oddHeaderMarkup = \markup
 100 \fill-line {
 101   %% force the header to take some space, otherwise the
 102   %% page layout becomes a complete mess.
 103   " "
 104   \on-the-fly #not-first-page \fromproperty #'header:instrument
 105   \on-the-fly #print-page-number-check-first \fromproperty #'page:page-number-string
 106 }
 107
 108 evenHeaderMarkup = \markup
 109 \fill-line {
 110   \on-the-fly #print-page-number-check-first \fromproperty #'page:page-number-string
 111   \on-the-fly #not-first-page \fromproperty #'header:instrument
 112   ""
 113 }
 114
 115 oddFooterMarkup = \markup {
 116   \column {
 117     \fill-line {
 118       %% Copyright header field only on first page.
 119       \on-the-fly #first-page \fromproperty #'header:copyright
 120     }
 121     \fill-line {
 122       %% Tagline header field only on last page.
 123       \on-the-fly #last-page \fromproperty #'header:tagline
 124     }
 125   }
 126 }
 127