       (.-id)))
 
 
+
 (defn name-edges [bare-edges]
   (let [edge-ids (map (partial str "edge") (range))]
     (into {}
         (map vector edge-ids bare-edges))))
+
+
 
 (defn ok-to-flip? [{:keys [vertices edges]} [_ to color]]
   (let [edge-value (color->value color)
         to-inflow (inflow edges to)
         to-vertex-value (first (vertices to))]
     (>= (- to-inflow edge-value) to-vertex-value)))
+
 
 
 (defn prepare-edge [locations world-state [start end color :as edge]]

        :r (+ 5 (* weight 10))
        :fill (if (> free 0)
                "white"
                "black ")
        :stroke "black"
        :stroke-width 3
        }]

       (str free) ]))
  )



(defn event->targetid [e]
  (-> e
      (js->clj)
