Replace ! in grimoire urls

Author: Bozhidar Batsov

cider-interaction.el

@@ -1413,6 +1413,9 @@ under point, prompts for a var."
   (setq name (if (string-match "\\?\\'" name)
                  (replace-match "_QMARK" t t name)
                name))
+  (setq name (if (string-match "\\!\\'" name)
+                 (replace-match "_BANG" t t name)
+               name))
   (setq name (if (string-match "\\`-" name)
                  (replace-match "DASH_" t t name)
                name))

test/cider-tests.el

@@ -547,6 +547,7 @@
 (ert-deftest cider-grimoire-replace-special ()
   (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 "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")))