data persistance is serialized a json

Author: caumond

src/cljc/auto_web/components/lang.cljc

@@ -1,13 +1,13 @@
 (ns auto-web.components.lang
   "Language based components"
   (:require
-   #?(:cljs [auto-web.local-storage :refer [set-item!]]
+   #?(:cljs [auto-web.local-storage :refer [set-ls!]]
       :clj [auto-web.http-request.lang :refer [update-cookie-language]])))
 
 
 #?(:cljs (defn- update-lang-opts
            [on-lang-change l]
-           {:on-click #(do (set-item! :lang l) (when on-lang-change (on-lang-change l)))})
+           {:on-click #(do (set-ls! :lang l) (when on-lang-change (on-lang-change l)))})
    :clj (defn- update-lang-opts [_ l] {:onclick (update-cookie-language l)}))
 
 (defn clang-bar

src/cljs/auto_web/local_storage.cljs

@@ -1,16 +1,30 @@
-(ns auto-web.local-storage)
+(ns auto-web.local-storage
+  "Provide data persistance in local storage for clojurescript."
+  (:require
+   [re-frame.core :as rf]))
 
-(defn set-item!
+(defn set-ls!
   "Set `key` in browser's localStorage to `val`."
   [key val]
-  (.setItem (.-localStorage js/window) key val))
+  (.setItem js/localStorage key (js/JSON.stringify (clj->js val))))
 
-(defn get-item
+(defn get-ls
   "Returns value of `key` from browser's localStorage."
   [key]
-  (.getItem (.-localStorage js/window) key))
+  (some-> (.getItem js/localStorage key)
+          (js/JSON.parse)
+          (js->clj :keywordize-keys true)))
 
 (defn remove-item!
   "Remove the browser's localStorage value for the given `key`"
   [key]
   (.removeItem (.-localStorage js/window) key))
+
+(comment
+  (set-ls! "cooc"
+           {:a 12
+            :b "foo"})
+  (get-ls "cooc")
+  (rf/dispatch [::save-to-ls [:auto-sim.canvas/canvas :canvas-1]])
+  ;
+)