yogsototh/freactive
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Work on IReactive.

Browse source
This commit is contained in:
Aaron Craelius 2014-07-10 16:20:47 -04:00
parent 7fe727ba15
commit 5e8c7880f9
1 changed files with 9 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

13
src/clojure/freactive/core.clj
View file

@ -59,13 +59,18 @@ current value. Returns newval."
(defrecord ReactiveState [dirty value f deps sully-fn])
(defprotocol IReactive
(recompute! [this])
(rebind! [this f]))
(force-recompute! [this])
(rebind! [this f])
(deactivate! [this]))
(defrecord Reactive [data]
IReactive
(recompute! [this] (swap! data assoc :dirty true))
(rebind! [this f] (swap! data merge {:dirty true :f f :deps nil}))
(force-recompute! [this] (clojure.core/swap! data merge {:dirty true :deps nil}))
(rebind! [this f] (clojure.core/swap! data merge {:dirty true :f f :deps nil}))
(deactivate! [this]
(clojure.core/swap! data (fn [{:keys [deps sully-fn] :as state}]
(doseq [d deps] (remove-watch d sully-fn))
(merge state {:deps nil :dirty false}))))
clojure.lang.IDeref
(deref [this]
(*register-dep* this)