From ec0b383ed3d333f2f9dabc0f1f9c2cb2accc156f Mon Sep 17 00:00:00 2001 From: mike-thompson-day8 Date: Sat, 7 Mar 2015 21:36:17 +1100 Subject: [PATCH] Rework todomvc history --- examples/todomvc/src/todomvc/core.cljs | 13 ++++++------- 1 file changed, 6 insertions(+), 7 deletions(-) diff --git a/examples/todomvc/src/todomvc/core.cljs b/examples/todomvc/src/todomvc/core.cljs index cf3b83f..40af060 100644 --- a/examples/todomvc/src/todomvc/core.cljs +++ b/examples/todomvc/src/todomvc/core.cljs @@ -13,17 +13,16 @@ (enable-console-print!) -;; -- Routing ----------------------------------------------------------------- +;; -- Routes and History ------------------------------------------------------ (defroute "/" [] (dispatch [:set-showing :all])) (defroute "/:filter" [filter] (dispatch [:set-showing (keyword filter)])) -(def history (History.)) - -(events/listen history EventType.NAVIGATE - (fn [e] (secretary/dispatch! (.-token e)))) - -(.setEnabled history true) +(def history + (doto (History.) + (events/listen EventType.NAVIGATE + (fn [event] (secretary/dispatch! (.-token event)))) + (.setEnabled true))) ;; -- Entry Point -------------------------------------------------------------