2015-02-25 11:03:02 +00:00
|
|
|
(ns re-frame.core
|
|
|
|
(:require
|
2015-02-25 11:03:25 +00:00
|
|
|
[re-frame.handlers :as handlers]
|
|
|
|
[re-frame.subs :as subs]
|
|
|
|
[re-frame.middleware :as middleware]))
|
2015-02-25 11:03:02 +00:00
|
|
|
|
|
|
|
|
|
|
|
;; -- API -------
|
|
|
|
|
|
|
|
(def register-handler handlers/register)
|
|
|
|
(def dispatch handlers/dispatch)
|
|
|
|
(def dispatch-sync handlers/dispatch-sync)
|
|
|
|
|
|
|
|
(def register-subs subs/register)
|
|
|
|
(def subscribe subs/subscribe)
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
(def pure middleware/pure)
|
|
|
|
(def undoable middleware/undoable)
|
|
|
|
(def path middleware/path)
|
|
|
|
(def validate middleware/validate)
|
|
|
|
(def log-events middleware/log-events)
|
|
|
|
(def apply-event middleware/apply-event)
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
;; -- Convienience API -------
|
|
|
|
|
|
|
|
;; virtually ever handler will be pure, make it easy
|
|
|
|
(defn register-pure-handler
|
|
|
|
([id handler]
|
|
|
|
(register-handler id pure handler))
|
|
|
|
([id middleware handler]
|
2015-02-25 11:03:25 +00:00
|
|
|
(register-handler id (comp pure middleware) handler)))
|