|
|
|
|
@ -181,8 +181,12 @@
|
|
|
|
|
(define current-null-output? (make-parameter #f))
|
|
|
|
|
|
|
|
|
|
(define+provide/contract (render-batch #:parallel [wants-parallel-render? #false]
|
|
|
|
|
#:special [special-output #false] . paths-in)
|
|
|
|
|
((#:parallel any/c) (#:special (or/c boolean? symbol?)) #:rest (listof pathish?) . ->* . void?)
|
|
|
|
|
#:special [special-output #false]
|
|
|
|
|
#:output-paths [output-paths-in #false] . paths-in)
|
|
|
|
|
(() (#:parallel any/c
|
|
|
|
|
#:special (or/c boolean? symbol?)
|
|
|
|
|
#:output-paths (or/c #false (listof pathish?)))
|
|
|
|
|
#:rest (listof pathish?) . ->* . void?)
|
|
|
|
|
;; Why not just (for-each render ...)?
|
|
|
|
|
;; Because certain files will pass through multiple times (e.g., templates)
|
|
|
|
|
;; And with render, they would be rendered repeatedly.
|
|
|
|
|
@ -202,6 +206,13 @@
|
|
|
|
|
;; but the path arguments might also include pagetrees,
|
|
|
|
|
;; which expand to multiple files.
|
|
|
|
|
;; so this keeps everything correlated correctly.
|
|
|
|
|
(cond
|
|
|
|
|
[(and output-paths-in (= (length paths-in) (length output-paths-in)))
|
|
|
|
|
;; explicit list of paths: create jobs directly
|
|
|
|
|
(for/list ([path (in-list paths-in)]
|
|
|
|
|
[output-path (in-list output-paths-in)])
|
|
|
|
|
($job path output-path))]
|
|
|
|
|
[else
|
|
|
|
|
(let loop ([paths paths-in] [sps null] [ops null])
|
|
|
|
|
(match paths
|
|
|
|
|
[(? null?)
|
|
|
|
|
@ -222,7 +233,7 @@
|
|
|
|
|
[(== (->output-path path)) path]
|
|
|
|
|
[_ (->output-path sp)]))
|
|
|
|
|
(loop rest (cons sp sps) (cons op ops))]
|
|
|
|
|
[_ (loop rest sps ops)])])))
|
|
|
|
|
[_ (loop rest sps ops)])]))]))
|
|
|
|
|
(cond
|
|
|
|
|
[(null? all-jobs) (message "[no paths to render]")]
|
|
|
|
|
[(eq? special-output 'dry-run) (for-each message (map $job-source all-jobs))]
|
|
|
|
|
|
