fix: total time in query-table

pull/6854/head
Tienson Qin 2022-09-30 11:46:26 +08:00
parent e76f0d75ef
commit 29c1173259
1 changed files with 1 additions and 11 deletions

View File

@ -33,16 +33,6 @@
(if (zero? minutes) "" (str minutes "m"))
(if (zero? seconds) "" (str seconds "s")))))
(defn minutes->days:hours:minutes
[minutes]
(let [days (quot (quot minutes 60) 24)
hours (quot (- minutes (* days 60 24)) 60)
minutes (mod minutes 60)]
(util/format "%s%s%s"
(if (zero? days) "" (str days "d"))
(if (zero? hours) "" (str hours "h"))
(if (zero? minutes) "" (str minutes "m")))))
(def support-seconds?
(get (state/get-config)
[:logbook/settings :with-second-support?] true))
@ -115,4 +105,4 @@
(string/replace #"\s+minutes?$" "m")))
(if zero-minutes?
seconds
duration-in-minutes)))))))
(* 60 duration-in-minutes))))))))