[Fix #1062] Add completion candidates to cider-find-resource

Author: bbatsov

CHANGELOG.md

@@ -43,6 +43,7 @@
 * [#1014](https://github.com/clojure-emacs/cider/issues/1014) A prefix of <kbd>-</kbd> causes `cider-find-var` and
   `cider-find-resource` to show results in other window. Additionally, a double prefix argument <kbd>C-u C-u</kbd>
   inverts the meaning of `cider-prompt-for-symbol` and shows the results in other window.
+* [#1062](https://github.com/clojure-emacs/cider/issues/1062): Added completion candidates to `cider-find-resource`.
 
 ### Changes
 

cider-client.el

@@ -235,6 +235,12 @@ loaded. If CALLBACK is nil, use `cider-load-file-handler'."
       (nrepl-send-sync-request)
       (nrepl-dict-get "resource-path")))
 
+(defun cider-sync-request:resources-list ()
+  "Perform nREPL \"resource\" op with resource name NAME."
+  (-> (list "op" "resources-list")
+      (nrepl-send-sync-request)
+      (nrepl-dict-get "resources-list")))
+
 (defun cider-sync-request:format-code (code)
   "Perform nREPL \"format-code\" op with CODE."
   (-> (list "op" "format-code"

cider-interaction.el

@@ -829,9 +829,11 @@ value is thing at point."
   (interactive
    (list
     (if (cider--prompt-for-symbol-p current-prefix-arg)
-        (cider-read-from-minibuffer "Resource: " (thing-at-point 'filename))
+        (completing-read "Resource: "
+                         (cider-sync-request:resources-list)
+                         nil nil
+                         (thing-at-point 'filename))
       (or (thing-at-point 'filename) ""))))
-
   (cider-ensure-op-supported "resource")
   (-if-let* ((resource (cider-sync-request:resource path))
              (buffer (cider-find-file resource)))