From 9ef09ff72b8c8a015b38a30334b00cb4cea15158 Mon Sep 17 00:00:00 2001 From: Jose Antonio Ortega Ruiz Date: Sun, 27 Jun 2010 14:44:16 +0200 Subject: Better switch/import REPL commands. --- elisp/geiser-racket.el | 11 ++++++++++- 1 file changed, 10 insertions(+), 1 deletion(-) (limited to 'elisp/geiser-racket.el') 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) -- cgit v1.2.3