From e8808bc8a472d34444aa4516218d3255b62ef2fd Mon Sep 17 00:00:00 2001 From: Andrey Antukh Date: Wed, 6 Sep 2023 14:43:05 +0200 Subject: [PATCH] :paperclip: Add improved kondo hook analyzer for rumext/fnc --- .clj-kondo/config.edn | 1 + .clj-kondo/hooks/export.clj | 13 +++++++++++++ 2 files changed, 14 insertions(+) diff --git a/.clj-kondo/config.edn b/.clj-kondo/config.edn index f8c18fcd62..011356929e 100644 --- a/.clj-kondo/config.edn +++ b/.clj-kondo/config.edn @@ -18,6 +18,7 @@ app.util.services/defmethod hooks.export/service-defmethod app.common.record/defrecord hooks.export/penpot-defrecord app.db/with-atomic hooks.export/penpot-with-atomic + rumext.v2/fnc hooks.export/rumext-fnc }} :output diff --git a/.clj-kondo/hooks/export.clj b/.clj-kondo/hooks/export.clj index e56d2f559b..02c304fa20 100644 --- a/.clj-kondo/hooks/export.clj +++ b/.clj-kondo/hooks/export.clj @@ -58,6 +58,19 @@ (api/vector-node [params params])] body))}))) +(defn rumext-fnc + [{: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 + (into [(api/token-node 'fn) + params] + (cons mdata body)))] + {:node result}))) + + (defn penpot-defrecord [{:keys [:node]}] (let [[rnode rtype rparams & other] (:children node)