                          (call (.-drag force)))]
       (.. node-enter
           (append "svg:circle")
-          (attr {:class "node-stroke" :r 4})
+          (attr {:class "node-stroke" :r circle-size})
           (style {:fill (fn [d] (color (dec (:group d))))
                   :stroke "#fff"}))
       (.. node-enter (append "title") (text (fn [d] (:value d)))))

               :y 0
               :width width
               :height height})
        (style {:stroke "#000000"
                :fill "none"
                :stroke-width 5}))))


(defn update-graph
  "Updates nodes and links in graph"
  [state]
  (let [{:keys [svg width height data force color]} @state
        link (.. svg
                 (selectAll ".link")
                 (data (:links data)))

(strokes/bootstrap)

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