% this is to be compatible to older lilypond versions
\version "2.18.0"

#(define (on-first-page layout props)
  "Whether the markup is printed on the first page of the book."
  (= (chain-assoc-get 'page:page-number props -1)
     (book-first-page layout props)))

#(define-markup-command (if layout props condition? argument)
  (procedure? markup?)
  #:category conditionals
  (if (condition? layout props)
      (interpret-markup layout props argument)
      empty-stencil))

#(define (on-first-page-of-part layout props)
  "Whether the markup is printed on the first page of the book part."
  (= (chain-assoc-get 'page:page-number props -1)
     (ly:output-def-lookup layout 'first-page-number)))

#(define (should-print-page-number layout props)
  "Whether the page number should be printed on this page.  This depends
on the settings @code{print-@/page-@/numbers} and
@code{print-@/first-@/page-@/number} of the @code{\\paper} block."
  (and (eq? #t (ly:output-def-lookup layout 'print-page-number))
       (or (not (on-first-page layout props))
           (eq? #t (ly:output-def-lookup layout 'print-first-page-number)))))