Rename slam.hound namespaces

Author: vemv

project.clj

@@ -67,9 +67,7 @@
                                           merge-meta [[:inner 0]]
                                           try-if-let [[:block 1]]}}}]
              :eastwood {:plugins         [[jonase/eastwood "0.9.9"]]
-                        :eastwood {;; vendored - shouldn't be tweaked for satisfying linters:
-                                   :exclude-namespaces [refactor-nrepl.ns.slam.hound.regrow]
-                                   ;; :implicit-dependencies would fail spuriously when the CI matrix runs for Clojure < 1.10,
+                        :eastwood {;; :implicit-dependencies would fail spuriously when the CI matrix runs for Clojure < 1.10,
                                    ;; because :implicit-dependencies can only work for a certain corner case starting from 1.10.
                                    :exclude-linters [:implicit-dependencies]
                                    :add-linters [:performance :boxed-math]

src/refactor_nrepl/ns/slam/hound/search.clj renamed to src/refactor_nrepl/ns/class_search.clj

@@ -1,8 +1,10 @@
 ;;;; Copied from slamhound 1.5.5
 ;;;; Copyright © 2011-2012 Phil Hagelberg and contributors
 ;;;; Distributed under the Eclipse Public License, the same as Clojure.
-(ns refactor-nrepl.ns.slam.hound.search
-  "Search the classpath for vars and classes."
+(ns refactor-nrepl.ns.class-search
+  "Search the classpath for classes.
+
+  Formerly known as `refactor-nrepl.ns.slam.hound.search`."
   (:require
    [clojure.java.io :refer [file]]
    [clojure.string :as string]

src/refactor_nrepl/ns/slam/hound/regrow.clj renamed to src/refactor_nrepl/ns/imports_and_refers_analysis.clj

@@ -1,10 +1,11 @@
 ;;;; Copied from slamhound 1.5.5
 ;;;; Copyright © 2011-2012 Phil Hagelberg and contributors
 ;;;; Distributed under the Eclipse Public License, the same as Clojure.
-(ns refactor-nrepl.ns.slam.hound.regrow
+(ns refactor-nrepl.ns.imports-and-refers-analysis
+  "Formerly known as `refactor-nrepl.ns.slam.hound.regrow`."
   (:require
    [nrepl.middleware.interruptible-eval :refer [*msg*]]
-   [refactor-nrepl.ns.slam.hound.search :as search]))
+   [refactor-nrepl.ns.class-search :as class-search]))
 
 (def ^:dynamic *cache* (atom {}))
 (def ^:dynamic *dirty-ns* (atom #{}))
@@ -15,20 +16,21 @@
       (swap! *dirty-ns* conj ns))
     (apply f args)))
 
+;; XXX remove this if possible, we shouldn't be this sort of stuff.
 (alter-var-root #'clojure.main/repl wrap-clojure-repl)
 
 (defn cache-with-dirty-tracking
   "The function to be cached, f, should have two signatures. A zero-operand
   signature which computes the result for all namespaces, and a two-operand
   version which takes the previously computed result and a list of dirty
   namespaces, and returns an updated result."
-  [key f]
+  [k f]
   (if *cache*
-    (if-let [cached (get @*cache* key)]
+    (if-let [cached (get @*cache* k)]
       (if-let [dirty (seq @*dirty-ns*)]
-        (key (swap! *cache* assoc key (f cached dirty)))
+        (k (swap! *cache* assoc k (f cached dirty)))
         cached)
-      (key (swap! *cache* assoc key (f))))
+      (k (swap! *cache* assoc k (f))))
     (f)))
 
 (defn clear-cache! []
@@ -79,5 +81,5 @@
   [type missing _body _old-ns-map]
   (case type
     :import (into (ns-import-candidates missing)
-                  (get @search/available-classes-by-last-segment missing))
+                  (get @class-search/available-classes-by-last-segment missing))
     :refer (get (symbols->ns-syms) missing)))

src/refactor_nrepl/ns/resolve_missing.clj

@@ -6,14 +6,14 @@
             [clojure.string :as str]
             [refactor-nrepl.core :refer [prefix suffix]]
             [refactor-nrepl.util :refer [self-referential?]]
-            [refactor-nrepl.ns.slam.hound.regrow :as slamhound]))
+            [refactor-nrepl.ns.imports-and-refers-analysis :as imports-and-refers-analysis]))
 
 (defn- candidates [sym]
   (reduce into
           [(when-let [p (prefix sym)]
-             (slamhound/candidates :import (symbol p) [] {}))
-           (slamhound/candidates :import (symbol (suffix sym)) [] {})
-           (slamhound/candidates :refer (symbol (suffix sym)) [] {})]))
+             (imports-and-refers-analysis/candidates :import (symbol p) [] {}))
+           (imports-and-refers-analysis/candidates :import (symbol (suffix sym)) [] {})
+           (imports-and-refers-analysis/candidates :refer (symbol (suffix sym)) [] {})]))
 
 (defn- get-type [sym]
   (let [info (info 'user sym)]

test/refactor_nrepl/ns/slam/hound/search_test.clj renamed to test/refactor_nrepl/ns/class_search_test.clj

@@ -1,7 +1,7 @@
-(ns refactor-nrepl.ns.slam.hound.search-test
+(ns refactor-nrepl.ns.class-search-test
   (:require
    [clojure.test :refer [deftest is]]
-   [refactor-nrepl.ns.slam.hound.search :as sut]))
+   [refactor-nrepl.ns.class-search :as sut]))
 
 (def acceptable-error-messages
   #{"com/github/luben/zstd/ZstdInputStream"

test/refactor_nrepl/ns/slam/hound/regrow_test.clj renamed to test/refactor_nrepl/ns/imports_and_refers_analysis_test.clj

@@ -1,6 +1,6 @@
-(ns refactor-nrepl.ns.slam.hound.regrow-test
+(ns refactor-nrepl.ns.imports-and-refers-analysis-test
   (:require
-   [refactor-nrepl.ns.slam.hound.regrow :as sut]
+   [refactor-nrepl.ns.imports-and-refers-analysis :as sut]
    [clojure.test :refer [deftest is]]))
 
 (deftest works