[nongnu] elpa/geiser-racket 7f8b4b7 014/191: Better switch/import REPL commands.

[Philip Kaludercic]

branch: elpa/geiser-racket
commit 7f8b4b77850b026f06a90fb41c230925e5cf703d
Author: Jose Antonio Ortega Ruiz <jao@gnu.org>
Commit: Jose Antonio Ortega Ruiz <jao@gnu.org>

    Better switch/import REPL commands.
---
 elisp/geiser-racket.el | 11 ++++++++++-
 1 file changed, 10 insertions(+), 1 deletion(-)

diff --git a/elisp/geiser-racket.el b/elisp/geiser-racket.el
index e5f8780..7f00810 100644
--- a/elisp/geiser-racket.el
+++ b/elisp/geiser-racket.el
@@ -113,7 +113,15 @@ This function uses `geiser-racket-init-file' if it exists."
   (save-excursion (skip-syntax-backward "^-()>") (point)))
 
 (defun geiser-racket--enter-command (module)
-  (and (stringp module) (format "(enter! (file %S))" module)))
+  (when (stringp module)
+    (cond ((zerop (length module)) "(enter! #f)")
+          ((file-name-absolute-p module) (format "(enter! (file %S))" module))
+          (t (format "(enter! %s)" module)))))
+
+(defun geiser-racket--import-command (module)
+  (and (stringp module)
+       (not (zerop (length module)))
+       (format "(require %s)" module)))
 
 (defconst geiser-racket--binding-forms
   '(for for/list for/hash for/hasheq for/and for/or
@@ -192,6 +200,7 @@ This function uses `geiser-racket-init-file' if it exists."
   (marshall-procedure geiser-racket--geiser-procedure)
   (find-module geiser-racket--get-module)
   (enter-command geiser-racket--enter-command)
+  (import-command geiser-racket--import-command)
   (find-symbol-begin geiser-racket--symbol-begin)
   (display-error geiser-racket--display-error)
   (display-help geiser-racket--external-help)