Add: secs-to-hms util

1 files changed, 12 insertions, 0 deletions

diff --git a/utilities.lisp b/utilities.lisp
index abe10b7..96f391c 100644
--- a/utilities.lisp
+++ b/utilities.lisp
@@ -96,3 +96,15 @@
 (defun read-from-file (path)
   (read-from-string
    (alexandria:read-file-into-string path)))
+
+
+(defun secs-to-hms (secs)
+  (let ((hours (floor (/ secs (* 60 60))))
+        (mins (floor (/ (mod secs (* 60 60))
+                        60)))
+        (secs (mod secs 60)))
+    (if (plusp hours)
+        (format nil "~a:~2,'0d:~2,'0d"
+                hours mins secs)
+        (format nil "~a:~2,'0d"
+                mins secs))))