diff --git a/.clj-kondo/http-kit/http-kit/config.edn b/.clj-kondo/http-kit/http-kit/config.edn new file mode 100644 index 0000000..e9dbcd8 --- /dev/null +++ b/.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}}} diff --git a/.clj-kondo/http-kit/http-kit/httpkit/with_channel.clj b/.clj-kondo/http-kit/http-kit/httpkit/with_channel.clj new file mode 100644 index 0000000..b429de8 --- /dev/null +++ b/.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}))) diff --git a/CHANGELOG.md b/CHANGELOG.md index 9494125..42f5ae2 100644 --- a/CHANGELOG.md +++ b/CHANGELOG.md @@ -2,6 +2,8 @@ ## Unreleased +- Bump clojure-lsp to 2023.10.30-16.25.41-hotfix1 + ## 1.4.1 - Bump clojure-lsp to 2023.10.30-16.25.41 diff --git a/project.clj b/project.clj index e22731c..e1771b0 100644 --- a/project.clj +++ b/project.clj @@ -11,4 +11,4 @@ :sign-releases false}]] :managed-dependencies [[com.fasterxml.jackson.core/jackson-core "2.15.2"] [org.clojure/tools.cli "1.0.219"]] - :dependencies [[com.github.clojure-lsp/clojure-lsp-server "2023.10.30-16.25.41"]]) + :dependencies [[com.github.clojure-lsp/clojure-lsp-server "2023.10.30-16.25.41-hotfix1"]])