gistfile1.clj

(def current-page (atom nil))

(def history (History.))

(defn change-page [newPage]
  (.setToken history newPage)
  (reset! current-page newPage))

...

(defn start []
  (secretary/set-config! :prefix "#")
  (goog.events/listen history EventType/NAVIGATE #(secretary/dispatch! (.-token %)))
  (add-navbar)
  ; TODO: use server push
  (js/setInterval #(sync-user-data nil) 3000)

  (.setEnabled history true))

(set! (.-onload js/window) #(em/wait-for-load (sync-user-data start)))