|
|
@ -158,10 +158,9 @@
|
|
|
|
[(? pagetree-source? pt) (loop (append (pagetree->paths pt) (cdr paths)) acc)]
|
|
|
|
[(? pagetree-source? pt) (loop (append (pagetree->paths pt) (cdr paths)) acc)]
|
|
|
|
[(app ->source-path (and (not #false) (? file-exists?) sp)) (loop (cdr paths) (cons sp acc))]
|
|
|
|
[(app ->source-path (and (not #false) (? file-exists?) sp)) (loop (cdr paths) (cons sp acc))]
|
|
|
|
[_ (loop (cdr paths) acc)])))
|
|
|
|
[_ (loop (cdr paths) acc)])))
|
|
|
|
(cond
|
|
|
|
(cond
|
|
|
|
[wants-dry-run? (if (null? expanded-source-paths)
|
|
|
|
[(null? expanded-source-paths) (message "[no paths to render]")]
|
|
|
|
(message "[no paths to render]")
|
|
|
|
[wants-dry-run? (for-each message expanded-source-paths)]
|
|
|
|
(for-each message expanded-source-paths))]
|
|
|
|
|
|
|
|
[else (for-each render-to-file-if-needed
|
|
|
|
[else (for-each render-to-file-if-needed
|
|
|
|
(match wants-parallel-render?
|
|
|
|
(match wants-parallel-render?
|
|
|
|
;; returns crashed jobs for serial rendering
|
|
|
|
;; returns crashed jobs for serial rendering
|
|
|
|