diff options
Diffstat (limited to 'elisp/geiser-debug.el')
| -rw-r--r-- | elisp/geiser-debug.el | 14 |
1 files changed, 14 insertions, 0 deletions
diff --git a/elisp/geiser-debug.el b/elisp/geiser-debug.el index f5b98a3..f761c8b 100644 --- a/elisp/geiser-debug.el +++ b/elisp/geiser-debug.el @@ -286,6 +286,12 @@ buffer.") str)) (defun geiser-debug--send-region (compile start end and-go wrap &optional nomsg) + "Evaluate (or COMPILE) the region delimited by START and END. +The result of the evaluation is reported asynchronously, so this +call is not blocking. If AND-GO is t, also jump to the repl +buffer. If WRAP is t, the region's content is wrapped in a begin +form. The flag NOMSG can be used to avoid reporting of the +result in the minibuffer." (let* ((str (buffer-substring-no-properties start end)) (wrapped (if wrap (geiser-debug--wrap-region str) str)) (code `(,(if compile :comp :eval) (:scm ,wrapped))) @@ -306,6 +312,14 @@ buffer.") (geiser-debug--display-retort scstr ret res))))) (geiser-eval--send code cont (current-buffer)))) +(defun geiser-debug--send-region/wait (compile start end timeout) + "Synchronous version of `geiser-debug--send-region', waiting and returning its result." + (let* ((str (buffer-substring-no-properties start end)) + (wrapped (geiser-debug--wrap-region str)) + (code `(,(if compile :comp :eval) (:scm ,wrapped)))) + (message "evaluating: %s" code) + (geiser-eval--send/wait code timeout))) + (defun geiser-debug--expand-region (start end all wrap) (let* ((str (buffer-substring-no-properties start end)) (wrapped (if wrap (geiser-debug--wrap-region str) str)) |