|
|
@ -7,7 +7,8 @@
|
|
|
|
sugar/coerce
|
|
|
|
sugar/coerce
|
|
|
|
"file-utils.rkt"
|
|
|
|
"file-utils.rkt"
|
|
|
|
"log.rkt"
|
|
|
|
"log.rkt"
|
|
|
|
"../setup.rkt")
|
|
|
|
"../setup.rkt"
|
|
|
|
|
|
|
|
"../pagetree.rkt")
|
|
|
|
|
|
|
|
|
|
|
|
;; The use of dynamic-require throughout this file is intentional:
|
|
|
|
;; The use of dynamic-require throughout this file is intentional:
|
|
|
|
;; this way, low-dependency raco commands (like "version") are faster.
|
|
|
|
;; this way, low-dependency raco commands (like "version") are faster.
|
|
|
@ -129,10 +130,13 @@ version print the version" (current-server-port) (make-publish-di
|
|
|
|
(when (force-render?)
|
|
|
|
(when (force-render?)
|
|
|
|
;; forcing works like `touch`: updates the mod date of the files,
|
|
|
|
;; forcing works like `touch`: updates the mod date of the files,
|
|
|
|
;; which invalidates any cached results.
|
|
|
|
;; which invalidates any cached results.
|
|
|
|
|
|
|
|
(let force-paths ([paths paths])
|
|
|
|
(for* ([path (in-list paths)]
|
|
|
|
(for* ([path (in-list paths)]
|
|
|
|
[sp (in-value (get-source path))]
|
|
|
|
[sp (in-value (if (pagetree-source? path) path (get-source path)))]
|
|
|
|
#:when sp)
|
|
|
|
#:when sp)
|
|
|
|
(file-or-directory-modify-seconds sp timestamp)))
|
|
|
|
(file-or-directory-modify-seconds sp timestamp)
|
|
|
|
|
|
|
|
(when (pagetree-source? sp)
|
|
|
|
|
|
|
|
(force-paths (pagetree->paths sp))))))
|
|
|
|
(apply render-batch (map very-nice-path paths) #:parallel (render-parallel?) #:special (special-output?)))
|
|
|
|
(apply render-batch (map very-nice-path paths) #:parallel (render-parallel?) #:special (special-output?)))
|
|
|
|
|
|
|
|
|
|
|
|
(parameterize ([current-poly-target (render-target-wanted)]) ;; applies to both cases
|
|
|
|
(parameterize ([current-poly-target (render-target-wanted)]) ;; applies to both cases
|
|
|
|