ly/titling-init.ly

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