   (let [data (vega/ensure-facet-keys data)
         spec (-> data
                  vega/dodged-bar
-                 #_(update-in [:marks 0 :from] (constantly nil))
                  (vega/facet data))]
-    (wrap-top-data spec)))
+    (wrap-dims spec)))
 
 (defn line
   [data]

            [ring.util.codec :refer [url-encode]]))

(def ^:dynamic *current-plot-key* :default)

(defn plot
  "Plots the given vega-spec on the browser client connected by

     (when-not (get-in @ws/connected-uids [:any plot-key])
       (view/new! :view-name plot-key)
       (alter-var-root #'*current-plot-key* (constantly plot-key)))
     (view/plot! plot-key
                 (-> vega-spec facet-global))))
  ([vega-spec]
   (plot vega-spec *current-plot-key*)))

(defn point
  [data]
