Thank you by the way for this solution - it works beautifully and may
encourage me to learn a bit of Scheme.
> Here's one solution.
>
> \paper{
>
> #(define (print-positive-page-number layout props arg)
> (if (> (chain-assoc-get 'page:page-number props -1) 0)
> (create-page-number-stencil layout props arg)
> empty-stencil))
>
> oddHeaderMarkup = \markup
> \fill-line {
> %% force the header to take some space, otherwise the
> %% page layout becomes a complete mess.
> " "
> \on-the-fly #not-first-page \fromproperty #'header:instrument
> \on-the-fly #print-positive-page-number \fromproperty
> #'page:page-number-string
> }
>
> evenHeaderMarkup = \markup
> \fill-line {
> \on-the-fly #print-positive-page-number \fromproperty
> #'page:page-number-string
> \on-the-fly #not-first-page \fromproperty #'header:instrument
> " "
> }
> first-page-number = -1
> }
>
> \relative {
> c1 \pageBreak
> c1 \pageBreak
> c1 \pageBreak
> c1 \pageBreak
> }
>
> /Mats
>
--
Neil Thornock, D.M.
Visiting Assistant Professor of Music
Theory/Composition
Brigham Young University
_______________________________________________
lilypond-user mailing list
lilypond-user@gnu.org
http://lists.gnu.org/mailman/listinfo/lilypond-user
