Penpot/penpot
0
Fork 0
mirror of https://github.com/penpot/penpot.git synced 2025-02-26 08:45:34 -05:00
Code Issues Activity

Add update-path event.

Browse source
This commit is contained in:
Andrey Antukh 2016-08-19 22:19:32 +03:00
parent 8c7fc4aad6
commit cd365b77d3
No known key found for this signature in database
GPG key ID: 4DFEBCB8316A8B95
1 changed files with 12 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
src/uxbox/main/data/shapes.cljs
View file

@ -387,6 +387,18 @@
{:pre [(uuid? id) (uuid? shape)]}
(DeleteInteracton. shape id))
;; --- Path Modifications
(defrecord UpdatePath [id index delta]
rs/UpdateEvent
(-apply-update [_ state]
(update-in state [:shapes-by-id id :points index] gpt/add delta)))
(defn update-path
"Update a concrete point in the path shape."
[id index delta]
{:pre [(uuid? id) (number? index) (gpt/point? delta)]}
(UpdatePath. id index delta))
;; --- Events (implicit) (for selected)