From c7c6f245e90fb28f5a087a8a870b89774cfd27fd Mon Sep 17 00:00:00 2001
From: Lyall Cooper <lyall@squareup.com>
Date: Thu, 6 Jun 2024 10:14:21 +0900
Subject: [PATCH] Add clj-kondo inline macro configuration

Versions of clj-kondo since `2023.03.17` support [inline macro
configuration](https://github.com/clj-kondo/clj-kondo/blob/master/doc/config.md#inline-macro-configuration).
We can use this to prevent annoying linting errors from popping up when
using `defcomponent` etc. without having to add anything to our
clj-kondo config.

I'm not sure I've chosen the best config options here though, so please
double check them.
---
 src/simpleui/core.clj | 23 +++++++++++++++++------
 1 file changed, 17 insertions(+), 6 deletions(-)

diff --git a/src/simpleui/core.clj b/src/simpleui/core.clj
index 50e0d16..fec6655 100644
--- a/src/simpleui/core.clj
+++ b/src/simpleui/core.clj
@@ -7,7 +7,8 @@
     [simpleui.middleware :as middleware]
     [simpleui.render :as render]
     [simpleui.rt :as rt]
-    [simpleui.util :as util]))
+    [simpleui.util :as util]
+    [clojure.core :as c]))
 
 (def parsers
   {:long `rt/parse-long
@@ -134,7 +135,9 @@
        distinct
        (mapv cljs-quote)))
 
-(defmacro defcomponent [name args & body]
+(defmacro defcomponent
+  {:clj-kondo/lint-as 'clojure.core/defn}
+  [name args & body]
   (let [args (if (not-empty args)
                (update args 0 assoc-as)
                args)]
@@ -144,12 +147,16 @@
              expand-parser-hints
              (with-stack name args)
              (make-f name args)))))
-(defmacro defn-assets [name args & body]
+(defmacro defn-assets
+  {:clj-kondo/lint-as 'clojure.core/defn}
+  [name args & body]
   `(defn ~(vary-meta name assoc :syms (get-syms body))
      ~args
      ~@body))
 
-(defmacro defui [name args & body]
+(defmacro defui
+  {:clj-kondo/lint-as 'clojure.core/defn}
+  [name args & body]
   `(defn
     ~(vary-meta name assoc :syms (get-syms body) :ui true)
     ~args
@@ -271,7 +278,9 @@
   ([root extra-args f] (make-routes-fn root f extra-args)))
 
 ;; alternative approach
-(defmacro defcheck [sym]
+(defmacro defcheck
+  {:clj-kondo/lint-as 'clj-kondo.lint-as/def-catch-all}
+  [sym]
   (let [kw (->> sym str (re-find #"[a-z]+") keyword)]
     `(defn ~sym [req#] (-> req# :request-method (= ~kw)))))
 
@@ -317,7 +326,9 @@
           pred `(= ~'command ~command)]
       [command-pred [command-pred pred]])))
 
-(defmacro with-commands [req & body]
+(defmacro with-commands
+  {:clj-kondo/ignore [:unresolved-symbol]}
+  [req & body]
   (let [sym->assignment (->> body
                              (tree-seq coll? seq)
                              (map filter-symbol)