diff options
author | Bozhidar Batsov <bozhidar@tradeo.com> | 2014-08-01 16:11:19 +0300 |
---|---|---|
committer | Bozhidar Batsov <bozhidar@tradeo.com> | 2014-08-01 16:11:19 +0300 |
commit | c209d8aa505b282667045e8aae5456c7755574e9 (patch) | |
tree | 2ddd6c52b31ee937cbb84dcab57acc7cc2afba13 | |
parent | df9d445f09f26315a97e0809961084966fb90311 (diff) |
Simplify cider-grimoire-replace-special
-rw-r--r-- | cider-interaction.el | 25 |
1 files changed, 6 insertions, 19 deletions
diff --git a/cider-interaction.el b/cider-interaction.el index 4d459348..a94e27bf 100644 --- a/cider-interaction.el +++ b/cider-interaction.el @@ -1413,25 +1413,12 @@ under point, prompts for a var." (defun cider-grimoire-replace-special (name) "Convert the dashes in NAME to a grimoire friendly format." - (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 "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)) - (setq name (if (string-match "-\\'" name) - (replace-match "_DASH" t t name) - name)) - (replace-regexp-in-string "-" "_DASH_" name)) + (->> name + (replace-regexp-in-string "\\?" "_QMARK_") + (replace-regexp-in-string "!" "_BANG_") + (replace-regexp-in-string "\\*" "_STAR_") + (replace-regexp-in-string "\\-" "_DASH_") + (replace-regexp-in-string "\\(\\`_\\)\\|\\(_\\'\\)" ""))) (defun cider-grimoire-url (name ns clojure-version) "Generate a grimoire url from NAME, NS and CLOJURE-VERSION." |