status-im/re-frame
2
0
Fork 0
mirror of https://github.com/status-im/re-frame.git synced 2025-02-23 23:38:11 +00:00
Code Issues Projects Releases Wiki Activity

added a dispatch-sync

Browse Source
This commit is contained in:
Stuart Mitchell 2015-01-06 10:49:20 +13:00
parent d733c9c6b1
commit f442460905
1 changed files with 10 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
src/re_frame/handlers.cljs
View File

@ -31,16 +31,21 @@
(assert (some? event-v)) ;; nil would close the channel (assert (some? event-v)) ;; nil would close the channel
(put! dispatch-chan event-v)) (put! dispatch-chan event-v))
(defn dispatch-sync
"sync version of above that actually does the dispatch"
[event-v]
(let [event-id (first-in-vector event-v)
handler-fn (get @id->fn event-id)]
(assert (not (nil? handler-fn)) (str "No event handler registered for event: " event-id ))
(handler-fn app-db event-v)))
(defn- router (defn- router
"route an event, arriving on the dispatch channel, to the right handler" "route an event, arriving on the dispatch channel, to the right handler"
[] []
(go-loop [] (go-loop []
(let [event-v (<! dispatch-chan) (let [event-v (<! dispatch-chan)]
event-id (first-in-vector event-v) (dispatch-sync event-v)
handler-fn (get @id->fn event-id)]
(assert (not (nil? handler-fn)) (str "No event handler registered for event: " event-id ))
(handler-fn app-db event-v)
(recur)))) (recur))))
(router) ;; run the router loop it (router) ;; run the router loop it