mirror of
https://github.com/penpot/penpot.git
synced 2025-05-17 04:56:11 +02:00
🐛 Fix problem with merge and join nodes
This commit is contained in:
parent
2f8f1f0b9a
commit
46448bc5c7
2 changed files with 7 additions and 2 deletions
|
@ -310,7 +310,7 @@
|
|||
[content points]
|
||||
|
||||
(let [segments-set (into #{}
|
||||
(map (fn [[p1 p2 _]] [p1 p2]))
|
||||
(map (fn [{:keys [start end]}] [start end]))
|
||||
(get-segments content points))
|
||||
|
||||
create-line-command (fn [point other]
|
||||
|
@ -382,7 +382,7 @@
|
|||
|
||||
(defn group-segments [segments]
|
||||
(loop [result []
|
||||
[point-a point-b :as segment] (first segments)
|
||||
{point-a :start point-b :end :as segment} (first segments)
|
||||
segments (rest segments)]
|
||||
|
||||
(if (nil? segment)
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue