add instant->zdt-in-UTC

README.md

@@ -238,7 +238,8 @@ aka construction a new temporal from one of the same type
 
 ;; move date forward 3 days
 (t/>> a-date 3 t/days-property)
-(t/>> a-date 3 a-temporal-amount)
+;; move forward by some amount
+(t/>> a-date a-temporal-amount)
 
 (t/date-next-or-same-weekday a-date 2) ; move date to next-or-same tuesday
 (t/date-prev-or-same-weekday a-date 7) ; move date to prev-or-same sunday

src/com/widdindustries/tempo.clj

@@ -366,6 +366,11 @@
 
 (defn legacydate->instant [d] (.toInstant ^java.util.Date d))
 
+(defn
+ instant->zdt-in-UTC
+ [instant]
+ (ZonedDateTime/ofInstant instant (ZoneId/of "UTC")))
+
 (defn greater [x y] (if (neg? (compare x y)) y x))
 
 (defn
@@ -374,7 +379,7 @@
  [arg & args]
  (assert (every? some? (cons arg args)))
  (reduce
-  (fn* [p1__43218# p2__43219#] (greater p1__43218# p2__43219#))
+  (fn* [p1__31208# p2__31209#] (greater p1__31208# p2__31209#))
   arg
   args))
 
@@ -386,7 +391,7 @@
  [arg & args]
  (assert (every? some? (cons arg args)))
  (reduce
-  (fn* [p1__43220# p2__43221#] (lesser p1__43220# p2__43221#))
+  (fn* [p1__31210# p2__31211#] (lesser p1__31210# p2__31211#))
   arg
   args))
 

src/com/widdindustries/tempo.cljs

@@ -414,6 +414,11 @@
 
 (defn legacydate->instant [d] (.toTemporalInstant ^js d))
 
+(defn
+ instant->zdt-in-UTC
+ [instant]
+ (.toZonedDateTimeISO ^js instant "UTC"))
+
 (defn greater [x y] (if (neg? (compare x y)) y x))
 
 (defn
@@ -422,7 +427,7 @@
  [arg & args]
  (assert (every? some? (cons arg args)))
  (reduce
-  (fn* [p1__43222# p2__43223#] (greater p1__43222# p2__43223#))
+  (fn* [p1__31212# p2__31213#] (greater p1__31212# p2__31213#))
   arg
   args))
 
@@ -434,7 +439,7 @@
  [arg & args]
  (assert (every? some? (cons arg args)))
  (reduce
-  (fn* [p1__43224# p2__43225#] (lesser p1__43224# p2__43225#))
+  (fn* [p1__31214# p2__31215#] (lesser p1__31214# p2__31215#))
   arg
   args))
 

test/com/widdindustries/tempo_test.cljc

@@ -193,9 +193,8 @@
         offset (t/clock-offset-millis fixed 1)]
     (is (= now (t/instant-now fixed)))
     (is (= (t/>> now 1 t/milliseconds-property) (t/instant-now offset)))
-    (is (t/> (t/instant-now (t/clock-system-default-zone)) (t/instant-now fixed)))
-    (is (= (t/zdt->timezone_id (t/zdt-now fixed)) (t/zdt->timezone_id (t/zdt-now offset))))
-    ))
+    (is (t/>= (t/instant-now (t/clock-system-default-zone)) (t/instant-now fixed)))
+    (is (= (t/zdt->timezone_id (t/zdt-now fixed)) (t/zdt->timezone_id (t/zdt-now offset))))))
 
 (deftest adjust-test
   (testing "adjusting date"