From: Frank Duncan 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;ds=sidebyside;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))