             (map (fn [x] (dom/li nil (dom/button nil x)))
                  (:controls app))))
 (defn init-roots []
-  (om/root render-controls app-controls
+  (om/root render-controls run-controls
            {:target (. js/document (getElementById "controls"))})
-  (om/root render-events app-history
+  (om/root render-events run-history
            {:target (. js/document (getElementById "events"))})
-  (om/root render-world app-world
+  (om/root render-world run-world
            {:target (. js/document (getElementById "world"))})
-  (om/root render-world app-world
+  (om/root render-world run-world
            {:target (. js/document (getElementById "world-map"))})
-  (om/root render-world app-world-hover
+  (om/root render-world run-world-hover
            {:target (. js/document (getElementById "world-hover"))})
-  (om/root render-world app-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]

                  [21 :event [:a 21]]
                  [22 :event [:b 22]]]}))

(def app-world
  (atom {:a 10 :b 20 :c 30 :d 40}))

(def app-world-hover
  (atom nil))

(defn render-world [app owner]

  (render-world (get-in app [:snapshots ss-ts] nil) owner))

(defn event-focus [snapshot-ts event-ts]
  (when-let [ss (get-in @run-history [:snapshots snapshot-ts])]
    (reset! run-world-hover ss)))

(defn event-blur [snapshot-ts event-ts]
  (reset! run-world-hover nil))

(defn render-events [app owner]
  (apply dom/ul nil
