3pp-mirror/penpot
1
0
Fork 0
mirror of https://github.com/penpot/penpot.git synced 2025-07-29 13:57:12 +02:00
Code Issues Projects Releases Packages Wiki Activity

♻️ Refactor custom stroke

Browse source
This commit is contained in:
alonso.torres 2021-05-31 18:06:28 +02:00 • committed by Andrés Moya
parent bf5f845789
commit 6cbbfa6499
7 changed files with 166 additions and 137 deletions
Download patch file Download diff file Expand all files Collapse all files

31
frontend/src/app/util/object.cljs
View file

@ -27,17 +27,18 @@
(js/Object.keys ^js obj))
(defn get-in
[obj keys]
(loop [key (first keys)
keys (rest keys)
res obj]
(if (nil? key)
res
(if (nil? res)
res
(recur (first keys)
(rest keys)
(unchecked-get res key))))))
([obj keys]
(get-in obj keys nil))
([obj keys default]
(loop [key (first keys)
keys (rest keys)
res obj]
(if (or (nil? key) (nil? res))
(or res default)
(recur (first keys)
(rest keys)
(unchecked-get res key))))))
(defn without
[obj keys]
@ -68,6 +69,14 @@
(unchecked-set obj key value)
obj)
(defn update!
[obj key f & args]
(let [found (get obj key ::not-found)]
(if-not (identical? ::not-found found)
(do (unchecked-set obj key (apply f found args))
obj)
obj)))
(defn- props-key-fn
[key]
(if (or (= key :class) (= key :class-name))