page number start attr

quad/quad/scribblings/quad.scrbl

@@ -465,6 +465,10 @@ The unusual way of setting the overall page dimensions of the rendered PDF. Both
 Inset values from the page edges. Value is given as a @tech{dimension string}. Default values depend on size of the page: they are chosen to be not completely bananas.
 }
 
+@defthing[#:kind "attribute" page-number-start symbol?]{
+First page number used in document.
+}
+
 @deftogether[(@defthing[#:kind "attribute" column-count symbol?]
               @defthing[#:kind "attribute" column-gap symbol?])]{
 Columns per page. @racket[column-count] is a positive integer; @racket[column-gap] (the space between columns) is a @tech{dimension string}.

quad/quadwriter/attrs.rkt

@@ -138,6 +138,7 @@ Naming guidelines
                            page-height
                            page-size ; e.g., "letter"
                            page-orientation ; only applies to page-size dimensions
+                           page-number-start ; 1
 
                            page-margin-top
                            page-margin-bottom

quad/quadwriter/layout.rkt

@@ -341,7 +341,7 @@
                          #:type offsetter-quad)
                         elems)]) 'sw))]))]
          [_ null])]))
-  (define maybe-first-line (and (pair? new-lines) (car new-lines)))
+  (define maybe-first-line (match new-lines [(cons line0 _) line0][_ #false]))
   (append (match opening-q
             [#false (list (make-paragraph-spacer maybe-first-line :space-before 0))] ; paragraph break
             [_ null])
@@ -437,10 +437,11 @@
                     (date->string (current-date) #t))
         x y))
 
-(define (make-footer-quad page-idx path)
+(define (make-footer-quad col-q page-idx path)
   (define-values (dir name _) (split-path (path-replace-extension path #"")))
   (q #:size (pt 50 default-line-height)
-     #:attrs (hasheq :page-number page-idx :doc-title (string-titlecase (path->string name)))
+     #:attrs (hasheq :page-number (+ (quad-ref col-q :page-number-start 1) (sub1 page-idx))
+                     :doc-title (string-titlecase (path->string name)))
      #:from-parent 'sw
      #:to 'nw
      #:shift (pt 0 (* 1.5 default-line-height))
@@ -590,7 +591,7 @@
   (define elems
     (match (quad-ref (car cols) :footer-display #true)
       [(or #false "none") (from-parent cols 'nw)]
-      [_ (cons (make-footer-quad page-idx path) (from-parent cols 'nw))]))
+      [_ (cons (make-footer-quad (car cols) page-idx path) (from-parent cols 'nw))]))
   (list (quad-copy page-quad [elems elems])))
 
 (define (page-wrap qs width [page-quad q:page])