footer defaults to "text" font

quad/quadwriter/layout.rkt

@@ -528,7 +528,7 @@
 (define (draw-page-footer q doc)
   (match-define (list x y) (quad-origin q))
   (font-size doc (* .8 default-font-size))
-  (font doc default-font-face)
+  (font doc (path->string (quad-ref q font-path-key default-font-face)))
   (fill-color doc default-font-color)
   (text doc (format "~a · ~a at ~a" (quad-ref q :page-number 0)
                     (if (quadwriter-test-mode) "test" (quad-ref q :doc-title "untitled"))
@@ -537,10 +537,15 @@
 
 (define (make-footer-quad col-q page-idx path)
   (define-values (dir name _) (split-path (path-replace-extension path #"")))
+  (define attrs (let ([attrs (make-hasheq)])
+                  (hash-set*! attrs
+                              :page-number (+ (quad-ref col-q :page-number-start (add1 (section-pages-used))) (sub1 page-idx))
+                              :doc-title (string-titlecase (path->string name))
+                              :font-family "text")
+                  (resolve-font-path! attrs)
+                  attrs))
   (q #:size (pt 50 default-line-height)
-     #:attrs (hasheq :page-number (+ (quad-ref col-q :page-number-start (add1 (section-pages-used)))
-                                     (sub1 page-idx))
-                     :doc-title (string-titlecase (path->string name)))
+     #:attrs attrs
      #:from-parent 'sw
      #:to 'nw
      #:shift (pt 0 (* 1.5 default-line-height))