diff --git a/pollen/private/preheat-cache.rkt b/pollen/private/preheat-cache.rkt index 9e5f12a..7bbe54e 100644 --- a/pollen/private/preheat-cache.rkt +++ b/pollen/private/preheat-cache.rkt @@ -3,6 +3,7 @@ racket/path racket/place racket/match + racket/format "file-utils.rkt" "cache-utils.rkt" "log.rkt") @@ -65,7 +66,7 @@ [(? null?) (loop null actives)] [(cons path rest) (place-channel-put wp path) - (message (format "caching @ job ~a: ~a" (add1 wpidx) (find-relative-path starting-dir path))) + (message (format "caching @ job ~a: ~a" (~r (add1 wpidx) #:min-width (string-length (~r job-count)) #:pad-string " ") (find-relative-path starting-dir path))) (loop rest (cons wpidx actives))])] [(list wpidx wp 'job-finished path result) (if result diff --git a/pollen/private/ts.rktd b/pollen/private/ts.rktd index 0ff1e99..e15d324 100644 --- a/pollen/private/ts.rktd +++ b/pollen/private/ts.rktd @@ -1 +1 @@ -1588815041 +1588816473 diff --git a/pollen/render.rkt b/pollen/render.rkt index b5d06c2..8d87a35 100644 --- a/pollen/render.rkt +++ b/pollen/render.rkt @@ -2,6 +2,7 @@ (require racket/file racket/path racket/match + racket/format racket/place racket/list racket/dict @@ -140,7 +141,7 @@ ['finished-job (message (format "rendered parallel @ job ~a /~a ~a" - (add1 wpidx) + (~r (add1 wpidx) #:min-width (string-length (~r job-count)) #:pad-string " ") (find-relative-path (current-project-root) (->output-path path)) (if (< ms 1000) (format "(~a ms)" ms) (format "(~a s)" (/ ms 1000.0)))))] [_