mo message

dev-stylish
Matthew Butterick 6 years ago
parent de1e724897
commit 724ec4be50

@ -107,7 +107,7 @@
#:dest-path 'output
#:notify-cache-use
(λ (str)
(message (format "loading from cache /~a"
(message (format "from cache /~a"
(find-relative-path (current-project-root) output-path))))))))) ; will either be string or bytes
(display-to-file render-result output-path
#:exists 'replace
@ -147,6 +147,8 @@
(define template-path (or maybe-template-path (get-template-for source-path output-path)))
;; output-path and template-path may not have an extension, so check them in order with fallback
(message (format "rendering /~a"
(find-relative-path (current-project-root) source-path)))
(match-define-values ((cons render-result _) _ real _)
(parameterize ([current-poly-target (->symbol (or (get-ext output-path)
(and template-path (get-ext template-path))
@ -154,8 +156,7 @@
(time-apply render-proc (list source-path template-path output-path))))
;; wait till last possible moment to store mod dates, because render-proc may also trigger its own subrenders
;; e.g., of a template.
(message (format "rendered /~a as /~a (~a ms)"
(find-relative-path (current-project-root) source-path)
(message (format "rendered as /~a (~a ms)"
(find-relative-path (current-project-root) output-path)
real))
(update-mod-date-hash! source-path template-path)

Loading…
Cancel
Save