Hi there Jean,

( replying about a month later (how in the world do you guys manage
such an email throughput ?! ))

It works like a charm !

Thank you sooo much for your hard work.


Le lun. 18 sept. 2023, à 18 h 11, Jean Abou Samra <[email protected]> a écrit :
>
> \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}
>   }
> }
>
>
>


--
Pierre-Luc Gauthier

Reply via email to