Write code into systems and add formatting for highlight lists

1 files changed, 18 insertions, 0 deletions

diff --git a/time.lisp b/time.lisp
new file mode 100644
index 0000000..3d0f2bb
--- /dev/null
+++ b/time.lisp
@@ -0,0 +1,18 @@
+;; Makes a-list with '((hours . HOURS) (minutes . MINUTES) (seconds . SECONDS) (ms . MILLISECONDS))
+(defun make-time-alist (ms)
+  `((hours    . ,(floor (/ ms (* 1000 60 60))))
+	   (minutes . ,(floor (mod (/ ms (* 1000 60)) 60)))
+	   (seconds . ,(floor (mod (/ ms 1000) 60)))
+	   (ms      . ,(mod ms 1000))))
+
+;; Formats, disregarding min/hour if they shouldn't be shown, a time alist to "H:M:S.ms"
+(defun format-time (time-alist)
+  (let
+      ((hours (cdr (assoc 'hours time-alist)))
+       (minutes (cdr (assoc 'minutes time-alist)))
+       (seconds (cdr (assoc 'seconds time-alist)))
+       (centis (round (/ (cdr (assoc 'ms time-alist)) 10))))
+    (concatenate 'string
+                 (unless (zerop hours) (format nil "~2,'0d:" hours))
+                 (unless (and (zerop minutes) (zerop hours)) (format nil "~2,'0d:" minutes))
+                 (format nil "~2,'0d.~2,'0d" seconds centis))))