Prevent segfault with arpeggio + no staff-symbol.
[lilypond/mpolesky.git] / input / regression / bookparts.ly
bloba814fb5e072911540ecf2ab44a7b7b09dae61835
1 \version "2.12.0"
3 \header {
4 texidoc = "A book can be split into several parts with different paper settings,
5 using @code{\\bookpart}.
7 Fonts are loaded into the top-level paper.
8 Page labels are also collected into the top-level paper."
11 #(set-default-paper-size "a6")
13 #(define-markup-command (roman-page-number layout props) ()
14 (let ((page-number (chain-assoc-get 'page:page-number props)))
15 (interpret-markup layout props (format #f "~@r" page-number))))
17 \book {
18 \tocItem \markup "First part"
19 \header { title = "Book with several parts" }
20 \markup { First part }
21 \markup { with default paper settings. }
23 \bookpart {
24 \paper {
25 left-margin = 20\mm
26 right-margin = 20\mm
27 line-width = 65\mm
28 evenHeaderMarkup = \markup \fill-line { \roman-page-number "SECOND PART" \null }
29 oddHeaderMarkup = \markup \fill-line { \null "SECOND PART" \roman-page-number }
31 \tocItem \markup "Second part"
32 \markup \justify { Second part, with different margins and page header. }
33 { c' }
36 \tocItem \markup "Third part"
37 \markup { Third part }
38 \markuplines \table-of-contents