\version "2.16.0"
+#(if (guile-v2)
+ (use-modules (ice-9 curried-definitions)))
+
slashSeparator = \markup {
\center-align
\vcenter \combine
#(define (book-first-page? layout props)
"Return #t iff the current page number, got from @code{props}, is the
book first one."
- (define (ancestor layout)
- "Return the topmost layout ancestor"
- (let ((parent (ly:output-def-parent layout)))
- (if (not (ly:output-def? parent))
- layout
- (ancestor parent))))
(= (chain-assoc-get 'page:page-number props -1)
- (ly:output-def-lookup (ancestor layout) 'first-page-number)))
+ (book-first-page layout props)))
#(define (book-last-page? layout props)
"Return #t iff the current page number, got from @code{props}, is the
oddHeaderMarkup = \markup
\fill-line {
- %% force the header to take some space, otherwise the
- %% page layout becomes a complete mess.
- " "
+ ""
\on-the-fly #not-part-first-page \fromproperty #'header:instrument
\on-the-fly #print-page-number-check-first \fromproperty #'page:page-number-string
}
\fill-line {
\on-the-fly #print-page-number-check-first \fromproperty #'page:page-number-string
\on-the-fly #not-part-first-page \fromproperty #'header:instrument
- " "
+ ""
}
oddFooterMarkup = \markup {