   [:div
    [:main]
    [:div "this is the story of tropefest... work in progress"]
-   ]
-  )
+   ])
 
 
 ; Graph!
+
+
+(def state (atom {:graph null}))
 
 (-> js/sigma .-classes .-graph (.addMethod "neighbors",
                                            (fn [node-id]

            [reagent-forms.core :refer [bind-fields]]
            [ajax.core :refer [POST]])
  (:require-macros [secretary.core :refer [defroute]]))




(defn in-seq? [s x]
  (some? (some #{x} s)))

(defn create-graph [code]
  (js/sigma.parsers.json (str js/context "/api/network/" code)
                         (clj->js {
                                   :renderer {:container (.getElementById js/document "container")
                                              :type      "canvas"
