 (defn draw [shape coords]
   (map (comp shape hex->svg) coords))
 
-(defn draw-marbles [color coords click]
-  (map #(marble color (click color %1) %2) coords (map hex->svg coords)))
-
 (def light-colors
   {:red :pink
    :blue :lightblue})


(defn draw-valid-marble-moves [component state]
  (let [[type & event-data] (:event state)]
    (when (= :marble-move type)
      (let [[color selected] event-data]
        (map (fn [hex]
               (marble (light-colors color)

    "render"
    (fn []
      (this-as this
         (let [state (.-wrapper (.-state this)) ]
           (svg {}
                (draw ring (:rings state))
                (draw-marbles this state :red )
                (draw-marbles this state :blue)
                (draw-valid-marble-moves this state)))))))

(defn start []
