From 516d3e90613c5910d6af34842aa613275344d924 Mon Sep 17 00:00:00 2001 From: "Diogo F. S. Ramos" Date: Thu, 11 Apr 2013 18:56:30 -0300 Subject: Evaluate last expression to buffer with a prefix Use a prefix before pressing C-x C-e to print the result of evaluating the expression before mark to the current buffer. --- elisp/geiser-mode.el | 24 +++++++++++++++++------- 1 file changed, 17 insertions(+), 7 deletions(-) (limited to 'elisp/geiser-mode.el') diff --git a/elisp/geiser-mode.el b/elisp/geiser-mode.el index b66f4a2..a47a92b 100644 --- a/elisp/geiser-mode.el +++ b/elisp/geiser-mode.el @@ -107,13 +107,23 @@ With prefix, goes to the REPL buffer afterwards (as (interactive) (geiser-eval-definition t)) -(defun geiser-eval-last-sexp () - "Eval the previous sexp in the Geiser REPL." - (interactive) - (geiser-eval-region (save-excursion (backward-sexp) (point)) - (point) - nil - t)) +(defun geiser-eval-last-sexp (print-to-buffer-p) + "Eval the previous sexp in the Geiser REPL. + +With a prefix, print the result of the evaluation to the buffer." + (interactive "P") + (let ((ret (geiser-eval-region (save-excursion (backward-sexp) (point)) + (point) + nil + t))) + (if print-to-buffer-p + (let ((str (geiser-eval--retort-result-to-buffer ret))) + ;; It's possible that a procedure returns nothing, so we + ;; don't want to `push-mark' if it's not necessary + (unless (string= "" str) + (push-mark) + (insert str))) + (message "%s" (geiser-eval--retort-result-str ret))))) (defun geiser-compile-definition (&optional and-go) "Compile the current definition in the Geiser REPL. -- cgit v1.2.3