diff options
| author | Han-Wen Nienhuys <hanwen@xs4all.nl> | 2004-11-21 16:10:18 +0000 |
|---|---|---|
| committer | Han-Wen Nienhuys <hanwen@xs4all.nl> | 2004-11-21 16:10:18 +0000 |
| commit | 14d880f92583caf3dbbe610201679930fdafdc9c (patch) | |
| tree | b8c76185e23a2797e0e2d865d40337b57fc4d4af /ly/titling-init.ly | |
| parent | a96c695dca9d5aeb37192685383e8a06ab87ac6b (diff) | |
* lily/stencil.cc (translate): remove absolute dimension.
* ly/titling-init.ly (oddFooterMarkup): new file. Generate titles
via markup.
* scm/page-layout.scm (marked-up-headfoot): create header/footer
field from user-supplied markup
* scm/define-markup-commands.scm (on-the-fly): new markup
command. Enter SCM markup procedure directly in Scheme.
(fromproperty): new markup command. Read markup from props argument.
* scm/titling.scm (marked-up-title): create title via
user-specified markup.
* scm/define-markup-commands.scm (column): remove empty stencils
from column.
* lily/ly-module.cc (LY_DEFINE): use ly_module_lookup(). This does
not have side-effect of creating variable stub.
* lily/stencil-scheme.cc (LY_DEFINE): add ly:stencil-empty?
Diffstat (limited to 'ly/titling-init.ly')
| -rw-r--r-- | ly/titling-init.ly | 77 |
1 files changed, 77 insertions, 0 deletions
diff --git a/ly/titling-init.ly b/ly/titling-init.ly new file mode 100644 index 0000000000..d94c42a78b --- /dev/null +++ b/ly/titling-init.ly @@ -0,0 +1,77 @@ + +bookTitleMarkup = \markup { + \column < + \fill-line < \fromproperty #'header:dedication > + \fill-line < + \huge \bigger \bigger \bigger \bold \fromproperty #'header:title + > + \fill-line < + \override #'(baseline-skip . 3) + \column < + \fill-line < + \huge \bigger \bigger + \bold \fromproperty #'header:subtitle + > + \fill-line < + \huge \bigger + \bold \fromproperty #'header:subsubtitle + > + > + > + \fill-line < + \fromproperty #'header:poet + \fromproperty #'header:instrument + \column < + \fromproperty #'header:composer + \fromproperty #'header:arranger + > + > + > +} + +scoreTitleMarkup = \markup { + \fill-line < + \fromproperty #'header:piece + \fromproperty #'header:opus + > +} + + +oddHeaderMarkup = \markup +\fill-line < + "" + \fromproperty #'header:instrument + \fromproperty #'page:page-number-string +> + +evenHeaderMarkup = \markup +\fill-line < + \fromproperty #'page:page-number-string + \fromproperty #'header:instrument + "" +> + +oddFooterMarkup = \markup { + \column < + \fill-line < + \on-the-fly #(lambda (layout props arg) + (if (= 1 (chain-assoc-get 'page:page-number props -1)) + (interpret-markup layout props arg) + empty-stencil + )) + \fromproperty #'header:copyright + > + \fill-line < + \on-the-fly #(lambda (layout props arg) + (if (chain-assoc-get 'page:last? props #f) + (interpret-markup layout props arg) + empty-stencil + )) + \fromproperty #'header:tagline + > + > +} + + + + |