Minor improvements on shape selection.

This commit is contained in:
Andrey Antukh 2019-12-20 10:51:14 +01:00
parent 78509f3a06
commit f906945101
4 changed files with 27 additions and 20 deletions

View file

@ -280,9 +280,8 @@
(geom/transform shape modifier-mtx)
shape)
shape (dissoc shape ::initialized? :modifier-mtx)]
;; Add & select the cred shape to the workspace
(rx/of (dw/add-shape shape)
dw/select-first-shape))))))))
;; Add & select the created shape to the workspace
(rx/of (dw/add-shape shape)))))))))
(def close-drawing-path
(ptk/reify ::close-drawing-path