     (.. force
         (charge -550)
         (gravity 0.5)
-        (linkDistance 10)
+        (linkDistance link-dist)
         (friction 0.1)
         (size [width height])
         (nodes (:nodes data))

(strokes/bootstrap)

(def graph-state (atom {:svg nil
                        :width 800
                        :height 800
                        :frame "#graph-container"
                        :color nil
                        :force nil

                                             :id "graph-svg"
                                             :height height})))
    (swap! state assoc-in [:force] force)
    (swap! state assoc-in [:circle-size] (/ height 256))
    (swap! state assoc-in [:link-dist] (/ height 128))
    (swap! state assoc-in [:color] ["purple" "steelblue" "orange" "green" "red" ])
    (update-graph state)))

