       (edit-vertex-or-connections clicked-what world-state)
       (move-the-vertex event world-state))))
 
+
+
 (defn select-vertex [world-state clicked-vertex]
   (merge world-state {:selected clicked-vertex}))
+
+
 
 (defn toggle-edge-value [world-state clicked-edge]
   (let [clicked-edge-color [:edges clicked-edge 2]
         toggle-color {:red :blue :blue :red}]
     (update-in world-state clicked-edge-color toggle-color)))
+
+
 
 (defn handle-unslected [clicked-what world-state]
   (let [clicked-edge? (re-matches edge-regex clicked-what)

       (apply str)
       (js/parseInt)))

(defn largest-key [{:keys [edges]}]
  (-> (map get-key (keys edges))
      (sort)
      (reverse)
      (first)))

(defn next-key [key-num]
  (str edge-id (inc key-num)))

(defn first-connected-edge [from to {:keys [edges]}]
  (let [connected-either-way? #{[from to] [to from]}

        connected? (comp connected-either-way? get-edge-ends)]
    (first (filter connected? edges))))



(defn make-new-edge [from to world-state]
  (let [next-to-largest-key (next-key (largest-key world-state))]
    [next-to-largest-key [from to :red]]))



(defn add-or-delete-edge [from to world-state]
  (let [connected-id (first (first-connected-edge from to world-state))
