File tree Expand file tree Collapse file tree 2 files changed +8
-11
lines changed Expand file tree Collapse file tree 2 files changed +8
-11
lines changed Original file line number Diff line number Diff line change @@ -1415,9 +1415,8 @@ under point, prompts for a var."
1415
1415
" Convert the dashes in NAME to a grimoire friendly format."
1416
1416
(->> name
1417
1417
(replace-regexp-in-string " \\ ?" " _QMARK_" )
1418
- (replace-regexp-in-string " !" " _BANG_" )
1419
- (replace-regexp-in-string " \\ *" " _STAR_" )
1420
- (replace-regexp-in-string " \\ -" " _DASH_" )
1418
+ (replace-regexp-in-string " \\ ." " _DOT_" )
1419
+ (replace-regexp-in-string " \\ /" " _SLASH_" )
1421
1420
(replace-regexp-in-string " \\ (\\ `_\\ )\\ |\\ (_\\ '\\ )" " " )))
1422
1421
1423
1422
(defun cider-grimoire-url (name ns clojure-version )
Original file line number Diff line number Diff line change 546
546
; ;; grimoire tests
547
547
(ert-deftest cider-grimoire-replace-special ()
548
548
(should (equal (cider-grimoire-replace-special " isa?" ) " isa_QMARK" ))
549
- (should (equal (cider-grimoire-replace-special " really-isa?" ) " really_DASH_isa_QMARK" ))
550
- (should (equal (cider-grimoire-replace-special " reset!" ) " reset_BANG" ))
551
- (should (equal (cider-grimoire-replace-special " *ns*" ) " STAR_ns_STAR" ))
552
- (should (equal (cider-grimoire-replace-special " defn-" ) " defn_DASH" ))
553
- (should (equal (cider-grimoire-replace-special " -map-indexed" ) " DASH_map_DASH_indexed" ))
554
- (should (equal (cider-grimoire-replace-special " -foo-bar-baz-" ) " DASH_foo_DASH_bar_DASH_baz_DASH" )))
549
+ (should (equal (cider-grimoire-replace-special " really-isa?" ) " really-isa_QMARK" ))
550
+ (should (equal (cider-grimoire-replace-special " .." ) " DOT__DOT" ))
551
+ (should (equal (cider-grimoire-replace-special " ." ) " DOT" ))
552
+ (should (equal (cider-grimoire-replace-special " /" ) " SLASH" )))
555
553
556
554
(ert-deftest cider-grimoire-url ()
557
- (should (equal " http://grimoire.arrdem.com/1.5.0/clojure.core/defn_DASH /"
558
- (cider-grimoire-url " defn- " " clojure.core" " 1.5.1" )))
555
+ (should (equal " http://grimoire.arrdem.com/1.5.0/clojure.core/even_QMARK /"
556
+ (cider-grimoire-url " even? " " clojure.core" " 1.5.1" )))
559
557
(should (equal " http://grimoire.arrdem.com/1.5.0/clojure.core/"
560
558
(cider-grimoire-url nil " clojure.core" " 1.5.1" ))))
You can’t perform that action at this time.
0 commit comments