tiny update

pull/9/head
Matthew Butterick 11 years ago
parent 64554cef89
commit 0bafa26718

@ -107,7 +107,7 @@
(define/contract (render #:force [force #f] . xs) (define/contract (render #:force [force #f] . xs)
(() (#:force boolean?) #:rest (listof pathish?) . ->* . void?) (() (#:force boolean?) #:rest (listof pathish?) . ->* . void?)
(define (&render x) (define (&render x)
(let ([path (->complete-path (->path x))]) (let ([path (->complete-path x)])
; (message "Dispatching render for" (->string (file-name-from-path path))) ; (message "Dispatching render for" (->string (file-name-from-path path)))
(cond (cond
;; this will catch preprocessor files ;; this will catch preprocessor files
@ -117,7 +117,7 @@
[(needs-template? path) (render-with-template path #:force force)] [(needs-template? path) (render-with-template path #:force force)]
;; this will catch ptree files ;; this will catch ptree files
[(ptree-source? path) (let ([ptree (dynamic-require path 'main)]) [(ptree-source? path) (let ([ptree (dynamic-require path 'main)])
(render-ptree-files ptree #:force force))] (render-files-in-ptree ptree #:force force))]
[(equal? FALLBACK_TEMPLATE_NAME (->string (file-name-from-path path))) [(equal? FALLBACK_TEMPLATE_NAME (->string (file-name-from-path path)))
(message "Render: using fallback template")] (message "Render: using fallback template")]
[(file-exists? path) (message "Serving static file" (->string (file-name-from-path path)))] [(file-exists? path) (message "Serving static file" (->string (file-name-from-path path)))]
@ -360,7 +360,7 @@
;; render files listed in a ptree file ;; render files listed in a ptree file
(define/contract (render-ptree-files ptree #:force [force #f]) (define/contract (render-files-in-ptree ptree #:force [force #f])
((ptree?) (#:force boolean?) . ->* . void?) ((ptree?) (#:force boolean?) . ->* . void?)
;; pass force parameter through ;; pass force parameter through
(for-each (λ(i) (render i #:force force)) (for-each (λ(i) (render i #:force force))

Loading…
Cancel
Save