summaryrefslogtreecommitdiff
path: root/elisp/geiser-mode.el
diff options
context:
space:
mode:
authorJose Antonio Ortega Ruiz <jao@gnu.org>2009-05-03 01:22:01 +0200
committerJose Antonio Ortega Ruiz <jao@gnu.org>2009-05-03 01:22:01 +0200
commit533e4133307e9931838a2b6a50eb4c9474b81973 (patch)
treefb01c7d319bc827f9c270f38387c52566d5cfa39 /elisp/geiser-mode.el
parent53f1b00552be4057af7c0ef19d708bb2bbf86952 (diff)
downloadgeiser-chez-533e4133307e9931838a2b6a50eb4c9474b81973.tar.gz
geiser-chez-533e4133307e9931838a2b6a50eb4c9474b81973.tar.bz2
Wrapping arbitrary regions with a begin block before evaluation/expansion.
Diffstat (limited to 'elisp/geiser-mode.el')
-rw-r--r--elisp/geiser-mode.el33
1 files changed, 24 insertions, 9 deletions
diff --git a/elisp/geiser-mode.el b/elisp/geiser-mode.el
index d63d43a..045f5a9 100644
--- a/elisp/geiser-mode.el
+++ b/elisp/geiser-mode.el
@@ -61,12 +61,21 @@
;;; Evaluation commands:
-(defun geiser-eval-region (start end &optional and-go)
+(defun geiser--go-to-repl ()
+ (switch-to-geiser)
+ (push-mark)
+ (goto-char (point-max)))
+
+(defun geiser-eval-region (start end &optional and-go raw)
"Eval the current region in the Geiser REPL.
With prefix, goes to the REPL buffer afterwards (as
`geiser-eval-region-and-go')"
(interactive "rP")
- (geiser-debug--send-region nil start end and-go))
+ (geiser-debug--send-region nil
+ start
+ end
+ (and and-go 'geiser-go-to-repl)
+ (not raw)))
(defun geiser-eval-region-and-go (start end)
"Eval the current region in the Geiser REPL and visit it afterwads."
@@ -82,7 +91,7 @@ With prefix, goes to the REPL buffer afterwards (as
(end-of-defun)
(let ((end (point)))
(beginning-of-defun)
- (geiser-eval-region (point) end and-go))))
+ (geiser-eval-region (point) end and-go t))))
(defun geiser-eval-definition-and-go ()
"Eval the current definition in the Geiser REPL and visit it afterwads."
@@ -92,7 +101,10 @@ With prefix, goes to the REPL buffer afterwards (as
(defun geiser-eval-last-sexp ()
"Eval the previous sexp in the Geiser REPL."
(interactive)
- (geiser-eval-region (save-excursion (backward-sexp) (point)) (point)))
+ (geiser-eval-region (save-excursion (backward-sexp) (point))
+ (point)
+ nil
+ t))
(defun geiser-compile-definition (&optional and-go)
"Compile the current definition in the Geiser REPL.
@@ -103,18 +115,18 @@ With prefix, goes to the REPL buffer afterwards (as
(end-of-defun)
(let ((end (point)))
(beginning-of-defun)
- (geiser-debug--send-region t (point) end and-go))))
+ (geiser-debug--send-region t (point) end and-go t))))
(defun geiser-compile-definition-and-go ()
"Compile the current definition in the Geiser REPL and visit it afterwads."
(interactive)
(geiser-compile-definition t))
-(defun geiser-expand-region (start end &optional all)
+(defun geiser-expand-region (start end &optional all raw)
"Macro-expand the current region and display it in a buffer.
With prefix, recursively macro-expand the resulting expression."
(interactive "rP")
- (geiser-debug--expand-region start end all))
+ (geiser-debug--expand-region start end all (not raw)))
(defun geiser-expand-definition (&optional all)
"Macro-expand the current definition.
@@ -124,13 +136,16 @@ With prefix, recursively macro-expand the resulting expression."
(end-of-defun)
(let ((end (point)))
(beginning-of-defun)
- (geiser-expand-region (point) end all))))
+ (geiser-expand-region (point) end all t))))
(defun geiser-expand-last-sexp (&optional all)
"Macro-expand the previous sexp.
With prefix, recursively macro-expand the resulting expression."
(interactive "P")
- (geiser-expand-region (save-excursion (backward-sexp) (point)) (point) all))
+ (geiser-expand-region (save-excursion (backward-sexp) (point))
+ (point)
+ all
+ t))
(defun geiser-set-scheme ()
"Associates current buffer with a given Scheme implementation."