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

Merge branch 'master' of github.com:kirasystems/views

Browse source
This commit is contained in:
Alexander Hudek 2015-07-08 21:56:36 -04:00
parent fdc777a6be 8815dfc14c
commit 6131e020a6
1 changed files with 8 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
src/views/core.clj
View file

@ -48,11 +48,15 @@
(defn subscribe! (defn subscribe!
[view-system namespace view-id parameters subscriber-key] [view-system namespace view-id parameters subscriber-key]
(if-let [view (get-in @view-system [:views view-id])] (when-let [view (get-in @view-system [:views view-id])]
(future (future
(let [vdata (data view namespace parameters)] (try
(swap! view-system subscribe-view! [namespace view-id parameters] subscriber-key (hash vdata)) (let [vdata (data view namespace parameters)]
((get @view-system :send-fn) subscriber-key [[view-id parameters] vdata]))))) (swap! view-system subscribe-view! [namespace view-id parameters] subscriber-key (hash vdata))
((get @view-system :send-fn) subscriber-key [[view-id parameters] vdata]))
(catch Exception e
(error "error subscribing:" namespace view-id parameters
"e:" e "msg:" (.getMessage e)))))))
(defn remove-from-subscribers (defn remove-from-subscribers
[view-system view-sig subscriber-key] [view-system view-sig subscriber-key]