status-im
/
re-frame
mirror of https://github.com/status-im/re-frame.git
2
0
Fork 0
Code Issues Projects Releases Wiki Activity

v0.8.0-alpha3

This commit is contained in:
Mike Thompson 2016-07-24 17:13:15 +10:00
parent 658f3b0232
commit f5175223d5
2 changed files with 1 additions and 24 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
project.clj
View File

@ -1,4 +1,4 @@
(defproject re-frame "0.8.0-SNAPSHOT"
(defproject re-frame "0.8.0-alpha3"
:description "A Clojurescript MVC-like Framework For Writing SPAs Using Reagent."
:url "https://github.com/Day8/re-frame.git"
:license {:name "MIT"}

23
src/re_frame/fx.cljc
View File

@ -69,29 +69,6 @@
(dispatch-helper val)))
#_(register
:forward-events
(let [id->listen-fn (atom {})
process-one-entry (fn [{:as m :keys [unlisten listen events dispatch-to]}]
(let [_ (assert (map? m) (str "re-frame: effects handler for :forward-events expected a map or a list of maps. Got: " m))
_ (assert (or (= #{:unlisten} (-> m keys set))
(= #{:listen :events :dispatch-to} (-> m keys set))) "re-frame: effects handler for :forward-events given wrong map keys")]
(if unlisten
(do
(re-frame.core/remove-post-event-callback (@id->listen-fn unlisten))
(swap! id->listen-fn dissoc unlisten))
(let [post-event-callback-fn (fn [event-v _]
(when (events (first event-v))
(dispatch (conj dispatch-to event-v))))]
(re-frame.core/add-post-event-callback post-event-callback-fn)
(swap! id->listen-fn assoc listen post-event-callback-fn)))))]
(fn [val]
(cond
(map? val) (process-one-entry val)
(seq? val) (doall (map process-one-entry val))) ;; XXX add else
)))
(register
:deregister-event-handler
(fn [val]