42 lines
988 B
Clojure
42 lines
988 B
Clojure
(ns re-frame.core
|
|
(:require
|
|
[re-frame.handlers :as handlers]
|
|
[re-frame.subs :as subs]
|
|
[re-frame.router :as router]
|
|
[re-frame.middleware :as middleware]))
|
|
|
|
|
|
;; -- API -------
|
|
|
|
(def dispatch router/dispatch)
|
|
(def dispatch-sync router/dispatch-sync)
|
|
|
|
(def register-sub subs/register)
|
|
(def subscribe subs/subscribe)
|
|
|
|
|
|
|
|
(def pure middleware/pure)
|
|
(def debug middleware/debug)
|
|
(def undoable middleware/undoable)
|
|
(def path middleware/path)
|
|
(def derive middleware/derive)
|
|
(def trim-v middleware/trim-v)
|
|
(def after middleware/after)
|
|
; (def log-events middleware/log-events)
|
|
|
|
|
|
|
|
;; -- Convenience API -------
|
|
|
|
;; Almost 100% of handlers will be pure, so make that easy by
|
|
;; registering with "pure" middleware in the correct position.
|
|
(defn register-handler
|
|
([id handler]
|
|
(handlers/register-base id pure handler))
|
|
([id middleware handler]
|
|
(handlers/register-base id [pure middleware] handler)))
|
|
|
|
|
|
|