Add more config to condo

This commit is contained in:
Andrey Antukh 2023-12-22 16:22:27 +01:00 committed by Alonso Torres
parent 4d54d5c455
commit 538b8313ed
2 changed files with 17 additions and 2 deletions

View file

@ -4,7 +4,6 @@
promesa.core/-> clojure.core/-> promesa.core/-> clojure.core/->
promesa.exec.csp/go-loop clojure.core/loop promesa.exec.csp/go-loop clojure.core/loop
rumext.v2/defc clojure.core/defn rumext.v2/defc clojure.core/defn
rumext.v2/fnc clojure.core/fn
promesa.util/with-open clojure.core/with-open promesa.util/with-open clojure.core/with-open
app.common.data/export clojure.core/def app.common.data/export clojure.core/def
app.common.data.macros/get-in clojure.core/get-in app.common.data.macros/get-in clojure.core/get-in
@ -15,11 +14,13 @@
:hooks :hooks
{:analyze-call {:analyze-call
{app.common.data.macros/export hooks.export/export {app.common.data.macros/export hooks.export/export
potok.v2.core/reify hooks.export/potok-reify
app.util.services/defmethod hooks.export/service-defmethod app.util.services/defmethod hooks.export/service-defmethod
app.common.record/defrecord hooks.export/penpot-defrecord app.common.record/defrecord hooks.export/penpot-defrecord
app.db/with-atomic hooks.export/penpot-with-atomic app.db/with-atomic hooks.export/penpot-with-atomic
potok.v2.core/reify hooks.export/potok-reify
rumext.v2/fnc hooks.export/rumext-fnc rumext.v2/fnc hooks.export/rumext-fnc
rumext.v2/lazy-component hooks.export/rumext-lazycomponent
shadow.lazy/loadable hooks.export/rumext-lazycomponent
}} }}
:output :output

View file

@ -37,6 +37,9 @@
(api/token-node rsym) (api/token-node rsym)
(api/vector-node [])] (api/vector-node [])]
other))] other))]
;; (prn (api/sexpr result))
{:node result}))) {:node result})))
(defn penpot-with-atomic (defn penpot-with-atomic
@ -71,6 +74,17 @@
{:node result}))) {:node result})))
(defn rumext-lazycomponent
[{:keys [node]}]
(let [[cname mdata params & body] (rest (:children node))
[params body] (if (api/vector-node? mdata)
[mdata (cons params body)]
[params body])]
(let [result (api/list-node [(api/token-node 'constantly) nil])]
;; (prn (api/sexpr result))
{:node result})))
(defn penpot-defrecord (defn penpot-defrecord
[{:keys [:node]}] [{:keys [:node]}]
(let [[rnode rtype rparams & other] (:children node) (let [[rnode rtype rparams & other] (:children node)