Fix clj-kondo#2154: :exclude option for :deprecated-namespace option (c…

…lj-kondo#2175)

CHANGELOG.md

@@ -31,6 +31,7 @@ For a list of breaking changes, check [here](#breaking-changes).
 - [#2170](https://github.com/clj-kondo/clj-kondo/issues/2170): `:keyword-binding` linter should ignore auto-resolved keywords
 - [#2172](https://github.com/clj-kondo/clj-kondo/issues/2172): detect invalid amount of args and invalid argument type for `throw`
 - [#2164](https://github.com/clj-kondo/clj-kondo/issues/2164): deftest inside let triggers :unused-value
+- #2154: add `:exclude` option to `:deprecated-namespace` linter
 
 ## 2023.07.13
 

doc/linters.md

@@ -378,6 +378,14 @@ A regex is also permitted, e.g. to exclude all test namespaces:
 
 Example warning: `Namespace foo is deprecated.`.
 
+*Config:*
+
+To exclude warnings about specific namespaces, use:
+
+``` clojure
+{:linters {:deprecated-namespace {:exclude [the-deprecated.namespace]}}}
+```
+
 ### Deps.edn
 
 *Keyword:* `:deps.edn`

src/clj_kondo/impl/config.clj

@@ -503,6 +503,14 @@
        x))
    coll))
 
+(let [delayed-config (fn [config]
+                       (let [excluded (get-in config [:linters :deprecated-namespace :exclude])]
+                         (set excluded)))
+      delayed-cfg (memoize delayed-config)]
+  (defn deprecated-namespace-excluded? [config required]
+    (let [cfg (delayed-cfg config)]
+      (contains? cfg required))))
+
 ;; (defn ns-group-1 [m full-ns-name]
 ;;   (when-let [r (:regex m)]
 ;;     (if (re-matches (re-pattern r) (str full-ns-name))

src/clj_kondo/impl/linters.clj

@@ -527,15 +527,16 @@
                   ctx (assoc ctx :lang (:lang ns) :base-lang (:base-lang ns))]]
       (doseq [required required]
         (when-let [depr (:deprecated (utils/resolve-ns idacs (:base-lang ns) (:lang ns) required))]
-          (let [filename (:filename (meta required))]
-            (findings/reg-finding!
-             ctx
-             (node->line filename required :deprecated-namespace
-                         (format "Namespace %s is deprecated%s."
-                                 (str required)
-                                 (if (string? depr)
-                                   (str " since " depr)
-                                   "")))))))
+          (when-not (config/deprecated-namespace-excluded? config required)
+            (let [filename (:filename (meta required))]
+              (findings/reg-finding!
+               ctx
+               (node->line filename required :deprecated-namespace
+                           (format "Namespace %s is deprecated%s."
+                                   (str required)
+                                   (if (string? depr)
+                                     (str " since " depr)
+                                     ""))))))))
       (doseq [ns-sym unused]
         (let [ns-meta (meta ns-sym)]
           (when-not (or (config/unused-namespace-excluded config ns-sym)

test/clj_kondo/main_test.clj

@@ -2313,7 +2313,10 @@ foo"))))
 
 (deftest deprecated-namespace-test
   (assert-submaps '({:file "<stdin>", :row 1, :col 58, :level :warning, :message "Namespace foo is deprecated."})
-                  (lint! "(ns foo {:deprecated true}) (def x 1) (ns bar (:require [foo]))")))
+                  (lint! "(ns foo {:deprecated true}) (def x 1) (ns bar (:require [foo]))"))
+  (is (empty?
+       (lint! "(ns foo {:deprecated true}) (def x 1) (ns bar (:require [foo]))"
+              '{:linters {:deprecated-namespace {:exclude [foo]}}}))))
 
 (deftest unused-referred-var-test
   (assert-submaps