My mail client inserted unwanted line breaks, sigh. \version "2.25.8"
#(use-modules (lily page))
auto-add-first-page-breaking =
#(lambda (paper-book)
(let ((default-pages (ly:page-turn-breaking paper-book)))
(match default-pages
(() '())
((first-page . _)
(let ((first-page-number (page-property first-page 'page-number)))
(if (eqv? first-page-number 2)
(let* ((new-page (make-page paper-book 1 #f))
(paper (ly:paper-book-paper paper-book))
(props `(((font-encoding . latin1))
,(ly:output-def-lookup paper 'property-defaults)))
(mkup (ly:output-def-lookup paper
'intentionally-blank-markup))
(stil (interpret-markup paper props mkup)))
(page-set-property! new-page 'stencil stil)
(cons new-page default-pages))
default-pages))))))
%%%%%%%%%%%%%%%%%%%%%%%%%%%
\paper {
page-breaking = #auto-add-first-page-breaking
auto-first-page-number = ##t
intentionally-blank-markup =
\markup \lower #30 \italic \fontsize #-3
\fill-line { "This page intentionally left blank" }
}
#(set-default-paper-size "a6")
\layout {
\context {
\Staff
\consists "Page_turn_engraver"
}
}
\bookpart {
{
a b c d R1
\repeat unfold 30 {a4 b c d}
}
}
signature.asc
Description: This is a digitally signed message part
