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

✨ Improved snap performance

Browse source
This commit is contained in:
alonso.torres 2021-01-19 23:02:51 +01:00
parent 27e83342f9
commit d19dc1cf56
3 changed files with 101 additions and 91 deletions
Download patch file Download diff file Expand all files Collapse all files

8
common/app/common/data.cljc
View file

@ -177,15 +177,15 @@
(join [1 2 3] [:a :b]) => ([1 :a] [1 :b] [2 :a] [2 :b] [3 :a] [3 :b])
You can pass a function to merge the items. By default is `vector`:
(join [1 2 3] [1 10 100] *) => (1 10 100 2 20 200 3 30 300)"
([col1 col2] (join col1 col2 vector '()))
([col1 col2 join-fn] (join col1 col2 join-fn '()))
([col1 col2] (join col1 col2 vector []))
([col1 col2 join-fn] (join col1 col2 join-fn []))
([col1 col2 join-fn acc]
(cond
(empty? col1) acc
(empty? col2) acc
:else (recur (rest col1) col2 join-fn
(core/concat acc (map (partial join-fn (first col1)) col2))))))
(let [other (mapv (partial join-fn (first col1)) col2)]
(concat acc other))))))
(def sentinel
#?(:clj (Object.)