prune-dependencies: consider :as names in cljs strings requires as objects in themselves

Fixes #383

Author: vemv

src/refactor_nrepl/ns/prune_dependencies.clj

@@ -43,14 +43,25 @@
   (some (set symbols-in-file) (map str (vals rename))))
 
 (defn- libspec-in-use?
-  [{:keys [refer] :as libspec} symbols-in-file current-ns]
-  (when (or (if (= refer :all)
-              (some (partial libspec-in-use-with-refer-all? libspec current-ns)
-                    symbols-in-file)
-              (some (partial libspec-in-use-without-refer-all? libspec)
-                    symbols-in-file))
-            (libspec-in-use-with-rename? libspec symbols-in-file))
-    libspec))
+  [{libspec-refer :refer
+    libspec-ns :ns
+    libspec-as :as
+    :as libspec} symbols-in-file current-ns]
+  (let [refer-all? (= libspec-refer :all)
+        libspec-as-str (str libspec-as)
+        symbols-in-file (cond-> symbols-in-file
+                          (and (string? libspec-ns)
+                               (not refer-all?)
+                               libspec-as
+                               (contains? (set symbols-in-file) libspec-as-str))
+                          (conj (str (symbol libspec-ns libspec-as-str))))]
+    (when (or (if refer-all?
+                (some (partial libspec-in-use-with-refer-all? libspec current-ns)
+                      symbols-in-file)
+                (some (partial libspec-in-use-without-refer-all? libspec)
+                      symbols-in-file))
+              (libspec-in-use-with-rename? libspec symbols-in-file))
+      libspec)))
 
 (defn- referred-symbol-in-use?
   [symbol-ns used-syms sym]

test-resources/cljsns.cljs

@@ -10,7 +10,8 @@
             ["react" :as react]
             ["underscore$default" :as underscore]
             ["react-UNUSED" :as react-unused]
-            ["underscore-UNUSEd$default" :as underscore-unused])
+            ["underscore-UNUSED$default" :as underscore-unused]
+            ["@react-native-async-storage/async-storage" :as AsyncStorage])
   (:require-macros [cljs.test :refer [testing]]
                    [cljs.analyzer.macros :as am]
                    cljs.analyzer.api)
@@ -29,6 +30,12 @@
   []
   (react/foo underscore/bar))
 
+;; https://github.com/clojure-emacs/clj-refactor.el/issues/529
+(defn use-as
+  "Uses an `:as` name as an object in itself"
+  []
+  (.getItem AsyncStorage "foo"))
+
 (deftest tt
   (testing "whatever"
     (is (= 1 1))))

test-resources/cljsns_cleaned.cljs

@@ -1,5 +1,6 @@
 (ns cljsns
-  (:require ["react" :as react]
+  (:require ["@react-native-async-storage/async-storage" :as AsyncStorage]
+            ["react" :as react]
             ["underscore$default" :as underscore]
             [cljs.pprint :as pprint]
             [cljs.test :refer-macros [deftest is]]