 (defn start-marble-move [component color coord]
   (update-state component #(assoc % :event [:marble-selected color coord])))
 
+; You shouldn't be able to move your marble once you've entered :marble-moved
 (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 shit is the same as start-marble-move
(defn ring-selected [component color coord]
  (update-state component #(assoc % :event [:ring-selected color coord])))


(ns nonaga.draw
  (:use [nonaga.react :only [circle svg create-class render-component]])
  (:require [nonaga.core :as n]
