zoned-date-time experiements

Author: awb99

TRANSIT.md

@@ -0,0 +1,10 @@
+
+cljs
+["~#zoned-date-time","2024-10-11T18:36:31.396-05:00[SYSTEM]"]
+
+clj
+["~#zoned-date-time","2024-10-11T18:35:15.154763401-05:00[America/Panama]"]
+
+
+
+problem is that browser has no timezones, so we cannot send them.

demo/src/demo/tick.clj

@@ -0,0 +1,14 @@
+(ns demo.tick
+  (:require 
+    [cljc.java-time.zone-id :refer [get-available-zone-ids]]
+   )
+  )
+
+ 
+ 
+(get-available-zone-ids)
+;; => #{"Asia/Aden" "America/Cuiaba" "Etc/GMT+9" "Etc/GMT+8" "Africa/Nairobi" 
+;; "America/Marigot" "Asia/Aqtau" "Pacific/Kwajalein" "America/El_Salvador" "Asia/Pontianak"
+;; "Africa/Cairo" "Pacific/Pago_Pago" "Africa/Mbabane" "Asia/Kuching" "Pacific/Honolulu" "Pacific/Rarotonga" 
+;; "America/Guatemala" "Australia/Hobart" "Europe/London" "America/Belize" "America/Panama" "Asia/Chungking" "America/Managua" "America/Indiana/Petersburg" "Asia/Yerevan" "Europe/Brussels" "GMT" "Europe/Warsaw" "America/Chicago" "Asia/Kashgar" "Chile/Continental" "Pacific/Yap" "CET" "Etc/GMT-1" "Etc/GMT-0" "Europe/Jersey" "America/Tegucigalpa" "Etc/GMT-5" "Europe/Istanbul" "America/Eirunepe" "Etc/GMT-4" "America/Miquelon" "Etc/GMT-3" "Europe/Luxembourg" "Etc/GMT-2" "Etc/GMT-9" "America/Argentina/Catamarca" "Etc/GMT-8" "Etc/GMT-7" "Etc/GMT-6" ...}
+

deps.edn

@@ -20,13 +20,12 @@
         ; encoding edn/transit/json
         com.cognitect/transit-clj {:mvn/version  "1.0.333"} ; transit
         com.cognitect/transit-cljs {:mvn/version  "0.8.280"} ; transit
-        fipp/fipp {:mvn/version "0.6.25"} ; edn pretty printing
-        cheshire/cheshire {:mvn/version "5.10.2"}  ; JSON parsings and pretty printing
+        fipp/fipp {:mvn/version "0.6.26"} ; edn pretty printing
         ; time encoding
         tick/tick {:mvn/version "0.6.2"} ; replacement for clj-time
         ; 20240917 removed dep to clojure.java-time. we only use tick really
         ;clojure.java-time/clojure.java-time {:mvn/version "0.3.3"} this caused clojure errors.
-        com.andrewmcveigh/cljs-time {:mvn/version  "0.5.2"}
+        ;com.andrewmcveigh/cljs-time {:mvn/version  "0.5.2"}
         com.widdindustries/time-literals {:mvn/version "0.1.10"} ; also used by tick
         ; image encoding
         org.clojure/data.codec {:mvn/version "0.1.1"} ; image base64 encoding

src/modular/encoding/time.cljc src-junk/time.cljc

@@ -1,7 +1,8 @@
 (ns modular.encoding.edn-test
   (:require
    [clojure.test :refer [deftest is testing]]
-   [modular.encoding.edn :refer [spit-edn slurp-edn]]
+   [modular.encoding.edn :refer [spit-edn slurp-edn read-edn]]
+   [modular.persist.edn :refer [pprint-str]]
    [modular.encoding.demo-data :refer [demo-data]]))
 
 (def filename "/tmp/edn-test.edn")
@@ -10,4 +11,8 @@
   (spit-edn filename demo-data)
   (is (= demo-data (slurp-edn filename))))
 
