github/penpot
1
0
Fork 0
mirror of https://github.com/penpot/penpot.git synced 2026-08-01 10:56:20 +00:00
Code Issues Packages Projects Releases Wiki 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)]} {:pre [(uuid? id) (uuid? shape)]}
(DeleteInteracton. shape id)) (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) ;; --- Events (implicit) (for selected)