Re: auto-first-page-number add extra blank page

[Jean Abou Samra]

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