3pp-mirror/penpot
1
0
Fork 0
mirror of https://github.com/penpot/penpot.git synced 2025-07-26 03:37:36 +02:00
Code Issues Projects Releases Packages Wiki Activity

✨ Allows multiple selection and move

Browse source
This commit is contained in:
alonso.torres 2021-03-31 09:12:00 +02:00 • committed by Andrés Moya
parent a06a8c648e
commit c22b4a1de2
4 changed files with 72 additions and 56 deletions
Download patch file Download diff file Expand all files Collapse all files

20
frontend/src/app/util/geom/path.cljs
View file

@ -468,7 +468,6 @@
[content]
(->> (d/with-prev content)
(d/enumerate)
(mapcat (fn [[index [cur-cmd pre-cmd]]]
(if (and pre-cmd (= :curve-to (:command cur-cmd)))
(let [cur-pos (command->point cur-cmd)
@ -480,6 +479,25 @@
(group-by first)
(d/mapm #(mapv second %2))))
(defn point-indices
[content point]
(->> (d/enumerate content)
(filter (fn [[_ cmd]] (= point (command->point cmd))))
(mapv (fn [[index _]] index))))
(defn handler-indices
[content point]
(->> (d/with-prev content)
(d/enumerate)
(mapcat (fn [[index [cur-cmd pre-cmd]]]
(if (and (some? pre-cmd) (= :curve-to (:command cur-cmd)))
(let [cur-pos (command->point cur-cmd)
pre-pos (command->point pre-cmd)]
(cond-> []
(= pre-pos point) (conj [index :c1])
(= cur-pos point) (conj [index :c2])))
[])))))
(defn opposite-index
"Calculate sthe opposite index given a prefix and an index"
[content index prefix]