    (interceptor/get-effect context key not-found)))
 
 (defn assoc-effect
+  "Returns a new `context` with a new effects map that contains `key`
+   mapped to the `value`."
   [context key value]
   (interceptor/assoc-effect context key value))
 

;; --  Deprecation ------------------------------------------------------------
;; Assisting the v0.7.x ->  v0.8.x transition.
(defn register-handler
  {:deprecated "0.8.0"}
  [& args]
  (console :warn  "re-frame:  \"register-handler\" has been renamed \"reg-event-db\" (look for registration of" (str (first args)) ")")
  (apply reg-event-db args))

(defn register-sub
  {:deprecated "0.8.0"}
  [& args]
  (console :warn  "re-frame:  \"register-sub\" is deprecated. Use \"reg-sub-raw\" (look for registration of" (str (first args)) ")")

   (events/register id [cofx/inject-db fx/do-fx interceptors (ctx-handler->interceptor handler)])))

(defn clear-event ;; think unreg-event-*
  "When called with no args, unregisters all event handlers. When given one arg,
   assumed to be the `id` of a registered event handler, unregisters the 
   associated handler."  
  ([]
   (registrar/clear-handlers events/kind))
  ([id]
