internal lint: update clj-kondo

Turning on the new experimental :rendundant-fn-wrapper linter uncovered
a few "oh ok, good!" and a few "interesting!" cases.
Addressed findings.

Author: lread

.clj-kondo/config.edn

@@ -12,7 +12,8 @@
   rewrite-clj.zip.subedit/edit->> clojure.core/->>
   rewrite-clj.custom-zipper.switchable/defn-switchable clojure.core/defn}
  :linters
- {:unsorted-required-namespaces {:level :warning}
+ {:redundant-fn-wrapper {:level :warning} ;; experimental linter, let's give it a go
+  :unsorted-required-namespaces {:level :warning}
   :unresolved-var {:exclude [io.aviso.ansi]}
   :unused-namespace
   {:exclude [clojure.test.check]}

deps.edn

@@ -22,7 +22,7 @@
            ;;
            :lint-cache {:replace-paths ["src"]} ;; when building classpath we want to exclude resources
                                                 ;; so we do not pick up our own clj-kondo config exports
-           :clj-kondo {:extra-deps {clj-kondo/clj-kondo {:mvn/version "2022.01.15"}}
+           :clj-kondo {:extra-deps {clj-kondo/clj-kondo {:mvn/version "2022.02.09"}}
                        :override-deps {org.clojure/clojure {:mvn/version "1.10.3"}}
                        :main-opts ["-m" "clj-kondo.main"]}
 

script/clj_graal/gen_test_runner.clj

@@ -75,7 +75,7 @@
 (defn- cmd-find-all-vars[_opts]
   (->> (nses)
        vars
-       (map #(symbol %))
+       (map symbol)
        sort
        (string/join " ")
        println))

script/cljdoc_preview.clj

@@ -24,7 +24,7 @@
 ;;
 
 (defn check-prerequisites []
-  (let [missing-cmds (doall (remove #(fs/on-path %) ["git" "docker"]))]
+  (let [missing-cmds (doall (remove fs/on-path ["git" "docker"]))]
     (when (seq missing-cmds)
       (status/die 1 (string/join "\n" ["Required commands not found:"
                                        (string/join "\n" missing-cmds)])))))

script/code_info/ns_lister.clj

@@ -28,7 +28,7 @@
 (defn- cmd-find-all-vars[{:keys [lang] :as _opts}]
   (->> (nses lang)
        vars
-       (map #(symbol %))
+       (map symbol)
        sort
        (string/join " ")
        println))

script/helper/env.clj

@@ -7,7 +7,7 @@
 
 (defn get-os []
   (let [os-name (string/lower-case (System/getProperty "os.name"))]
-    (condp #(re-find %1 %2) os-name
+    (condp re-find os-name
       #"win" :win
       #"mac" :mac
       #"(nix|nux|aix)" :unix

test/rewrite_clj/zip/editz_test.cljc

@@ -27,7 +27,7 @@
                          z/of-string
                          z/down
                          z/right
-                         (z/edit #(+ %1 %2 %3 %4) 33 23 44)
+                         (z/edit + 33 23 44)
                          z/root-string))))
 
 (deftest t-edit-uses-default-auto-resolver