From c1c7cba96af5f3969b225164a729e53f014727f5 Mon Sep 17 00:00:00 2001
From: Sean Corfield <sean@corfield.org>
Date: Tue, 5 Nov 2024 09:08:30 -0800
Subject: [PATCH] new clj-kondo imports

Signed-off-by: Sean Corfield <sean@corfield.org>
---
 .clj-kondo/imports/babashka/fs/config.edn        |  1 +
 .clj-kondo/imports/http-kit/http-kit/config.edn  |  3 +++
 .../http-kit/http-kit/httpkit/with_channel.clj   | 16 ++++++++++++++++
 .../imports/rewrite-clj/rewrite-clj/config.edn   |  5 +++++
 4 files changed, 25 insertions(+)
 create mode 100644 .clj-kondo/imports/babashka/fs/config.edn
 create mode 100644 .clj-kondo/imports/http-kit/http-kit/config.edn
 create mode 100644 .clj-kondo/imports/http-kit/http-kit/httpkit/with_channel.clj
 create mode 100644 .clj-kondo/imports/rewrite-clj/rewrite-clj/config.edn

diff --git a/.clj-kondo/imports/babashka/fs/config.edn b/.clj-kondo/imports/babashka/fs/config.edn
new file mode 100644
index 0000000..23f3609
--- /dev/null
+++ b/.clj-kondo/imports/babashka/fs/config.edn
@@ -0,0 +1 @@
+{:lint-as {babashka.fs/with-temp-dir clojure.core/let}}
diff --git a/.clj-kondo/imports/http-kit/http-kit/config.edn b/.clj-kondo/imports/http-kit/http-kit/config.edn
new file mode 100644
index 0000000..e9dbcd8
--- /dev/null
+++ b/.clj-kondo/imports/http-kit/http-kit/config.edn
@@ -0,0 +1,3 @@
+
+{:hooks
+ {:analyze-call {org.httpkit.server/with-channel httpkit.with-channel/with-channel}}}
diff --git a/.clj-kondo/imports/http-kit/http-kit/httpkit/with_channel.clj b/.clj-kondo/imports/http-kit/http-kit/httpkit/with_channel.clj
new file mode 100644
index 0000000..b429de8
--- /dev/null
+++ b/.clj-kondo/imports/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})))
diff --git a/.clj-kondo/imports/rewrite-clj/rewrite-clj/config.edn b/.clj-kondo/imports/rewrite-clj/rewrite-clj/config.edn
new file mode 100644
index 0000000..19ecae9
--- /dev/null
+++ b/.clj-kondo/imports/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/->>}}