pushState.cljs

(def history (Html5History.))
(.setUseFragment history false)
(.setPathPrefix history "")
(.setEnabled history true)

(let [navigation (listen history EventType/NAVIGATE)]
  (go 
     (while true
       (let [token (.-token (<! navigation))]
         (secretary/dispatch! token)))))

(events/listen js/document "click" (fn [e]
                                     (let [path (.getPath (.parse Uri (.-href (.-target e))))
                                           title (.-title (.-target e))]
                                       (when (secretary/any-matches? path)
                                         (. history (setToken path title))
                                         (.preventDefault e)))))