-; You shouldn't be able to move your marble once you've entered :marble-moved
 (ns nonaga.draw
   (:use [nonaga.react :only [circle svg create-class render-component]])
   (:require [nonaga.core :as n]

(defn start-marble-move [component color coord]
  (update-state component #(assoc % :event [:marble-selected color coord])))

(defn draw-marbles [component state color]
  (let [cp     (get-in state [:event 1])
        coords (color state)

  (js/console.log (str (.-wrapper (.-state js/board))))
  false)

; This is the same as start-marble-move
(defn ring-selected [component color coord]
  (update-state component #(assoc % :event [:ring-selected color coord])))

