                   [21 :event [:a 21]]
                   [22 :event [:b 22]]]}))
 
-(def app-world
+(def run-world
   (atom {:a 10 :b 20 :c 30 :d 40}))
 
-(def app-world-hover
+(def run-world-hover
   (atom nil))
 
 (defn render-world [app owner]

            (map (fn [x] (dom/li nil (dom/button nil x)))
                 (:controls app))))
(defn init-roots []
  (om/root render-controls app-controls
           {:target (. js/document (getElementById "controls"))})
  (om/root render-events app-history
           {:target (. js/document (getElementById "events"))})
  (om/root render-world app-world
           {:target (. js/document (getElementById "world"))})
  (om/root render-world app-world
           {:target (. js/document (getElementById "world-map"))})
  (om/root render-world app-world-hover
           {:target (. js/document (getElementById "world-hover"))})
  (om/root render-world app-world-hover
           {:target (. js/document (getElementById "world-map-hover"))}))

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

  (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
