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

Fix #42

Browse Source
This commit is contained in:
mike-thompson-day8 2015-04-22 00:16:55 +10:00
parent 47153fe7e1
commit 6ed3ba1e1f
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
src/re_frame/handlers.cljs
View File

@ -52,6 +52,9 @@
;; -- lookup and call ----------------------------------------------------------------------------- ;; -- lookup and call -----------------------------------------------------------------------------
(def ^:dynamic *handling* nil) ;; remember what event we are currently handling
(defn handle (defn handle
"Given an event vector, look up the handler, then call it. "Given an event vector, look up the handler, then call it.
By default, handlers are not assumed to be pure. They are called with By default, handlers are not assumed to be pure. They are called with
@ -65,5 +68,8 @@
handler-fn (lookup-handler event-id)] handler-fn (lookup-handler event-id)]
(if (nil? handler-fn) (if (nil? handler-fn)
(warn "re-frame: no event handler registered for: \"" event-id "\". Ignoring.") ;; TODO: make exception (warn "re-frame: no event handler registered for: \"" event-id "\". Ignoring.") ;; TODO: make exception
(handler-fn app-db event-v)))) (if *handling*
(warn "re-frame: in the middle of handling \"" *handling* "\" tried to handle \"" event-v "\"")
(binding [*handling* event-v]
(handler-fn app-db event-v))))))