New command to switch to REPL and put it in current module.

1 files changed, 5 insertions, 0 deletions

diff --git a/elisp/geiser-guile.el b/elisp/geiser-guile.el
index 89b80d7..13fdc49 100644
--- a/elisp/geiser-guile.el
+++ b/elisp/geiser-guile.el
@@ -89,6 +89,9 @@ This function uses `geiser-guile-init-file' if it exists."
          (or (ignore-errors (car (read-from-string module))) :f))
         (t :f)))
 
+(defun geiser-guile--enter-command (module)
+  (and module (format ",m %s\n" (geiser-guile--get-module module))))
+
 (defun geiser-guile--symbol-begin (module)
   (if module
       (max (save-excursion (beginning-of-line) (point))
@@ -154,6 +157,7 @@ This function uses `geiser-guile-init-file' if it exists."
 ;;; Implementation definition:
 
 (define-geiser-implementation guile
+  (unsupported-procedures '(enter-command))
   (binary geiser-guile--binary)
   (arglist geiser-guile--parameters)
   (startup geiser-guile--startup)
@@ -161,6 +165,7 @@ This function uses `geiser-guile-init-file' if it exists."
   (debugger-prompt-regexp geiser-guile--debugger-prompt-regexp)
   (marshall-procedure geiser-guile--geiser-procedure)
   (find-module geiser-guile--get-module)
+  ;; (enter-command geiser-guile--enter-command)
   (find-symbol-begin geiser-guile--symbol-begin)
   (display-error geiser-guile--display-error)
   (display-help)