 
 (defn empty-cell
   "Draws an empty cell"
-  [x y]
+  [x y color]
   [:rect {:width 0.9
           :height 0.9
           :x (+ 0.05 x)

     (for [[x y] all-positions]
       ^{:key [x y]}
       (case (get-in @app-state [:board x y])
         :empty  [empty-cell x y])
       ))
   ])


(defn new-board
  "Create a new board"
  []
  (reduce (fn [r [color [x y]]]
            (prn [x y])
            (assoc-in r [x y] color))
    empty-board (init-positions)))

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

