           (reduce
            (fn [[last-snapshot-ts res] [ts kind args]]
              (if (= kind :snapshot)
-               [ts
-                (conj res
-                      (dom/li #js {:className "snapshot"
-                                   :onMouseEnter #(on-event-focus ts nil)
-                                   :onMouseLeave #(on-event-blur ts nil)}
-                              (str ts)))]
+               [ts (conj res
+                         (dom/li #js {:className "snapshot"
+                                      :onMouseEnter #(on-event-focus ts nil)
+                                      :onMouseLeave #(on-event-blur ts nil)}
+                                 (str ts)))]
                [(or last-snapshot-ts ts)
                 (conj res
                       (dom/li #js {:onMouseEnter

            [cbfg.lane]))

;; TODO: How to assign locations to world entities before rendering?

(def run-history
  (atom {:snapshots {0 {}


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

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