 (defn update-location
   [{:keys [handler route-params] :as params}]
   (reify
-    IPrintWithWriter
-    (-pr-writer [mv writer x]
-      (-write writer "#<event:router/update-location ")
-      (-pr-writer params writer x)
-      (-write writer ">"))
-
     rs/UpdateEvent
     (-apply-update [_ state]
       (merge state

  ([name params]
   {:pre [(keyword? name)]}
   (reify
     IPrintWithWriter
     (-pr-writer [mv writer _]
       (-write writer "#<event:router/navigate>"))

     rs/EffectEvent
     (-apply-effect [_ state]
       (let [loc (merge {:handler name}


(enable-console-print!)

(def +router+ nil)

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Events
