completable-for-cljr-slash?: also complete @

Author: vemv

clj-refactor.el

@@ -1989,7 +1989,11 @@ the alias in the project."
 
 (defun completable-for-cljr-slash? (sym)
   (when sym
-    (not (null (string-match-p "^\\^?\\(::\\)?\\([a-zA-Z]+[a-zA-Z0-9\\-]*\\)+\\(\\.?[a-zA-Z]+[a-zA-Z0-9\\-]*\\)*$" sym)))))
+    (or
+     ;; vanilla symbols, maybe prefixed by ^, :: or ^::
+     (not (null (string-match-p "^\\^?\\(::\\)?\\([a-zA-Z]+[a-zA-Z0-9\\-]*\\)+\\(\\.?[a-zA-Z]+[a-zA-Z0-9\\-]*\\)*$" sym)))
+     ;; vanilla symbols, prefixed by @
+     (not (null (string-match-p "^@\\([a-zA-Z]+[a-zA-Z0-9\\-]*\\)+\\(\\.?[a-zA-Z]+[a-zA-Z0-9\\-]*\\)*$" sym))))))
 
 ;;;###autoload
 (defun cljr-slash ()

tests/unit-test.el

@@ -7,7 +7,8 @@
     (dolist (prefix '(""
                       "::"
                       "^"
-                      "^::"))
+                      "^::"
+                      "@"))
       (expect (completable-for-cljr-slash? (concat prefix "a")) :to-be t)
       (expect (completable-for-cljr-slash? (concat prefix "a-")) :to-be t)
       (expect (completable-for-cljr-slash? (concat prefix "a2")) :to-be t)