mirror of
https://github.com/penpot/penpot.git
synced 2025-06-04 04:41:39 +02:00
🐛 Fix merge path nodes with only one node selected (#6248)
This commit is contained in:
parent
43535ae573
commit
97c24c8b9c
2 changed files with 10 additions and 7 deletions
|
@ -449,11 +449,13 @@
|
|||
(defn merge-nodes
|
||||
"Reduces the contiguous segments in points to a single point"
|
||||
[content points]
|
||||
(let [point->merge-point (-> content
|
||||
(get-segments points)
|
||||
(group-segments)
|
||||
(calculate-merge-points points))]
|
||||
(-> content
|
||||
(separate-nodes points)
|
||||
(replace-points point->merge-point))))
|
||||
(let [segments (get-segments content points)]
|
||||
(if (seq segments)
|
||||
(let [point->merge-point (-> segments
|
||||
(group-segments)
|
||||
(calculate-merge-points points))]
|
||||
(-> content
|
||||
(separate-nodes points)
|
||||
(replace-points point->merge-point)))
|
||||
content)))
|
||||
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue