(def appstate
  (atom
    {:menu [
        {:name "Dashboard"  :path "/"               :icon "dashboard"}
                {:name "Analytics"  :path "/analytics"      :icon "analytics"}]
         :view nil
    }
  )
)

(defn refresh-navigation []
  (let [token (.getToken history)
        set-active (fn [nav]
          (assoc nav :active (= (:path nav) token)))]
    (swap! appstate #(map set-active %))))