Offer completions for rename-ns-alias

Author: yuhan0

clojure-mode.el

@@ -2684,6 +2684,19 @@ lists up."
     (insert sexp)
     (clojure--replace-sexps-with-bindings-and-indent)))
 
+(defun clojure--collect-ns-aliases ()
+  "Collect all aliases in current ns form."
+  (save-excursion
+    (clojure--find-ns-in-direction 'backward)
+    (let ((end (cdr (bounds-of-thing-at-point 'list)))
+          (rgx (rx ":as" (+ space)
+                   (group-n 1 (+ (not (in " ,]\n"))))))
+          (res ()))
+      (while (re-search-forward rgx end 'noerror)
+        (message (match-string 1))
+        (push (cons (point) (match-string 1)) res))
+      res)))
+
 (defun clojure--rename-ns-alias-internal (current-alias new-alias)
   "Rename a namespace alias CURRENT-ALIAS to NEW-ALIAS."
   (clojure--find-ns-in-direction 'backward)
@@ -2747,7 +2760,8 @@ With a numeric prefix argument the let is introduced N lists up."
 (defun clojure-rename-ns-alias ()
   "Rename a namespace alias."
   (interactive)
-  (let ((current-alias (read-from-minibuffer "Current alias: ")))
+  (let ((current-alias (completing-read "Current alias: "
+                                        (mapcar 'cdr (clojure--collect-ns-aliases)))))
     (save-excursion
       (clojure--find-ns-in-direction 'backward)
       (let ((rgx (concat ":as +" current-alias))