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

               selected-vertex-size
               toggle-between-sizes)))

(defn edit-vertex-or-connections [clicked-vertex world-state]
  (let [selected (:selected world-state)]
    (if (= selected clicked-vertex)
      (toggle-vertex-size selected world-state)
      (add-or-delete-edge selected clicked-vertex world-state))))

(def vertex-regex (re-pattern (str vert-id ".*")))
(def edge-regex (re-pattern (str edge-id ".*")))

(defn handle-selected [clicked-what event world-state]
  (let [clicked-vertex? (re-matches vertex-regex clicked-what)]

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