       (handle-playing clicked-what world-state))))
 
 
-(defn parse-state [state]
-  (let [named-edges (update-in state [:edges]
-                               (comp name-vertices-in-all-edges name-edges))
-        named-vertices (update-in named-edges [:vertices] name-vertices)
-        added-edit (merge named-vertices {:editing? false
-                                          :selected nil})]
-    added-edit))
-
 (defn reset-edit [state]
   (merge state {:editing? false
                 :selected nil}))

   (locations end)
   color
   (ok-to-flip? world-state edge)])




      (.-id)))



(defn fmap [f m]
  (into {} (for [[k v] m] [k (f v)])))


(defn ok-to-flip? [{:keys [vertices edges]} [_ to color]]
  (let [edge-value (color->value color)
