Improve with-atomic macro to accept cfg

This commit is contained in:
Andrey Antukh 2023-07-20 10:49:46 +02:00
parent d268ff2952
commit 27fb4c7ed9
3 changed files with 22 additions and 2 deletions

View file

@ -39,6 +39,20 @@
other))]
{:node result})))
(defn penpot-with-atomic
[{:keys [node]}]
(let [[_ params & other] (:children node)
result (if (api/vector-node? params)
(api/list-node
(into [(api/token-node (symbol "clojure.core" "with-open")) params] other))
(api/list-node
(into [(api/token-node (symbol "clojure.core" "with-open"))
(api/vector-node [params params])]
other)))
]
{:node result}))
(defn penpot-defrecord
[{:keys [:node]}]