v0.8.0-alpha3
This commit is contained in:
parent
658f3b0232
commit
f5175223d5
|
@ -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"}
|
||||
|
|
|
@ -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]
|
||||
|
|
Loading…
Reference in New Issue