Replace * in grimoire urls

Author: Bozhidar Batsov

cider-interaction.el

@@ -1416,6 +1416,12 @@ under point, prompts for a var."
   (setq name (if (string-match "\\!\\'" name)
                  (replace-match "_BANG" t t name)
                name))
+  (setq name (if (string-match "\\`*" name)
+                 (replace-match "STAR_" t t name)
+               name))
+  (setq name (if (string-match "*\\'" name)
+                 (replace-match "_STAR" t t name)
+               name))
   (setq name (if (string-match "\\`-" name)
                  (replace-match "DASH_" t t name)
                name))

test/cider-tests.el

@@ -548,6 +548,7 @@
   (should (equal (cider-grimoire-replace-special "isa?") "isa_QMARK"))
   (should (equal (cider-grimoire-replace-special "really-isa?") "really_DASH_isa_QMARK"))
   (should (equal (cider-grimoire-replace-special "reset!") "reset_BANG"))
+  (should (equal (cider-grimoire-replace-special "*ns*") "STAR_ns_STAR"))
   (should (equal (cider-grimoire-replace-special "defn-") "defn_DASH"))
   (should (equal (cider-grimoire-replace-special "-map-indexed") "DASH_map_DASH_indexed"))
   (should (equal (cider-grimoire-replace-special "-foo-bar-baz-") "DASH_foo_DASH_bar_DASH_baz_DASH")))