          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)]


; These things should be a multi method that dispatches on state. Or I could
; have state records with a draw protocol.
(defn draw-potential-rings [component state]
  (let [[type & event-data] (:event state)
        coords (:rings state)]

         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)
