                   (recur))))))))))
 
 (defn show-ant [cell]
-  (let [style {:style {:color (if (get-in cell ["Object" "Mine"]) color-my-ant color-their-ant)
+  (let [style {:style {:color (if (get-in cell ["Object" "Mine"]) @color-my-ant color-their-ant)
                        :position "absolute"
                        :top "0px"
                        :right "3px"}}]

        (let [rows (get world "Points")]
          (dom/div nil
                   (dom/table nil (apply dom/tbody nil (om/build-all row-view rows)))
                   (om/build friend-view (get world "Friends"))))))
    om/IDidMount
    (did-mount [_]
      (set! (.-onkeydown js/document.body)

(def color-rock "#7c7c7c")
(def color-colony "#3d2501")
(def color-phermone "#505ffc")
(def color-my-ant (atom "#b50c03"))
(def color-their-ant "#000")
(def color-friend "#1f6d1f")
(def color-enemy "#9e1914")
