                                              (-> (js* "this")
                                                  .-allNeighborsIndex
                                                  (aget node-id)
-                                                 goog.object/getKeys)) ; The graph keeps the neighbors as properties
+                                                 gobject/getKeys)) ; The graph keeps the neighbors as properties
                                            ))
 
 

                    (.startForceAtlas2 sig {:worker true :barnesHutOptimize false})
                    (js/setTimeout #(.stopForceAtlas2 sig) 5000)
                    ; Set the colors
                    (goog.object/forEach (-> sig .-graph .nodes)
                                         #(aset % "originalColor" (aget % "color")))
                    (goog.object/forEach (-> sig .-graph .edges)
                                         #(aset % "originalColor" (aget % "color")))

                    (.bind sig "clickNode"
                           (fn [clicked]

  )

(defn create-graph [base-code]
  (let [code    (lower-case base-code)
        sig     (js/sigma. (clj->js {:renderer
                                               {:type      "canvas"
                                                :container (.getElementById js/document "graph-container")}
