                (om/build opponent-view cursor)
             (= (:type found) :loose-ball)
                (om/build ball-view cursor)))))))
-
 
 (defn ball-view [cursor owner]
   (reify

                           #(if (= player-to-move %)
                                  (assoc % :x x :y y)
                                  %)
                         cs)))))
              (println (:cells app))))
            (recur)))))
    om/IRenderState
    (render-state [this {:keys [move]}]

                 (= (:y position) (:y %)))
               (:cells (om/root-cursor app-state)))))

(defn highlight-tile [e]
 (set! (.. e -target -style -background) "gray"))

(defn update-piece-position [e state]
  (om/transact! (om/root-cursor app-state) :cells #(conj {:type :my-team :x 1 :y 8})))
