status-im
/
re-frame
mirror of https://github.com/status-im/re-frame.git
2
0
Fork 0
Code Issues Projects Releases Wiki Activity

Rework todomvc history

This commit is contained in:
mike-thompson-day8 2015-03-07 21:36:17 +11:00
parent c50f88caf0
commit ec0b383ed3
1 changed files with 6 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
examples/todomvc/src/todomvc/core.cljs
View File

@ -13,17 +13,16 @@
(enable-console-print!) (enable-console-print!)
;; -- Routing ----------------------------------------------------------------- ;; -- Routes and History ------------------------------------------------------
(defroute "/" [] (dispatch [:set-showing :all])) (defroute "/" [] (dispatch [:set-showing :all]))
(defroute "/:filter" [filter] (dispatch [:set-showing (keyword filter)])) (defroute "/:filter" [filter] (dispatch [:set-showing (keyword filter)]))
(def history (History.)) (def history
(doto (History.)
(events/listen history EventType.NAVIGATE (events/listen EventType.NAVIGATE
(fn [e] (secretary/dispatch! (.-token e)))) (fn [event] (secretary/dispatch! (.-token event))))
(.setEnabled true)))
(.setEnabled history true)
;; -- Entry Point ------------------------------------------------------------- ;; -- Entry Point -------------------------------------------------------------