[Resolve #366] Add cljr-rename-ns-alias.

Author: anthonygalea

CHANGELOG.md

@@ -2,8 +2,9 @@
 
 ## Unreleased
 
-- [#402](https://github.com/clojure-emacs/clj-refactor.el/issues/402) cljr-stop-referring: do not alter strings.
-- [#380](https://github.com/clojure-emacs/clj-refactor.el/issues/380) clean-ns: fix FileNotFoundException, by trying both the absolute path and the path relative to the project root. This requires a new refactor-nrepl, old versions will only check the absolute path.
+- [#366](https://github.com/clojure-emacs/clj-refactor.el/issues/366): Add `cljr-rename-ns-alias`.
+- [#402](https://github.com/clojure-emacs/clj-refactor.el/issues/402): `cljr-stop-referring`: do not alter strings.
+- [#380](https://github.com/clojure-emacs/clj-refactor.el/issues/380): `cljr-clean-ns`: fix FileNotFoundException, by trying both the absolute path and the path relative to the project root. This requires a new refactor-nrepl, old versions will only check the absolute path.
 
 ## 2.4.0 (2018-08-26)
 

clj-refactor.el

@@ -377,6 +377,7 @@ Otherwise open the file and do the changes non-interactively."
     ("ml" . (cljr-move-to-let "Move to let" ?m ("code")))
     ("pc" . (cljr-project-clean "Project clean" ?c ("project")))
     ("pf" . (cljr-promote-function "Promote function" ?p ("code" "toplevel-form")))
+    ("ra" . (cljr-rename-ns-alias "Rename namespace alias" ?a ("ns")))
     ("rf" . (cljr-rename-file-or-dir "Rename file-or-dir" ?r ("project" "toplevel-form")))
     ("rl" . (cljr-remove-let "Remove let" ?r ("code")))
     ("rm" . (cljr-require-macro "Add to or extend the require-macros form" ?M ("ns")))
@@ -406,13 +407,14 @@ Otherwise open the file and do the changes non-interactively."
 ------------------------------------------------------------------------------------------------------------------------------------------------------
 _ai_: Add import to ns                             _am_: Add missing libspec                          _ap_: Add project dependency
 _ar_: Add require to ns                            _au_: Add use to ns                                _cn_: Clean ns
-_rm_: Require a macro into the ns                  _sr_: Stop referring
+_ra_: Rename namespace alias                       _rm_: Require a macro into the ns                  _sr_: Stop referring
 _b_: Back to previous Hydra
 "
   ("ai" cljr-add-import-to-ns) ("am" cljr-add-missing-libspec)
   ("ap" cljr-add-project-dependency) ("ar" cljr-add-require-to-ns)
   ("au" cljr-add-use-to-ns) ("cn" cljr-clean-ns)
-  ("rm" cljr-require-macro) ("sr" cljr-stop-referring)
+  ("ra" cljr-rename-ns-alias) ("rm" cljr-require-macro)
+  ("sr" cljr-stop-referring)
   ("b" hydra-cljr-help-menu/body :exit t)
   ("q" nil "quit"))
 
@@ -880,6 +882,25 @@ issued, and should be left focused."
       (kill-buffer buf))
     (find-file (format "%s/%s" new-dir (seq-some (apply-partially same-file active) files)))))
 
+;;;###autoload
+(defun cljr-rename-ns-alias ()
+  "Rename a namespace alias.
+
+See: https://github.com/clojure-emacs/clj-refactor.el/wiki/cljr-rename-ns-alias"
+  (interactive)
+  (let ((current-alias (read-from-minibuffer "Current alias: ")))
+    (save-excursion
+      (cljr--goto-ns)
+      (let ((rgx (concat ":as +" current-alias))
+            (bound (save-excursion (forward-list 1) (point))))
+        (if (save-excursion (search-forward-regexp rgx bound t))
+          (let ((new-alias (read-from-minibuffer "New alias: ")))
+            (save-excursion (replace-regexp rgx (concat ":as " new-alias) nil (point-min) bound))
+            (save-excursion (replace-regexp (concat current-alias "/") (concat new-alias "/")))
+            (save-excursion (replace-regexp (concat "#::" current-alias "{") (concat "#::" new-alias "{")))
+            (message "Successfully renamed alias '%s' to '%s'" current-alias new-alias))
+          (user-error "Cannot find namespace alias: '%s'" current-alias))))))
+
 ;;;###autoload
 (defun cljr-rename-file-or-dir (old-path new-path)
   "Rename a file or directory of files.

examples/rename-ns-alias.gif

@@ -0,0 +1,60 @@
+Feature: Rename ns alias
+
+  Background:
+    Given I have a project "cljr" in "tmp"
+    And I have a clojure-file "tmp/src/cljr/core.clj"
+    And I open file "tmp/src/cljr/core.clj"
+    And I clear the buffer
+
+  Scenario: With :as
+    When I insert:
+    """
+    (ns cljr.core
+      (:require [my.lib :as lib]))
+
+    (def m #::lib{:kw 1, :n/kw 2, :_/bare 3, 0 4})
+
+    (+ (lib/a 1) (b 2))
+    """
+    And I place the cursor before "bare"
+    And I start an action chain
+    And I press "C-! ra"
+    And I type "lib"
+    And I press "RET"
+    And I type "foo"
+    And I press "RET"
+    And I execute the action chain
+    Then I should see:
+    """
+    (ns cljr.core
+      (:require [my.lib :as foo]))
+
+    (def m #::foo{:kw 1, :n/kw 2, :_/bare 3, 0 4})
+
+    (+ (foo/a 1) (b 2))
+    """
+
+  Scenario: Without :as
+    When I insert:
+    """
+    (ns cljr.core
+      (:require [my.lib :as lib]))
+
+    (def m #::lib{:kw 1, :n/kw 2, :_/bare 3, 0 4})
+
+    (+ (lib/a 1) (b 2))
+    """
+    And I place the cursor before "bare"
+    And I start an action chain
+    And I press "C-! ra"
+    And I type "foo"
+    And I press "RET"
+    Then I should see:
+    """
+    (ns cljr.core
+      (:require [my.lib :as lib]))
+
+    (def m #::lib{:kw 1, :n/kw 2, :_/bare 3, 0 4})
+
+    (+ (lib/a 1) (b 2))
+    """