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

✨ Refactor of the plugins context

Browse source
This commit is contained in:
alonso.torres 2024-04-02 09:58:21 +02:00 • committed by Andrey Antukh
parent 5a34c25926
commit 127b481c38
12 changed files with 285 additions and 186 deletions
Download patch file Download diff file Expand all files Collapse all files

26
common/src/app/common/record.cljc
View file

@ -430,23 +430,31 @@
(defmacro define-properties!
[rsym & properties]
(let [rsym (with-meta rsym {:tag 'js})
self-sym (gensym "self-")
get-fn-sym (gensym "get-fn-")
set-fn-sym (gensym "set-fn-")
params-sym (gensym "params-")
args-sym (gensym "args-")]
(let [rsym (with-meta rsym {:tag 'js})]
`(do
~@(for [params properties
:let [pname (get params :name)
get-fn (get params :get)
set-fn (get params :set)]]
set-fn (get params :set)
enum-p (get params :enumerable)
conf-p (get params :configurable)
writ-p (get params :writable)]]
`(.defineProperty js/Object (.-prototype ~rsym) ~pname
(cljs.core/js-obj
"enumerable" true
"configurable" true
~@(concat
(if (some? enum-p)
["enumerable" enum-p]
["enumerable" true])
(if (some? conf-p)
["configurable" conf-p]
["configurable" true])
(when (some? writ-p)
["writable" writ-p])
(when get-fn
["get" get-fn])
(when set-fn
["set" set-fn]))))))))