From: Frank Duncan <frank@kank.net>
Date: Wed, 15 Dec 2021 20:17:31 +0000 (-0600)
Subject: Update date/time format to include zeroes correctly
X-Git-Url: https://code.consxy.com/gitweb/?a=commitdiff_plain;h=5ca0a07ddfebb74e5556901fe6f761dfd8c06a8b;p=candle

Update date/time format to include zeroes correctly
---

diff --git a/src/main/cli.lisp b/src/main/cli.lisp
index 8afc840..c7a079e 100644
--- a/src/main/cli.lisp
+++ b/src/main/cli.lisp
@@ -8,7 +8,7 @@
 (defun job-info->line (job-info)
  (format nil "~A (~A) ~A"
   (subseq (first job-info) 0 8)
-  (format nil "~{~A/~A/~A ~A:~A~}"
+  (format nil "~{~2,,,'0@A/~2,,,'0@A/~A ~2,,,'0@A:~2,,,'0@A~}"
    (utils:time-as-list (third job-info) :month :date :year :hr :min))
   (case (second job-info)
    (:succeeded (format nil "~c[1;32mPassed~c[0m" #\Esc #\Esc))