Add debug attrs to group shape element.

This commit is contained in:
Andrey Antukh 2016-01-20 22:41:03 +02:00
parent 2124aba21f
commit aa5cbcce0d

View file

@ -43,10 +43,8 @@
(let [key (str "group-" id) (let [key (str "group-" id)
tfm (-> (merge shape attrs) tfm (-> (merge shape attrs)
(svg/calculate-transform)) (svg/calculate-transform))
attrs {:id key :key key :transform tfm} attrs (merge {:id key :key key :transform tfm}
attrs (-> (extract-attrs shape) (make-debug-attrs shape))
(make-debug-attrs)
(merge attrs))
shapes-by-id (get @st/state :shapes-by-id)] shapes-by-id (get @st/state :shapes-by-id)]
(html (html
[:g attrs [:g attrs