perf: use t/in-minutes

Signed-off-by: Yue Yang <g1enyy0ung@gmail.com>
This commit is contained in:
Yue Yang
2022-04-30 17:28:58 +08:00
committed by Junyi Du
parent 19127b705a
commit a32ece7a4d

View File

@@ -91,7 +91,8 @@
duration (t/period :hours hours
:minutes minutes
:seconds seconds)
zero-minutes? (zero? (+ (* hours 60) minutes (quot seconds 60)))]
duration-in-minutes (t/in-minutes duration)
zero-minutes? (zero? duration-in-minutes)]
(if string?
(if zero-minutes?
(str seconds "s")
@@ -101,4 +102,4 @@
(string/replace #"\s+minutes?$" "m")))
(if zero-minutes?
seconds
(+ (* hours 60) minutes))))))))
duration-in-minutes)))))))