"F" and "M-." work for Scheme

* le-scheme.el (lispy--scheme-goto-symbol): New defun.

* lispy.el (lispy-goto-symbol): Update the interactive part, the input
  should always be a string. Call `lispy--scheme-goto-symbol'.

Author: abo-abo

le-scheme.el

@@ -34,6 +34,18 @@
 (declare-function geiser-eval--send/wait "geiser-eval")
 (declare-function geiser-eval--retort-error "geiser-eval")
 (declare-function geiser-mode "geiser-mode")
+(declare-function geiser-edit--try-edit "geiser-edit")
+
+(defun lispy--scheme-goto-symbol (symbol)
+  "Opens a new window visiting the definition of SYMBOL."
+  (let* ((symbol (make-symbol symbol))
+         (cmd `(:eval (:ge symbol-location ',symbol)))
+         (marker (point-marker)))
+    (condition-case err
+        (progn (geiser-edit--try-edit symbol (geiser-eval--send/wait cmd))
+               (when marker (ring-insert find-tag-marker-ring marker)))
+      (error
+       (error (error-message-string err))))))
 
 (defun lispy--eval-scheme (str)
   "Eval STR as Scheme code."

lispy.el

@@ -2659,12 +2659,12 @@ Sexp is obtained by exiting list ARG times."
 (declare-function slime-edit-definition "ext:slime")
 (declare-function lispy--clojure-resolve "le-clojure")
 (declare-function lispy--clojure-jump "le-clojure")
+(declare-function lispy--scheme-goto-symbol "le-scheme")
 (defun lispy-goto-symbol (symbol)
-  "Go to definition of SYMBOL."
-  (interactive (list (let ((str (thing-at-point 'symbol)))
-                       (if str
-                           (intern str)
-                         (lispy--current-function)))))
+  "Go to definition of SYMBOL.
+SYMBOL is a string."
+  (interactive (list (or (thing-at-point 'symbol)
+                         (lispy--current-function))))
   (let (rsymbol)
     (deactivate-mark)
     (ring-insert find-tag-marker-ring (point-marker))
@@ -2707,7 +2707,10 @@ Sexp is obtained by exiting list ARG times."
            (lispy--back-to-paren))
           ((eq major-mode 'lisp-mode)
            (require 'slime)
-           (slime-edit-definition symbol))))
+           (slime-edit-definition symbol))
+          ((eq major-mode 'scheme-mode)
+           (require 'geiser)
+           (lispy--scheme-goto-symbol symbol))))
   ;; in case it's hidden in an outline
   (lispy--ensure-visible))