Add clj-kondo for better Calva support

Author: holyjak

.clj-kondo/com.fulcrologic/fulcro/com/fulcrologic/fulcro/clj_kondo_hooks.clj

@@ -0,0 +1,62 @@
+(ns com.fulcrologic.fulcro.clj-kondo-hooks
+  (:require [clj-kondo.hooks-api :as api]))
+
+(defn defmutation
+  [{:keys [node]}]
+  (let [args          (rest (:children node))
+        mutation-name (first args)
+        ?docstring    (when (string? (api/sexpr (second args)))
+                        (second args))
+        args          (if ?docstring
+                        (nnext args)
+                        (next args))
+        params        (first args)
+        handlers      (rest args)
+        handler-syms  (map (comp first :children) handlers)
+        bogus-usage   (api/vector-node (vec handler-syms))
+        letfn-node    (api/list-node
+                       (list
+                        (api/token-node 'letfn)
+                        (api/vector-node (vec handlers))
+                        bogus-usage))
+        new-node      (api/list-node
+                       (list
+                        (api/token-node 'defn)
+                        mutation-name
+                        params
+                        letfn-node))]
+    (doseq [handler handlers]
+      (let [hname (some-> handler :children first api/sexpr str)
+            argv  (some-> handler :children second)]
+        (when-not (= 1 (count (api/sexpr argv)))
+          (api/reg-finding! (merge
+                             (meta argv)
+                             {:message (format "defmutation handler '%s' should be a fn of 1 arg" hname)
+                              :type    :clj-kondo.fulcro.defmutation/handler-arity})))))
+    {:node new-node}))
+
+(defn >defn
+  [{:keys [node]}]
+  (let [args       (rest (:children node))
+        fn-name    (first args)
+        ?docstring (when (string? (api/sexpr (second args)))
+                     (second args))
+        args       (if ?docstring
+                     (nnext args)
+                     (next args))
+        argv       (first args)
+        gspec      (second args)
+        body       (nnext args)
+        new-node   (api/list-node
+                    (list*
+                     (api/token-node 'defn)
+                     fn-name
+                     argv
+                     gspec
+                     body))]
+    (when (not= (count (api/sexpr argv))
+                (count (take-while #(not= '=> %) (api/sexpr gspec))))
+      (api/reg-finding! (merge (meta gspec)
+                               {:message "Guardrail spec does not match function signature"
+                                :type    :clj-kondo.fulcro.>defn/signature-mismatch})))
+    {:node new-node}))

.clj-kondo/com.fulcrologic/fulcro/config.edn

@@ -0,0 +1,13 @@
+{:hooks {:analyze-call {com.fulcrologic.fulcro.mutations/defmutation com.fulcrologic.fulcro.clj-kondo-hooks/defmutation
+                        com.fulcrologic.guardrails.core/>defn com.fulcrologic.fulcro.clj-kondo-hooks/>defn}}
+ :linters {:clj-kondo.fulcro.defmutation/handler-arity {:level :error}
+           :clj-kondo.fulcro.>defn/signature-mismatch {:level :error}}
+ :lint-as {com.fulcrologic.fulcro.components/defsc                  clojure.core/defn
+           com.fulcrologic.fulcro.routing.dynamic-routing/defrouter clojure.core/defn
+           com.fulcrologic.fulcro.ui-state-machines/defstatemachine clojure.core/def
+           com.fulcrologic.guardrails.core/>def                     clojure.core/def
+           com.fulcrologic.guardrails.core/>defn                    clojure.core/defn
+           com.fulcrologic.rad.attributes/defattr                   clojure.core/def
+           com.fulcrologic.rad.report/defsc-report                  clojure.core/defn
+           com.fulcrologic.rad.form/defsc-form                      clojure.core/defn
+           com.fulcrologic.rad.authorization/defauthenticator       clojure.core/def}}

.clj-kondo/com.wsscode/async/config.edn

@@ -0,0 +1,8 @@
+{:lint-as {com.wsscode.async.async-clj/deftest-async  clojure.test/deftest
+           com.wsscode.async.async-clj/go-try-stream  clojure.core/let
+           com.wsscode.async.async-clj/let-chan       clojure.core/let
+           com.wsscode.async.async-clj/let-chan*      clojure.core/let
+           com.wsscode.async.async-cljs/deftest-async clojure.test/deftest
+           com.wsscode.async.async-cljs/go-try-stream clojure.core/let
+           com.wsscode.async.async-cljs/let-chan      clojure.core/let
+           com.wsscode.async.async-cljs/let-chan*     clojure.core/let}}

.clj-kondo/com.wsscode/pathom/config.edn

@@ -0,0 +1,2 @@
+{:lint-as {com.wsscode.pathom.connect/defmutation clojure.core/defn
+           com.wsscode.pathom.connect/defresolver clojure.core/defn}}

.clj-kondo/rewrite-clj/rewrite-clj/config.edn

@@ -0,0 +1,5 @@
+{:lint-as
+ {rewrite-clj.zip/subedit-> clojure.core/->
+  rewrite-clj.zip/subedit->> clojure.core/->>
+  rewrite-clj.zip/edit-> clojure.core/->
+  rewrite-clj.zip/edit->> clojure.core/->>}}

.gitignore

@@ -15,4 +15,5 @@ resources/public/js
 resources/public/workspaces/js
 .lsp/sqlite.db
 lsp
-.calva/output-window/output.calva-repl
+.calva/output-window/output.calva-repl
+.clj-kondo/.cache