   "Extract predefinet attrs from shapes."
   [shape]
   (select-keys shape [:rotation :width :height
-                      :x :y :opacity :fill]))
+                      :x :y :opacity :fill :view-box]))
+
+(defn- make-debug-attrs
+  [attrs]
+  (let [xf (map (fn [[x v]]
+                  [(keyword (str "data-" (name x))) v]))]
+    (into {} xf attrs)))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;; Implementation

  (let [key (str "use-" id)
        transform (-> (merge shape attrs)
                      (svg/calculate-transform))
        attrs {:id key
               :key key
               :transform transform}]
    (html
     [:g attrs data])))

(defmethod shapes/-render-svg :builtin/icon
  [{:keys [data id view-box] :as shape} attrs]

    (html
     [:svg attrs data])))

