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

⚡ Optimize content->points helper

Browse source
This commit is contained in:
Andrey Antukh 2023-07-05 12:53:21 +02:00
parent e833e29bd4
commit 2c61cfd139
1 changed files with 8 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

13
common/src/app/common/geom/shapes/path.cljc
View file

@ -46,11 +46,14 @@
(defn content->points (defn content->points
"Returns the points in the given content" "Returns the points in the given content"
[content] [content]
(->> content (letfn [(segment->point [seg]
(map #(when (-> % :params :x) (let [params (get seg :params)
(gpt/point (-> % :params :x) (-> % :params :y)))) x (get params :x)
(remove nil?) y (get params :y)]
(into []))) (when (d/num? x y)
(gpt/point x y))))]
(some->> (seq content)
(into [] (keep segment->point)))))
(defn line-values (defn line-values
[[from-p to-p] t] [[from-p to-p] t]