            [nil []]
            (:events app)))))
 
-(defn render-controls[app owner]
-     (apply dom/ul nil
-            (map (fn [[k v]]
-                   (dom/li nil
-                           (dom/button #js {:onClick v}
-                                       k)))
-                 (:controls app))))
-
 (defn init-roots []
   (om/root render-controls run-controls
            {:target (. js/document (getElementById "controls"))})
-  (om/root render-events run-history
-           {:target (. js/document (getElementById "events"))})
   (om/root render-world run-world
            {:target (. js/document (getElementById "world"))})
   (om/root render-world run-world

  (om/root render-world run-world-hover
           {:target (. js/document (getElementById "world-hover"))})
  (om/root render-world run-world-hover
           {:target (. js/document (getElementById "world-map-hover"))}))

(defn world-vis-init [el-prefix init-event-delay]
  (init-roots)


; -------------------------------------------------------------------

(defn render-controls[app owner]
     (apply dom/ul nil
            (map (fn [[k v]]
                   (dom/li nil
                           (dom/button #js {:onClick v}
                                       k)))
                 (:controls app))))

(defn render-world [app owner]
  (apply dom/ul nil
         (map (fn [[k v]] (dom/li nil (str k ":" v))) app)))
