Clean symbol before doing look up

If you attempt to run `cider-jump-to-var` to find the definition of an
atom dereferenced with `@`, cider can't find the source location. If you remove
the `@` cider has no issues finding the location. This allows for cleaning
non-variable components out of a symbol before doing the look up to prevent this
issue.

Author: Ryan Smith

cider-client.el

@@ -146,6 +146,13 @@ unless ALL is truthy."
   (when (and class member)
     (cider-sync-request:info nil class member)))
 
+(defun cider--clean-symbol (symbol)
+  "Return SYMBOL cleaned so a dictionary match can be found."
+  (let* ((symbol (if (string-equal (substring symbol 0 1) "@")
+                     (substring symbol 1)
+                   symbol)))
+    symbol))
+
 
 ;;; Requests
 
@@ -200,13 +207,14 @@ loaded. If CALLBACK is nil, use `cider-load-file-handler'."
 
 (defun cider-sync-request:info (symbol &optional class member)
   "Send \"info\" op with parameters SYMBOL or CLASS and MEMBER."
-  (let ((var-info (-> `("op" "info"
-                        "session" ,(nrepl-current-session)
-                        "ns" ,(cider-current-ns)
-                        ,@(when symbol (list "symbol" symbol))
-                        ,@(when class (list "class" class))
-                        ,@(when member (list "member" member)))
-                    (nrepl-send-sync-request))))
+  (let* ((symbol (cider--clean-symbol symbol))
+         (var-info (-> `("op" "info"
+                         "session" ,(nrepl-current-session)
+                         "ns" ,(cider-current-ns)
+                         ,@(when symbol (list "symbol" symbol))
+                         ,@(when class (list "class" class))
+                         ,@(when member (list "member" member)))
+                     (nrepl-send-sync-request))))
     (if (member "no-info" (nrepl-dict-get var-info "status"))
         nil
       var-info)))