     (fn [r [color [x y]]] (assoc-in r [x y] color))
     empty-board (init-positions)))
 
-(defn new-game []
-  {:board (new-board)
-   :turn 0
-   ;; From the turn you can deduce the number of turn left
-   ;; There is an invariant holding: total score = 12 * 3 + turn
-   ;; TODO - Enhance the display to show the available moves (compute them once)
-   :player (rand-nth players)
-   :scores
-   {:blue 12
-    :red 12
-    :green 12}})
-
-
-;; -----------------------------------------
-;; TAKING CELLS
+
+;; -----------------------------------------
+;; IDENTIFY CONVERTIBLE CELLS
 ;; -----------------------------------------
 
 (defn range-single-coord

   :looser :empty
   :taken [pos]})


;; -----------------------------------------
;; ON PLAYER MOVE

;; -----------------------------------------
;; GAME STATE
;; -----------------------------------------

(defn new-game []
  (with-available-moves
    {:board (new-board)
     :player (rand-nth players)
     :scores
     {:blue 12
      :red 12
      :green 12}}))

(defonce app-state (atom (new-game)))
(def board (reagent/cursor app-state [:board]))
