[Fix #289] Namespaced keywords vs find (local) symbol

The edge-case handling for local symbols in opt-maps wasn't using a
reader that was configured correctly and choked on a namespaced keyword.

Author: expez

Diff for: CHANGELOG.md

@@ -2,6 +2,8 @@
 
 ## Unreleased
 
+### Bugs fixed
+* [#289](https://github.com/clojure-emacs/refactor-nrepl/issues/289): Fix an edge-case with involving keywords that caused find-symbol to crash.
 * [#305](https://github.com/clojure-emacs/refactor-nrepl/issues/305): Don't put `:as` or `:refer` on their own lines in the ns form, when the libspec is so long it causes the line to wrap.
 * [clojure-emacs/clj-refactor.el#459](https://github.com/clojure-emacs/clj-refactor.el/issues/459): `clean-ns` should conform to the style guide: `(:require` in the ns form should be followed by a newline.
   * You can opt out via the new `:insert-newline-after-require` configuration option.

Diff for: src/refactor_nrepl/find/find_symbol.clj

@@ -10,7 +10,8 @@
              [s-expressions :as sexp]]
             [refactor-nrepl.find.find-macros :refer [find-macro]]
             [refactor-nrepl.find.util :as find-util]
-            [refactor-nrepl.ns.libspecs :as libspecs])
+            [refactor-nrepl.ns.libspecs :as libspecs]
+            [clojure.tools.reader :as reader])
   (:import (java.io File)))
 
 (def ^:private symbol-regex #"[\w\.:\*\+\-_!\?]+")
@@ -140,12 +141,14 @@
 
 (defn- get&read-enclosing-sexps
   [file-content {:keys [^long line-beg ^long col-beg]}]
-  (binding [*read-eval* false]
+  (binding [*read-eval* false
+            clojure.tools.reader/*alias-map*
+            (ns-aliases (core/ns-from-string file-content))]
     (let [line (dec line-beg)
           encl-sexp-level1 (or (sexp/get-enclosing-sexp file-content line col-beg) "")
           encl-sexp-level2 (or (sexp/get-enclosing-sexp file-content line col-beg 2) "")]
-      [encl-sexp-level1 (read-string encl-sexp-level1)
-       encl-sexp-level2 (read-string encl-sexp-level2)])))
+      [encl-sexp-level1 (reader/read-string encl-sexp-level1)
+       encl-sexp-level2 (reader/read-string encl-sexp-level2)])))
 
 (defn- optmap-with-default?
   [var-name _file-content [_ [_ level1-form _ level2-form]]]

Diff for: test/refactor_nrepl/integration_tests.clj

@@ -3,6 +3,7 @@
             [clojure.test :refer :all]
             [nrepl.server :as nrepl]
             [refactor-nrepl middleware
+             [analyzer :as analyzer]
              [client :refer :all]
              [core :as core]]
             [clojure.string :as str])
@@ -58,11 +59,11 @@
 (defn ns-ast-throw-error-for-five [^String content]
   (if (.contains content "com.example.five")
     (throw (IllegalThreadStateException. "FAILED!"))
-    (#'refactor-nrepl.analyzer/cachable-ast content)))
+    (#'analyzer/cachable-ast content)))
 
 (deftest test-find-two-foo-errors-ignored
   (with-testproject-on-classpath
-    (with-redefs [refactor-nrepl.analyzer/ns-ast ns-ast-throw-error-for-five]
+    (with-redefs [analyzer/ns-ast ns-ast-throw-error-for-five]
       (let [transport (connect :port 7777)
             response (find-usages :transport transport :ns 'com.example.two
                                   :file (str test-project-dir "/src/com/example/one.clj")
@@ -206,6 +207,17 @@
           result (remove keyword? response)]
       (is (= 3 (count result)) (format "expected 3 results but got %d" (count result))))))
 
+(when-let [{:keys [minor major]} *clojure-version*]
+  (and (>= major 1)
+       (>= minor 9))
+  (deftest find-local-in-namespaced-destructuring
+    (with-testproject-on-classpath
+      (let [five-file (str test-project-dir "/src/com/example/five.clj")
+            transport (connect :port 7777)
+            response (find-usages :transport transport :name "foo" :file five-file :line 68 :column 14)
+            result (remove keyword? response)]
+        (is (= 2 (count result)) (format "expected 3 results but got %d" (count result)))))))
+
 (deftest test-find-used-locals
   (with-testproject-on-classpath
     (let [five-file (str test-project-dir "/src/com/example/five.clj")

Diff for: test/resources/testproject/src/com/example/five.clj

@@ -58,6 +58,15 @@
     [:bar :foo]
     (count foo)))
 
+(when-let [{:keys [minor major]} *clojure-version*]
+  (and (>= major 1)
+       (>= minor 9))
+  (defn fn-with-let-with-namespaced-keyword-destructuring []
+    ;; https://github.com/clojure-emacs/refactor-nrepl/issues/289
+    (let [{::str/keys [foo bar]} (hash-map)]
+      [:bar :foo]
+      (count foo))))
+
 ;; This was causing both find-local-symbol and find-macros to blow up, for
 ;; different reasons
 ::str/bar