Fix logbook clock-summary

Current implementation does not correctly handle the carrying up to hours. E.g., for logbook records `0:30:30` and `0:29:30`, it would return `00:00:00`.
This commit is contained in:
Shotaro Yamada
2022-04-24 14:06:15 +09:00
committed by Tienson Qin
parent efacbbae5d
commit 2b2fc92c4b

View File

@@ -95,8 +95,7 @@
seconds (mod reduced-seconds 60)
minutes (mod (+ reduced-minutes (quot reduced-seconds 60)) 60)
hours (+ reduced-hours
(quot reduced-minutes 60)
(quot (+ (mod reduced-minutes 60) reduced-seconds) 3600))]
(quot (+ reduced-minutes (quot reduced-seconds 60)) 60))]
(if string?
(util/format "%s%s%s"
(if (>= hours 1)