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

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

(ns defgraph.core
  (:gen-class)
  (:import com.mxgraph.layout.mxOrganicLayout
           com.mxgraph.util.mxPoint
           com.mxgraph.view.mxGraph
           javax.swing.JFrame
           com.mxgraph.swing.mxGraphComponent))

(def defs     (filter #(.isFile %) (.listFiles (java.io.File. "defs/runs"))))
(def vertices (map #(.getName %) defs))
