\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)
+ )
+ }
}
}
}
scoreTitleMarkup = \markup { \column {
- \on-the-fly #print-all-headers { \bookTitleMarkup \hspace #1 }
+ \on-the-fly \print-all-headers { \bookTitleMarkup \hspace #1 }
\fill-line {
\fromproperty #'header:piece
\fromproperty #'header:opus
#(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