          coords (map hex->svg coords))))
 
 ; Same as move-marble
+; draw-potential-rings
 (defn move-ring [component color from to]
   (update-state component
                 #(-> % (n/move-ring from to)

            [nonaga.rules.rings :as r])
  (:use-macros [dommy.macros :only [sel1]]))

(defn hex->svg [[hex-x hex-y]]
  (let [width  40
        half (/ width 2)

         coords (map hex->svg coords))))

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

; render. own ns?
(defn draw-rings [component state]
  (let [[type & event-data] (:event state)
        coords (:rings state)]
