Example using pushState with ClojureScript + Secretary

pushState.cljs

; require [goog.events :as events]
; import [goog.history Html5History]
;        [goog Uri]
;        [goog.history EventType]

(defn listen [el type]
  (let [out (chan)]
    (events/listen el type
      (fn [e] (put! out e)))
    out))

(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))
                                           matches-path? (secretary/locate-route path)]
                                       (when matches-path?
                                         (. history (setToken path title))
                                         (.preventDefault e)))))

secretary's API changed and now we use secretary/locate-route instead of secretary/any-matches?