   [{:keys [data id] :as shape} _]
   (let [key (str id)
         rfm (svg/calculate-transform shape)
-        attrs (-> (extract-style-attrs shape)
-                  (transform-attrs))
         attrs (merge {:id key :key key :transform rfm}
-                     ;; (select-keys shape [:x :y :width :height])
-                     (make-debug-attrs shape)
-                     attrs)]
+                     (extract-style-attrs shape)
+                     (make-debug-attrs shape))]
     (html
      [:g attrs data])))
 

  (let [key (str id)
        props (select-keys shape [:x1 :x2 :y2 :y1])
        attrs (-> (extract-style-attrs shape)
                  (transform-attrs)
                  (merge {:id key :key key})
                  (merge props))]
    (html

                  :dotted "1,1"
                  :dashed "10,10")]
      (-> attrs
          (assoc! :stroke-dasharray value)
          (dissoc! :stroke-type)))
    attrs))

(defn- extract-style-attrs
  "Extract predefinet attrs from shapes."
  [shape]
  (let [attrs (select-keys shape +style-attrs+)]
    (-> (transient attrs)
        (transform-stroke-type)
        (persistent!))))

(defn- make-debug-attrs
  [shape]
