             (.send xhr)))))))
 
 
-(def access-token (atom nil))
-
-
 (defn set-access-token-cookie [token]
-  (.set goog.net.cookies "FCtoken" token 300))
+      (.set goog.net.cookies "FCtoken" token 300))
 
 
 (defn get-access-token-cookie []
-  (.get goog.net.cookies "FCtoken"))
+      (.get goog.net.cookies "FCtoken"))
 
 
 (defn ajax-orch [path arg-map & {:keys [service-prefix] :or {service-prefix "/service/api"}}]

 (fn [k r os ns]
   (local-storage-write ::use-live-data? ns true)))


(defn ajax [arg-map]
  (let [url (:url arg-map)

  (js->clj (js/JSON.parse x)))


(defn keywordize-keys [m]
      (into {} (map (fn [[k v]]
                        [(keyword k) (if (map? v) (keywordize-keys v) v)])
                    m)))

(defn local-storage-write
  ([k v] (local-storage-write k v false))
  ([k v stringify?]