-
+(deftest localdate-reload-test
+  (let [sdate (str "#time/date \"2011-01-01\"" "\n")
+        stime (str "#time/date-time \"2021-11-04T00:52:59.694154533\"" "\n")]
+    (is (= sdate (-> sdate read-edn pprint-str)))
+    (is (= stime (-> stime read-edn pprint-str)))))

src/modular/persist/json.clj

@@ -1,7 +1,8 @@
 (ns modular.encoding.transit-test
   (:require
    [clojure.test :refer [deftest is testing]]
-   [modular.encoding.transit :refer [spit-transit slurp-transit]]
+   [tick.core :as t]
+   [modular.encoding.transit :refer [spit-transit slurp-transit write-transit read-transit]]
    [modular.encoding.demo-data :refer [demo-data]]))
 
 (def filename "/tmp/transit-test.json")
@@ -11,4 +12,30 @@
   (is (= demo-data (slurp-transit filename)))
 
   ;
-  )
+  )
+
+(deftest encoding-transit-zoned-test []
+  (let [data (t/zoned-date-time)
+        t (write-transit data)]
+    (println "transit encoded: " t)
+    (is (= data (read-transit t)))))
+
+(deftest decoding-transit-zoned-test []
+  (let [json "[\"~#zoned-date-time\",\"2024-10-11T18:35:15.154763401-05:00[America/Panama]\"]"
+        dt (read-transit json)
+        json2 (write-transit dt)]
+    (is (= json json2))))
+
+#_(deftest decoding-transit-zoned2-test []
+    (let [json "[\"~#zoned-date-time\",\"2024-10-11T18:36:31.396-05:00[SYSTEM]\"]"
+          dt (read-transit json)
+          json2 (write-transit dt)]
+      (is (= json json2))))
+
+; '2024-10-11T18:36:31.396-05:00[SYSTEM]' could not be parsed, unparsed text found at index 29
+
+(deftest decoding-transit-zoned2-test []
+  (let [json "[\"~#zoned-date-time\",\"2024-10-11T18:36:31.396-05:00[America/Panama]\"]"
+        dt (read-transit json)
+        json2 (write-transit dt)]
+    (is (= json json2))))

test/modular/encoding/edn_test.clj

@@ -1,6 +1,8 @@
 (ns modular.encoding.transit-test
   (:require
    [cljs.test :refer-macros [async deftest is testing]]
+   [cljc.java-time.zone-id :refer [get-available-zone-ids]]
+   [tick.core :as t]
    [bidi.bidi :as bidi]
    [modular.encoding.transit :refer [write-transit read-transit]]
    [modular.encoding.edn :refer [read-edn]]
@@ -16,14 +18,24 @@
 (deftest encoding-transit-simple-test []
   (let [data (dissoc demo-data :date :bidi)
         t (write-transit data)]
+    (println "transit encoded: " t)
     (is (= data (read-transit t)))))
 
 (deftest encoding-transit-date-test []
   (let [data (dissoc demo-data :bidi)
         t (write-transit data)]
+    (println "transit encoded: " t)
+    (is (= data (read-transit t)))))
+
+(deftest encoding-transit-zoned-test []
+  (let [data (t/zoned-date-time)
+        t (write-transit data)]
+    (println "transit encoded: " t)
     (is (= data (read-transit t)))))
 
 #_(deftest encoding-transit-bidi-test []
     (let [t (write-transit demo-data)]
       (is (= demo-data (read-transit t)))))
 
+(println "available timezones in cljs: "
+         (get-available-zone-ids))

test/modular/encoding/transit_test.clj

@@ -3,7 +3,7 @@
    [clojure.test :refer [deftest is]]
    [modular.file.explore :as filesystem]
    [modular.resource.explore :as resource]
-   [modular.test-init] ; side effects
+  ;[modular.test-init] ; side effects
    ))
 (defn without-path [l]
   (map #(dissoc % :path) l))