|
|
@ -98,16 +98,15 @@ version print the version" (current-server-port) (make-publish-di
|
|
|
|
(define static-pagetrees (filter pagetree-source? dirlist))
|
|
|
|
(define static-pagetrees (filter pagetree-source? dirlist))
|
|
|
|
;; if there are no static pagetrees, use make-project-pagetree
|
|
|
|
;; if there are no static pagetrees, use make-project-pagetree
|
|
|
|
;; (which will synthesize a pagetree if needed, which includes all sources)
|
|
|
|
;; (which will synthesize a pagetree if needed, which includes all sources)
|
|
|
|
(define preprocs-and-static-pagetrees (append preprocs static-pagetrees))
|
|
|
|
|
|
|
|
(define batch-to-render
|
|
|
|
(define batch-to-render
|
|
|
|
(map very-nice-path
|
|
|
|
(map very-nice-path
|
|
|
|
(cond
|
|
|
|
(cond
|
|
|
|
[(null? preprocs-and-static-pagetrees)
|
|
|
|
[(null? static-pagetrees)
|
|
|
|
(displayln (format "rendering generated pagetree for directory ~a" dir))
|
|
|
|
(displayln (format "rendering generated pagetree for directory ~a" dir))
|
|
|
|
(cdr (make-project-pagetree dir))]
|
|
|
|
(cdr (make-project-pagetree dir))]
|
|
|
|
[else
|
|
|
|
[else
|
|
|
|
(displayln (format "rendering preproc & pagetree files in directory ~a" dir))
|
|
|
|
(displayln (format "rendering preproc & pagetree files in directory ~a" dir))
|
|
|
|
preprocs-and-static-pagetrees])))
|
|
|
|
(append preprocs static-pagetrees)])))
|
|
|
|
(apply render-batch batch-to-render)
|
|
|
|
(apply render-batch batch-to-render)
|
|
|
|
(when (render-recursively?)
|
|
|
|
(when (render-recursively?)
|
|
|
|
(for ([path (in-list dirlist)]
|
|
|
|
(for ([path (in-list dirlist)]
|
|
|
|