gered/views.reagent
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

add refcounting to view subscriptions / unsubscriptions

Browse source 
to know when it requests should be sent to the server to subscribe
and when to unsubscribe (if multiple components subscribed to the same
view-sig, etc)
This commit is contained in:
Gered 2014-12-26 23:51:49 -05:00
parent a91876b7da
commit 32b9a4b635
1 changed files with 19 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

24
src/cljs/reagent_data_views/client/core.cljs
View file

@ -27,7 +27,17 @@
this cursor to change the data will *not* propagate to the server or this cursor to change the data will *not* propagate to the server or
any other clients currently subscribed to this view." any other clients currently subscribed to this view."
[view-sig] [view-sig]
(r/cursor [view-sig] view-data)) (r/cursor [view-sig :data] view-data))
(defn- inc-view-sig-refcount! [view-sig]
(let [path [view-sig :refcount]]
(swap! view-data update-in path #(if % (inc %) 1))
(get-in @view-data path)))
(defn- dec-view-sig-refcount! [view-sig]
(let [path [view-sig :refcount]]
(swap! view-data update-in path #(if % (dec %) 0))
(get-in @view-data path)))
(defn- add-initial-view-data! [view-sig data] (defn- add-initial-view-data! [view-sig data]
(let [cursor (view-sig-cursor view-sig)] (let [cursor (view-sig-cursor view-sig)]
@ -68,8 +78,10 @@
the server is cleared." the server is cleared."
[view-sigs] [view-sigs]
(doseq [view-sig view-sigs] (doseq [view-sig view-sigs]
(remove-view-data! view-sig) (let [refcount (dec-view-sig-refcount! view-sig)]
(browserchannel/send :views.unsubscribe [view-sig]))) (when (<= refcount 0)
(remove-view-data! view-sig)
(browserchannel/send :views.unsubscribe [view-sig])))))
(defn subscribe! (defn subscribe!
"Subscribes to the specified view(s). Updates to the data on the server will "Subscribes to the specified view(s). Updates to the data on the server will
@ -77,8 +89,10 @@
render it in any component(s)." render it in any component(s)."
[view-sigs] [view-sigs]
(doseq [view-sig view-sigs] (doseq [view-sig view-sigs]
(add-initial-view-data! view-sig nil) (let [refcount (inc-view-sig-refcount! view-sig)]
(browserchannel/send :views.subscribe [view-sig]))) (when (= refcount 1)
(add-initial-view-data! view-sig nil)
(browserchannel/send :views.subscribe [view-sig])))))
(defn update-subscriptions! (defn update-subscriptions!
"Unsubscribes from old-view-sigs and then subscribes to new-view-sigs. This "Unsubscribes from old-view-sigs and then subscribes to new-view-sigs. This