From 369912230263eb2cd10df336f9e0e9db13e5a7ff Mon Sep 17 00:00:00 2001 From: Colin Okay Date: Tue, 25 Oct 2022 10:00:58 -0500 Subject: Add: secs-to-hms util --- utilities.lisp | 12 ++++++++++++ 1 file changed, 12 insertions(+) (limited to 'utilities.lisp') 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)))) -- cgit v1.2.3