Add bb lint:copy-configs and add resulting configs

Author: mk

.clj-kondo/hiccup/hiccup/config.edn

@@ -0,0 +1,2 @@
+{:lint-as {hiccup.def/defhtml clojure.core/defn}
+ :hooks {:analyze-call {hiccup.def/defelem hiccup.hooks/defelem}}}

.clj-kondo/hiccup/hiccup/hiccup/hooks.clj

@@ -0,0 +1,38 @@
+(ns hiccup.hooks
+  (:require [clj-kondo.hooks-api :as api]
+            [clojure.set :as set]))
+
+;; See https://github.com/clj-kondo/clj-kondo/blob/master/doc/hooks.md
+
+(defn- parse-defn [elems]
+  (let [[fhead fbody] (split-with #(not (or (api/vector-node? %)
+                                            (api/list-node? %)))
+                                  elems)
+        arities (if (api/vector-node? (first fbody))
+                  (list (api/list-node fbody))
+                  fbody)]
+    [fhead arities]))
+
+(defn- count-args [arity]
+  (let [args (first (api/sexpr arity))]
+    (if (= '& (fnext (reverse args)))
+      true ; unbounded args
+      (count args))))
+
+(defn- dummy-arity [arg-count]
+  (api/list-node
+   (list
+    (api/vector-node
+     (vec (repeat arg-count (api/token-node '_)))))))
+
+(defn defelem [{:keys [node]}]
+  (let [[_ & rest] (:children node)
+        [fhead arities] (parse-defn rest)
+        arg-counts (set (filter number? (map count-args arities)))
+        dummy-arg-counts (set/difference (set (map inc arg-counts)) arg-counts)
+        dummy-arities (for [n dummy-arg-counts] (dummy-arity n))]
+    {:node
+     (api/list-node
+      (list*
+       (api/token-node 'clojure.core/defn)
+       (concat fhead arities dummy-arities)))}))

.clj-kondo/http-kit/http-kit/config.edn

@@ -0,0 +1,3 @@
+
+{:hooks
+ {:analyze-call {org.httpkit.server/with-channel httpkit.with-channel/with-channel}}}

.clj-kondo/http-kit/http-kit/httpkit/with_channel.clj

@@ -0,0 +1,16 @@
+(ns httpkit.with-channel
+  (:require [clj-kondo.hooks-api :as api]))
+
+(defn with-channel [{node :node}]
+  (let [[request channel & body] (rest (:children node))]
+    (when-not (and request     channel) (throw (ex-info "No request or channel provided" {})))
+    (when-not (api/token-node? channel) (throw (ex-info "Missing channel argument" {})))
+    (let [new-node
+          (api/list-node
+            (list*
+              (api/token-node 'let)
+              (api/vector-node [channel (api/vector-node [])])
+              request
+              body))]
+
+      {:node new-node})))

.clj-kondo/taoensso/encore/config.edn

@@ -0,0 +1,4 @@
+{:hooks
+ {:analyze-call
+  {taoensso.encore/defalias    taoensso.encore/defalias
+   taoensso.encore/defn-cached taoensso.encore/defn-cached}}}

.clj-kondo/taoensso/encore/taoensso/encore.clj

@@ -0,0 +1,37 @@
+(ns taoensso.encore
+  "I don't personally use clj-kondo, so these hooks are
+  kindly authored and maintained by contributors.
+  PRs very welcome! - Peter Taoussanis"
+  (:require
+   [clj-kondo.hooks-api :as hooks]))
+
+(defn defalias
+  [{:keys [node]}]
+  (let [[sym-raw src-raw] (rest (:children node))
+        src (if src-raw src-raw sym-raw)
+        sym
+        (if src-raw
+          sym-raw
+          (symbol (name (hooks/sexpr src))))]
+
+    {:node
+     (with-meta
+       (hooks/list-node
+         [(hooks/token-node 'def)
+          (hooks/token-node (hooks/sexpr sym))
+          (hooks/token-node (hooks/sexpr src))])
+       (meta src))}))
+
+(defn defn-cached
+  [{:keys [node] :as x}]
+  (let [[sym _opts binding-vec & body] (rest (:children node))]
+    {:node
+     (hooks/list-node
+       (list
+         (hooks/token-node 'def)
+         sym
+         (hooks/list-node
+           (list*
+             (hooks/token-node 'fn)
+             binding-vec
+             body))))}))

bb.edn

@@ -28,6 +28,11 @@
   lint {:doc "Lints project using clj-kondo"
         :task (apply shell "clj-kondo --lint src test" *command-line-args*)}
 
+  lint:copy-configs {:doc "Copies clj-kondo configs from deps"
+                     :task (println "clj-kondo --lint"
+                                    (-> (shell {:out :string} "clojure -Spath") :out str/trim)
+                                    "--dependencies --copy-configs --skip-lint")}
+
   build:static-app {:doc "Builds a static app with default notebooks"
                     :task (apply clojure "-X:demo:nextjournal/clerk" *command-line-args*)}
 
@@ -99,11 +104,11 @@
             :task (do
                     (println (str "Testing jar: 'clerk-" (t/version) ".jar'"))
                     (clojure (str "-Sforce -Srepro -Sdeps '"
-                               (pr-str {:aliases {:test-jar {:jvm-opts ["-Dclojure.main.report=stdout"]
-                                                             :deps {'io.github.nextjournal/clerk {:local/root (str "./target/clerk-" (t/version) ".jar")}}
-                                                             :exec-fn 'nextjournal.clerk/build!
-                                                             :exec-args {:paths ["notebooks/hello.clj"]}}}})
-                               "' -T:test-jar")))}
+                                  (pr-str {:aliases {:test-jar {:jvm-opts ["-Dclojure.main.report=stdout"]
+                                                                :deps {'io.github.nextjournal/clerk {:local/root (str "./target/clerk-" (t/version) ".jar")}}
+                                                                :exec-fn 'nextjournal.clerk/build!
+                                                                :exec-args {:paths ["notebooks/hello.clj"]}}}})
+                                  "' -T:test-jar")))}
 
   ci:publish {:doc "Publish task which will be run on CI"
               :depends [-current-tag -current-branch]