     (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/dispatch! (.-token event))))
  (.setEnabled history true))

(def default-init-state
  {:search ""
   :word-map {}
   :visible [] ;; XXX: Bad name, visible items.
   :hidden {:view false
            :add true
            :search true
            :menu false}
   :current-item 0
   :items []})

(defonce app-state
  (atom (fetch "unfolds" default-init-state)))

#_(defonce app-state (atom {:search ""
                          :word-map {"Ogden" [0]
                                     "Foo" [1]} ;; populate this, oh
                          :visible [] ;; XXX: Bad name, visible items.
