     (render-state [this {:keys [chan] :as state}]
       (dom/div nil
                ;; TODO: Make these into four separate components
-
+               
                ;; Menu bar
                (dom/div #js {:style (hidden (-> app :hidden :menu))}
                         (dom/p nil (dom/h1 nil "Unfolds")

          (if value (method app value) (method app)))))))

(defn app-view [app owner]
  (reify
    om/IInitState
    (init-state [_]

            [secretary.core :as secretary])
  (:import goog.History))

;; From http://adambard.com/blog/a-simple-clojurescript-app/

(defn keywordify [m]
  (cond
   (map? m) (into {} (for [[k v] m] [(keyword k) (keywordify v)]))
   (coll? m) (vec (map keywordify m))
   :else m))

(defn fetch [k default]
  (let [item (.getItem js/localStorage k)]
    (if  (and item (not= item "null")) ;; "null" is true, fuck you js.
      (-> (.getItem js/localStorage k)
          (or (js-obj))
          (js/JSON.parse)
          (js->clj)
          (keywordify))
      default)))

(defn store [k obj]
  (.setItem js/localStorage k (js/JSON.stringify (clj->js obj))))

(def base-url (atom ""))

