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

(defn new-board
  "Create a new board"
  []
  empty-board)

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


     (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])
       ))
   ])

