|
|
@ -137,9 +137,7 @@ version print the version" (current-server-port) (make-publish-di
|
|
|
|
[_
|
|
|
|
[_
|
|
|
|
(message (format "rendering preproc & pagetree files in directory ~a" dir))
|
|
|
|
(message (format "rendering preproc & pagetree files in directory ~a" dir))
|
|
|
|
(append preprocs static-pagetrees)])))
|
|
|
|
(append preprocs static-pagetrees)])))
|
|
|
|
(apply render-batch (for/list ([path paths-to-render]
|
|
|
|
(apply render-batch paths-to-render #:parallel (render-parallel?))
|
|
|
|
#:when (or (extra-path? path) (not (omitted-path? path))))
|
|
|
|
|
|
|
|
path) #:parallel (render-parallel?))
|
|
|
|
|
|
|
|
(when (render-with-subdirs?)
|
|
|
|
(when (render-with-subdirs?)
|
|
|
|
(for ([path (in-list dirlist)]
|
|
|
|
(for ([path (in-list dirlist)]
|
|
|
|
#:when (directory-exists? path))
|
|
|
|
#:when (directory-exists? path))
|
|
|
|