summaryrefslogtreecommitdiff
path: root/elisp
diff options
context:
space:
mode:
authorNick Parker <nparker@zetetic.net>2013-05-13 13:36:34 -0500
committerNick Parker <nparker@zetetic.net>2013-05-13 13:36:34 -0500
commit48b70f4bcee81de0d2a61eb2310ed08ab4e306f3 (patch)
treed3038e53bd501ee4736802fe70adc3634cb87075 /elisp
parent168376ebcb164bca88cf487b07361ae8fe0a6a3e (diff)
downloadgeiser-chez-48b70f4bcee81de0d2a61eb2310ed08ab4e306f3.tar.gz
geiser-chez-48b70f4bcee81de0d2a61eb2310ed08ab4e306f3.tar.bz2
Add geiser-eval-buffer & geiser-eval-buffer-and-go
These functions are similar to geiser-eval-region and geiser-eval-region-and-go, however they allow the user to operate on the entire buffer, not requiring the user to narrow to a specific region. This also differs slightly from geiser-compile-current-buffer as geiser-eval-buffer does not require the contents of the buffer to be saved prior to being sent to the REPL. Documentaion has also been updated to include references to the new methods and their keybindings.
Diffstat (limited to 'elisp')
-rw-r--r--elisp/geiser-mode.el25
1 files changed, 25 insertions, 0 deletions
diff --git a/elisp/geiser-mode.el b/elisp/geiser-mode.el
index 4d43d1b..b5c10fd 100644
--- a/elisp/geiser-mode.el
+++ b/elisp/geiser-mode.el
@@ -93,6 +93,29 @@ With prefix, goes to the REPL buffer afterwards (as
(interactive "r")
(geiser-eval-region start end t))
+(defun geiser-eval-buffer (&optional and-go raw nomsg)
+ "Eval the current buffer in the Geiser REPL.
+
+With prefix, goes to the REPL buffer afterwards (as
+`geiser-eval-buffer-and-go')"
+ (interactive "P")
+ (let ((start (point-min))
+ (end (point-max)))
+ (save-restriction
+ (narrow-to-region start end)
+ (check-parens))
+ (geiser-debug--send-region nil
+ start
+ end
+ (and and-go 'geiser--go-to-repl)
+ (not raw)
+ nomsg)))
+
+(defun geiser-eval-buffer-and-go ()
+ "Eval the current buffer in the Geiser REPL and visit it afterwads."
+ (interactive)
+ (geiser-eval-buffer t))
+
(defun geiser-eval-definition (&optional and-go)
"Eval the current definition in the Geiser REPL.
@@ -309,6 +332,8 @@ interacting with the Geiser REPL is at your disposal.
("Eval region" "\C-c\C-r" geiser-eval-region :enable mark-active)
("Eval region and go" "\C-c\M-r" geiser-eval-region-and-go
geiser-eval-region :enable mark-active)
+ ("Eval buffer" "\C-c\C-b" geiser-eval-buffer)
+ ("Eval buffer and go" "\C-c\M-b" geiser-eval-buffer-and-go)
;; ("Compile definition" "\C-c\M-c" geiser-compile-definition)
;; ("Compile definition and go" "\C-c\C-c" geiser-compile-definition-and-go)
(menu "Macroexpand"