Override clojure get in localstorage ns

This commit is contained in:
chris (daiyi) 2017-08-24 12:25:34 +02:00 committed by Daniel Compton
parent 21406bb3b4
commit 85d274a528
2 changed files with 4 additions and 3 deletions

View File

@ -188,7 +188,7 @@
(defn render-trace-panel [] (defn render-trace-panel []
(let [filter-input (r/atom "") (let [filter-input (r/atom "")
filter-items (r/atom (or (localstorage/load "filter-items") filter-items (r/atom (or (localstorage/get "filter-items")
[])) []))
filter-type (r/atom :contains) filter-type (r/atom :contains)
input-error (r/atom false) input-error (r/atom false)

View File

@ -1,14 +1,15 @@
(ns day8.re-frame.trace.localstorage (ns day8.re-frame.trace.localstorage
(:require [goog.storage.Storage :as Storage] (:require [goog.storage.Storage :as Storage]
[goog.storage.mechanism.HTML5LocalStorage :as html5localstore] [goog.storage.mechanism.HTML5LocalStorage :as html5localstore]
[cljs.reader :as reader])) [cljs.reader :as reader])
(:refer-clojure :exclude [get]))
(def mech (goog.storage.mechanism.HTML5LocalStorage.)) (def mech (goog.storage.mechanism.HTML5LocalStorage.))
(defn- storage [] (defn- storage []
(goog.storage.Storage. mech)) (goog.storage.Storage. mech))
(defn load [key] (defn get [key]
(when-let [value (.get (storage) key)] (when-let [value (.get (storage) key)]
(cljs.reader/read-string value))) (cljs.reader/read-string value)))