Fix page history

This commit is contained in:
Dan Holmsand 2015-09-08 19:35:05 +02:00
parent 56527ed6e0
commit d728820191
1 changed files with 2 additions and 2 deletions

View File

@ -90,8 +90,8 @@
(History.)))
(evt/listen hevt/NAVIGATE #(dispatch [:set-page (.-token %)]))
(.setEnabled true))
(when (and page (not html5) (empty? (.getToken history)))
(dispatch [:set-page page])))))
(when (and page (not html5) (-> history .getToken empty?))
(.setToken history page)))))
(defn to-relative [f]
(string/replace f #"^/" ""))