 (ns defgraph.core
   (:gen-class)
-  (:import com.mxgraph.swing.mxGraphComponent
+  (:import com.mxgraph.layout.mxOrganicLayout
+           com.mxgraph.util.mxPoint
            com.mxgraph.view.mxGraph
            javax.swing.JFrame
-           com.mxgraph.layout.mxOrganicLayout))
+           com.mxgraph.swing.mxGraphComponent))
 
 (def defs     (filter #(.isFile %) (.listFiles (java.io.File. "defs/runs"))))
 (def vertices (map #(.getName %) defs))

          mx (mxGraph.)
          model (.getModel mx)
          root (.getDefaultParent mx)
          height 600
          width 800]
      (doto mx
        (.setCellsDisconnectable false)
        (.setCellsEditable false)

      (do
        (.beginUpdate model)
        (let [vs (:v g)
              fmkv #(.insertVertex mx root nil % (rand-int width) (rand-int height) 0 0)
              vmap (apply hash-map (interleave vs (map fmkv vs)))]
          (doseq [[label cell] vmap]
            (.setConnectable cell false)
