suggest-libspecs op: support collections for :only values

Author: vemv

CHANGELOG.md

@@ -2,6 +2,10 @@
 
 ## Unreleased
 
+## 3.9.1
+
+* `suggest-libspecs` op: support collections for `:only` values.
+
 ## 3.9.0
 
 * [#401](https://github.com/clojure-emacs/refactor-nrepl/issues/401) `resolve-missing` no longer returns the wrong type

project.clj

@@ -13,7 +13,7 @@
                  ^:inline-dep [org.clojure/tools.analyzer.jvm "1.2.3"]
                  ^:inline-dep [org.clojure/tools.namespace "1.4.4" :exclusions [org.clojure/tools.reader]]
                  ^:inline-dep [org.clojure/tools.reader "1.3.6"]
-                 ^:inline-dep [cider/orchard "0.12.0"]
+                 ^:inline-dep [cider/orchard "0.21.0"]
                  ^:inline-dep [cljfmt "0.9.2" :exclusions [rewrite-clj rewrite-cljs]]
                  ^:inline-dep [clj-commons/fs "1.6.310"]
                  ^:inline-dep [rewrite-clj "1.1.47"]
@@ -34,7 +34,7 @@
                :unresolved-tree false}
   :filespecs [{:type :bytes :path "refactor-nrepl/refactor-nrepl/project.clj" :bytes ~(slurp "project.clj")}]
   :profiles {;; Clojure versions matrix
-             :provided {:dependencies [[cider/cider-nrepl "0.31.0"]
+             :provided {:dependencies [[cider/cider-nrepl "0.44.0"]
                                        [org.clojure/clojure "1.11.1"]
                                        ;; For satisfying `:pedantic?`:
                                        [com.google.code.findbugs/jsr305 "3.0.2"]

src/refactor_nrepl/ns/suggest_libspecs.clj

@@ -14,6 +14,10 @@
     (conj coll x)
     [x]))
 
+(def to-sym
+  (comp symbol
+        name)) ;; `name` for Clojure <= 1.9 compat
+
 (def parse-preferred-aliases
   (memoize (fn parse-preferred-aliases* [preferred-aliases]
              (let [preferred-aliases (into []
@@ -23,8 +27,10 @@
                                                         x)))
                                            (read-string preferred-aliases))
                    m (volatile! {})]
-               (doseq [[prefix ns-name _only-keyword only] (mapv (partial mapv (comp symbol
-                                                                                     name)) ;; `name` for Clojure <= 1.9 compat
+               (doseq [[prefix ns-name _only-keyword only] (mapv (partial mapv (fn [x]
+                                                                                 (cond->> x
+                                                                                   (coll? x)      (mapv to-sym)
+                                                                                   (not (coll? x)) to-sym)))
                                                                  preferred-aliases)
                        :let [files (ns-parser/ns-sym->ns-filenames ns-name)
                              only (or only [:clj :cljs])

test/refactor_nrepl/ns/suggest_libspecs_test.clj

@@ -82,7 +82,9 @@
                                                                                            clojure.set]}}    ["[something-else :as set]" "[clojure.set :as set]"]
 
     ;; Story 4:
-    "io"         "clj"       "clj"     [["io" "clojure.java.io" :only :clj]] '{:cljs {io [something-else]}}  ["[clojure.java.io :as io]"]
+    "io"         "clj"       "clj"     [["io" "clojure.java.io" :only :clj]]   '{:cljs {io [something-else]}}  ["[clojure.java.io :as io]"]
+    ;; https://github.com/clojure-emacs/clj-refactor.el/issues/556 :
+    "io"         "clj"       "clj"     [["io" "clojure.java.io" :only [:clj]]] '{:cljs {io [something-else]}}  ["[clojure.java.io :as io]"]
     ;; Story 5:
     "io"         "clj"       "clj"     [["io" "clojure.java.io" :only :clj]] '{:clj  {io [something-else]}}  ["[something-else :as io]"]
     "io"         "clj"       "clj"     [["io" "something-else" :only :cljs]] {}                              ["[clojure.java.io :as io]"]