gered/webtools
Archived
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

update hook-browser-navigation! to better allow re-initialization

Browse source 
e.g. this is useful when using figwheel where you might have a call to
hook-browser-navigation! in your page-load initialization. before,
repeated calls to hook-browser-navigation! in this kind of scenario
would result in some javascript errors after the first figwheel reload.
This commit is contained in:
Gered 2016-06-17 14:26:53 -04:00
parent 9d045ea523
commit e543af99f3
1 changed files with 9 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

14
src/webtools/cljs/utils.cljs
View file

@ -55,13 +55,17 @@
(-> (str (context-url) url) (-> (str (context-url) url)
(string/replace #"(/+)" "/"))) (string/replace #"(/+)" "/")))
(defonce navigate-history (History.))
(defn- on-navigate-event
[event]
(secretary/dispatch! (.-token event)))
(defn hook-browser-navigation! (defn hook-browser-navigation!
[] []
(doto (History.) (doto navigate-history
(events/listen (.setEnabled false)
EventType/NAVIGATE (events/listen EventType/NAVIGATE on-navigate-event)
(fn [event]
(secretary/dispatch! (.-token event))))
(.setEnabled true))) (.setEnabled true)))
(defn redirect! (defn redirect!