3pp-mirror/penpot
1
0
Fork 0
mirror of https://github.com/penpot/penpot.git synced 2025-06-27 06:17:02 +02:00
Code Issues Projects Releases Packages Wiki Activity

🐛 Fix problem with shadows

Browse source
This commit is contained in:
alonso.torres 2024-05-28 09:53:20 +02:00 • committed by Andrey Antukh
parent dad91421b1
commit 032e551dc1
2 changed files with 23 additions and 21 deletions
Download patch file Download diff file Expand all files Collapse all files

42
frontend/src/app/plugins/utils.cljs
View file

@ -124,30 +124,32 @@
(defn from-js
"Converts the object back to js"
[obj]
(when (some? obj)
(let [process-node
(fn process-node [node]
(reduce-kv
(fn [m k v]
(let [k (keyword (str/kebab k))
v (cond (map? v)
(process-node v)
([obj]
(from-js obj #{:type}))
([obj keyword-keys]
(when (some? obj)
(let [process-node
(fn process-node [node]
(reduce-kv
(fn [m k v]
(let [k (keyword (str/kebab k))
v (cond (map? v)
(process-node v)
(vector? v)
(mapv process-node v)
(vector? v)
(mapv process-node v)
(and (string? v) (re-matches us/uuid-rx v))
(uuid/uuid v)
(and (string? v) (re-matches us/uuid-rx v))
(uuid/uuid v)
(= k :type)
(keyword v)
(contains? keyword-keys k)
(keyword v)
:else v)]
(assoc m k v)))
{}
node))]
(process-node (js->clj obj)))))
:else v)]
(assoc m k v)))
{}
node))]
(process-node (js->clj obj))))))
(defn to-js
"Converts to javascript an camelize the keys"