             "onClick"     click
             "key"         (str "ring:" x "," y)})))
 
+; draw-marbles, draw-valid-marble-moves
 (defn marble
   ([color coord] (marble color nil coord))
   ([color click [x y :as coord]]

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

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

                       (hex->svg hex)))
              (b/valid-destinations state selected))))))

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

; render, own ns?
(defn draw-marbles [component state color]
  (let [etype  (get-in state [:event 0])
        cp     (get-in state [:event 1])
