 
   (defcard map
     (let [g (transitive-reduction frontend-graph)
-          columns (build-columns {:graph g
-                                  :remaining-ranks (reverse (ranks g))
-                                  :columns ()})
-          edges (conj (g/edges g)
-                      ["cljsbuild_test" "precompile_assets"]
-                      ["npm_bower_dependencies" "cljsbuild_whitespace"])
           config {:box-width 150
                   :box-height 40
                   :x-spacing 100
                   :y-spacing 10
                   :strut-spacing 20
                   :arrow-radius 10}]
-      (html
-       [:div
-        #_(show-columns columns)
-        (map-svg config columns (g/edges g))
-        (map-svg config (-> columns
-                            vec
-                            (assoc 2 [nil "cljsbuild_test" "cljsbuild_whitespace" "cljsbuild_production" "clojure_test"]))
-                 edges)
-        (map-svg config (-> columns
-                            vec
-                            (update 1 conj nil)
-                            (assoc 2 ["cljsbuild_whitespace" "cljsbuild_production" "cljsbuild_test" "clojure_test"])
-                            (assoc 3 ["precompile_assets" "cljs_test"]))
-                 edges)])))
+      (map-svg config g)))
 
   (defcard arrow
     (html


(defn strut-position [config columns tx ty]
  (- (first (arrow-end config tx ty)) (strut-offset config columns tx ty)))

(defn map-layout [{:keys [box-width box-height arrow-radius] :as config} columns edges]
  (let [coords (into {}

        :height box-height
        :content thing})}))

(defn map-svg [{:keys [box-width box-height arrow-radius] :as config} g]
  (let [columns (build-columns {:graph g
                                :remaining-ranks (reverse (ranks g))
                                :columns ()})
        {:keys [arrows boxes]} (map-layout config columns (g/edges g))]
    (html
     [:div {:style {:background "white"}}
      [:svg {:width "2000"
