\version "2.16.0"
+#(if (guile-v2)
+ (use-modules (ice-9 curried-definitions)))
+
slashSeparator = \markup {
\center-align
\vcenter \combine
}
tagline = \markup {
- \with-url
+ \pad-to-box #'(0 . 0) #'(0 . 3)
+ { \with-url
- #"http://lilypond.org/"
- \line {
+ #"http://lilypond.org/"
+ \line {
- %% 2014 = em dash.
+ %% 2014 = em dash.
- #(format #f "Music engraving by LilyPond ~a~awww.lilypond.org"
- (lilypond-version)
- (ly:wide-char->utf-8 #x2014)
- )
+ #(format #f "Music engraving by LilyPond ~a~awww.lilypond.org"
+ (lilypond-version)
+ (ly:wide-char->utf-8 #x2014)
+ )
+ }
}
}
#(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 {