nobody else would bother

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

pollen/private/ts.rktd

@@ -1 +1 @@
-1588815041
+1588816473

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)))))]
             [_