mirror of
https://github.com/penpot/penpot.git
synced 2025-02-11 17:48:42 -05: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
|
@ -10,6 +10,11 @@
|
||||||
### :boom: Breaking changes
|
### :boom: Breaking changes
|
||||||
### :heart: Community contributions by (Thank you!)
|
### :heart: Community contributions by (Thank you!)
|
||||||
|
|
||||||
|
## 1.6.3-alpha
|
||||||
|
|
||||||
|
### :bug: Bugs fixed
|
||||||
|
|
||||||
|
- Fix problem with merge and join nodes [#990](https://github.com/penpot/penpot/issues/990)
|
||||||
|
|
||||||
## 1.6.2-alpha
|
## 1.6.2-alpha
|
||||||
|
|
||||||
|
|
|
@ -310,7 +310,7 @@
|
||||||
[content points]
|
[content points]
|
||||||
|
|
||||||
(let [segments-set (into #{}
|
(let [segments-set (into #{}
|
||||||
(map (fn [[p1 p2 _]] [p1 p2]))
|
(map (fn [{:keys [start end]}] [start end]))
|
||||||
(get-segments content points))
|
(get-segments content points))
|
||||||
|
|
||||||
create-line-command (fn [point other]
|
create-line-command (fn [point other]
|
||||||
|
@ -382,7 +382,7 @@
|
||||||
|
|
||||||
(defn group-segments [segments]
|
(defn group-segments [segments]
|
||||||
(loop [result []
|
(loop [result []
|
||||||
[point-a point-b :as segment] (first segments)
|
{point-a :start point-b :end :as segment} (first segments)
|
||||||
segments (rest segments)]
|
segments (rest segments)]
|
||||||
|
|
||||||
(if (nil? segment)
|
(if (nil? segment)
|
||||||
|
|
Loading…
Add table
Reference in a new issue