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

(defn draw-slices
  "Draw n * m slices from the collection"
  [n slices positions]
  (map
    (fn [k] (map vector
              (repeat (nth slices k))
              (subvec positions (* k n) (* (inc k) n))

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

