]> git.donarmstrong.com Git - lilypond.git/blob - ly/titling-init.ly
*** empty log message ***
[lilypond.git] / ly / titling-init.ly
1 bookTitleMarkup = \markup {
2
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
33 scoreTitleMarkup = \markup {
34   \fill-line {
35     \fromproperty #'header:piece
36     \fromproperty #'header:opus
37   }
38 }
39
40
41 oddHeaderMarkup = \markup
42 \fill-line {
43   ""
44   \fromproperty #'header:instrument
45   \fromproperty #'page:page-number-string
46 }
47
48 evenHeaderMarkup = \markup
49 \fill-line {
50   \fromproperty #'page:page-number-string
51   \fromproperty #'header:instrument
52   ""
53 }
54
55 oddFooterMarkup = \markup {
56   \column {
57     \fill-line {
58
59       % put copyright only on pagenr. 1 
60       \on-the-fly #(lambda (layout props arg)
61                     (if (= 1 (chain-assoc-get 'page:page-number props   -1))
62                      (interpret-markup layout props arg)
63                      empty-stencil
64                    ))
65       \fromproperty #'header:copyright
66     }
67     \fill-line {
68       % put tagline only on last page
69       \on-the-fly #(lambda (layout props arg)
70                     (if (chain-assoc-get 'page:last?  props #f)
71                      (interpret-markup layout props arg)
72                      empty-stencil
73                    ))
74       \fromproperty #'header:tagline
75     }
76   }
77 }
78
79