dev: add Eastwood linting (#573)

* dev: add Eastwood linting

For some other Etaoin wip, I wanted to address some reflection
warnings for new code and noticed we did not have any existing checks
for reflection. I find Eastwood helps out with this nicely.

In addition to reflection warnings, I also addressed some other issues
Eastwood reported:
- A booboo in a test assertion for
`etaoin.unit.unit-test/test-chrome-profile`.
Fixed!
- URL constructors are deprecated, starting with JDK 20.
I switched to using lambdaisland/uri.
- it noticed `is` assert messages that were not obviously strings.
I ^String type hinted the message generating fn.
- it thought string `"always"` for a constant truthy looked suspicious.
I switched to the more conventional `:always`.
- several tests had empty assertions like `(is true "text found")` or
`(is 1)`.
Perhaps some linter once warned about a test without assertions? We
don't have such a thing today, so I turfed these meaningless assertions.
The unwritten assertion for these tests is that they do not throw an
exception.

* add/ignore lint stuff

- add some kondo lib config brought in by kondo
- git ignore .eastwood dir

Author: lread

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

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

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

@@ -0,0 +1,16 @@
+(ns taoensso.encore
+  (: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))}))

.gitignore

@@ -17,6 +17,7 @@ TAGS
 *.iml
 build.xml
 /.idea
+/.eastwood
 
 # ignore cache under .clj-kondo and .lsp
 .cache

bb.edn

@@ -78,8 +78,12 @@
                                (filterv (fn [p] (re-find pattern (:command p))))
                                (doric/table [:pid :start-instant :is-alive :command :arguments])
                                println))}
-  lint           {:doc "[--rebuild] lint source code"
+  lint-kondo     {:doc "[--rebuild] lint source code with clj-kondo"
                   :task lint/-main}
+  lint-eastwood  {:doc "Run Eastwood linter on source code"
+                  :task (shell/clojure "-M:eastwood")}
+  lint           {:doc "Run all linters"
+                  :depends [lint-kondo lint-eastwood]}
   cljdoc-preview {:doc "preview what docs will look like on cljdoc, use --help for args"
                   :task cljdoc-preview/-main}
   tools-versions {:doc "report on tools versions"

deps.edn

@@ -7,7 +7,8 @@
         slingshot/slingshot {:mvn/version "0.12.2"}
         cheshire/cheshire {:mvn/version "5.12.0"}
         org.clojure/tools.cli {:mvn/version "1.1.230"}
-        org.clojure/tools.logging {:mvn/version "1.3.0"}}
+        org.clojure/tools.logging {:mvn/version "1.3.0"}
+        lambdaisland/uri {:mvn/version "1.19.155"}}
  :aliases
  {:1.11 {:replace-deps {org.clojure/clojure {:mvn/version "1.11.2"}}}
   :1.12 {:replace-deps {org.clojure/clojure {:mvn/version "1.12.0-alpha9"}}}
@@ -47,6 +48,13 @@
   :clj-kondo {:extra-deps {clj-kondo/clj-kondo {:mvn/version "2024.03.13"}}
               :main-opts ["-m" "clj-kondo.main"]}
 
+  :eastwood {:extra-deps {jonase/eastwood {:mvn/version "1.4.2"}}
+             :extra-paths ["test"]
+             :main-opts ["-m" "eastwood.lint" {:source-paths ["src"]
+                                               :test-paths ["test"]
+                                               :add-linters [:performance]
+                                               :exclude-linters [:local-shadows-var]}]}
+
   :build {:deps {io.github.clojure/tools.build {:mvn/version "0.10.0"}
                  slipset/deps-deploy {:mvn/version "0.2.2"}}
           :ns-default build}

src/etaoin/api.clj

@@ -160,6 +160,8 @@
    java.text.SimpleDateFormat
    (java.util Base64 Date)))
 
+(set! *warn-on-reflection* true)
+
 ;;
 ;; WebDriver defaults
 ;;
@@ -2813,7 +2815,7 @@
   "Clojure returns a seq of chars for a string.
   This does not handle wide (unicode) characters.
   Here we return a seq of codepoint strings for string `s`."
-  [s]
+  [^String s]
   (->> s
        .codePoints
        .iterator
@@ -3166,7 +3168,7 @@
 
 (defn- b64-decode [s]
   (-> (Base64/getDecoder)
-      (.decode s)))
+      (.decode ^String s)))
 
 (defmulti ^:private b64-to-file
   "Dumps a Base64-encoded string into a file.

src/etaoin/api2.clj

@@ -3,6 +3,8 @@
   (:require
    [etaoin.api :as e]))
 
+(set! *warn-on-reflection* true)
+
 (defmacro with-firefox
   "Executes `body` with a Firefox driver session bound to `bind`.
 

src/etaoin/dev.clj

@@ -5,6 +5,8 @@
    [clojure.string :as str]
    [etaoin.api :as api]))
 
+(set! *warn-on-reflection* true)
+
 (defn- try-parse-int
   [line]
   (try (Integer/parseInt line)

src/etaoin/ide/flow.clj

@@ -8,6 +8,8 @@
    [etaoin.ide.impl.api :refer [run-command-with-log str->var]]
    [etaoin.ide.impl.spec :as spec]))
 
+(set! *warn-on-reflection* true)
+
 (declare execute-commands)
 
 (defn- execute-branch

src/etaoin/ide/impl/api.clj

@@ -12,6 +12,8 @@
    [etaoin.impl.util :refer [defmethods]]
    [etaoin.keys :as k]))
 
+(set! *warn-on-reflection* true)
+
 (defn absolute-path?
   [path]
   (-> path
@@ -158,7 +160,7 @@
     (str base-url "/" target)))
 
 (defn make-assert-msg
-  [command actual expected]
+  ^String [command actual expected]
   (format "\nAssert command:\"%s\"\nExpected: %s\nActual: %s"
           (name command) expected actual))
 
@@ -628,7 +630,7 @@
     (not (str/blank? target))
     (str (format " on '%s'" target))
 
-    "always"
+    :always
     (str (format "Command: %s" (name command)))))
 
 (defn run-command-with-log