From 47b6bdf8b737bf12f5f7b8839ed2389ff28c723c Mon Sep 17 00:00:00 2001 From: Logan Hunt Date: Tue, 24 May 2022 16:22:00 -0700 Subject: Write code into systems and add formatting for highlight lists --- time.lisp | 18 ++++++++++++++++++ 1 file changed, 18 insertions(+) create mode 100644 time.lisp (limited to 'time.lisp') 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)))) -- cgit v1.3