 (strokes/bootstrap)
 
 (def graph-state (atom {:svg nil
-                        :width 800
-                        :height 800
+                        :width 2048
+                        :height 2048
                         :frame "#graph-container"
                         :color nil
                         :force nil

               :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)))

                         (call (.-drag force)))]
      (.. node-enter
          (append "svg:circle")
          (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)))))
