+(defun job-info->line (job-info)
+ (format nil "~A (~A) ~A"
+ (subseq (first job-info) 0 8)
+ (format nil "~{~A/~A/~A ~A:~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))
+ (:failed (format nil "~c[1;31mFailed~c[0m" #\Esc #\Esc))
+ (:queued "In queue")
+ (:no-candle-file "No candle file present")
+ (:in-progress "In progress"))))
+