From 70b4a2b4d42c9ccb58d65e57f57364056e3a0425 Mon Sep 17 00:00:00 2001
From: Andrey Antukh <niwi@niwi.nz>
Date: Thu, 23 Jan 2020 17:52:31 +0100
Subject: [PATCH] :tada: Add duration helpers under uxbox.util.time ns.

---
 backend/src/uxbox/util/time.clj | 51 +++++++++++++++++++++------------
 1 file changed, 32 insertions(+), 19 deletions(-)

diff --git a/backend/src/uxbox/util/time.clj b/backend/src/uxbox/util/time.clj
index 7f7fa9fd2..ef5c6571b 100644
--- a/backend/src/uxbox/util/time.clj
+++ b/backend/src/uxbox/util/time.clj
@@ -11,7 +11,7 @@
    [cognitect.transit :as t])
   (:import java.time.Instant
            java.time.OffsetDateTime
-           java.sql.Timestamp))
+           java.time.Duration))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;; Serialization Layer conversions
@@ -41,24 +41,6 @@
   {Instant instant-write-handler
    OffsetDateTime offset-datetime-write-handler})
 
-;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-;; ;; Persistence Layer Conversions
-;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-
-;; (extend-protocol sp/IParam
-;;   Instant
-;;   (-param [self ctx]
-;;     (si/sql->param "{0}::timestamptz" (.toString self))))
-
-;; (extend-protocol sp/ISQLType
-;;   Timestamp
-;;   (-convert [self]
-;;     (.toInstant self))
-
-;;   java.time.OffsetDateTime
-;;   (-convert [self]
-;;     (.toInstant self)))
-
 (defmethod print-method Instant
   [mv ^java.io.Writer writer]
   (.write writer (str "#instant \"" (.toString mv) "\"")))
@@ -78,3 +60,34 @@
 (defn now
   []
   (Instant/now))
+
+(defn- obj->duration
+  [{:keys [days minutes seconds hours nanos millis]}]
+  (cond-> (Duration/ofMillis (if (int? millis) ^long millis 0))
+    (int? days) (.plusDays ^long days)
+    (int? hours) (.plusHours ^long hours)
+    (int? minutes) (.plusMinutes ^long minutes)
+    (int? seconds) (.plusSeconds ^long seconds)
+    (int? nanos) (.plusNanos ^long nanos)))
+
+(defn duration?
+  [v]
+  (instance? Duration v))
+
+(defn duration
+  [ms-or-obj]
+  (cond
+    (duration? ms-or-obj)
+    ms-or-obj
+
+    (integer? ms-or-obj)
+    (Duration/ofMillis ms-or-obj)
+
+    :else
+    (obj->duration ms-or-obj)))
+
+(extend-protocol clojure.core/Inst
+  java.time.Duration
+  (inst-ms* [v] (.toMillis ^java.time.Duration v)))
+
+