ly/titling-init.ly

   1 bookTitleMarkup = \markup {
   2   \column {
   3     \fill-line { \fromproperty #'header:dedication }
   4     \fill-line {
   5       \huge \bigger \bigger \bigger \bold \fromproperty #'header:title
   6     }
   7     \fill-line {
   8       \override #'(baseline-skip . 3)
   9       \column {
  10         \fill-line {
  11           \huge \bigger \bigger
  12           \bold \fromproperty #'header:subtitle
  13         }
  14         \fill-line {
  15           \huge \bigger
  16           \bold \fromproperty #'header:subsubtitle
  17         }
  18       }
  19     }
  20     \fill-line {
  21       \fromproperty #'header:poet
  22       \fromproperty #'header:instrument
  23       \column {
  24         \fromproperty #'header:composer
  25         \fromproperty #'header:arranger
  26       }
  27     }
  28   }
  29 }
  30
  31 scoreTitleMarkup = \markup {
  32   \fill-line {
  33     \fromproperty #'header:piece
  34     \fromproperty #'header:opus
  35   }
  36 }
  37
  38
  39 oddHeaderMarkup = \markup
  40 \fill-line {
  41   ""
  42   \fromproperty #'header:instrument
  43   \fromproperty #'page:page-number-string
  44 }
  45
  46 evenHeaderMarkup = \markup
  47 \fill-line {
  48   \fromproperty #'page:page-number-string
  49   \fromproperty #'header:instrument
  50   ""
  51 }
  52
  53 oddFooterMarkup = \markup {
  54   \column {
  55     \fill-line {
  56
  57       % put copyright only on pagenr. 1
  58       \on-the-fly #(lambda (layout props arg)
  59                     (if (= 1 (chain-assoc-get 'page:page-number props   -1))
  60                      (interpret-markup layout props arg)
  61                      empty-stencil
  62                    ))
  63       \fromproperty #'header:copyright
  64     }
  65     \fill-line {
  66       % put tagline only on last page
  67       \on-the-fly #(lambda (layout props arg)
  68                     (if (chain-assoc-get 'page:last?  props #f)
  69                      (interpret-markup layout props arg)
  70                      empty-stencil
  71                    ))
  72       \fromproperty #'header:tagline
  73     }
  74   }
  75 }
  76