summaryrefslogtreecommitdiff
path: root/elisp/geiser-eval.el
diff options
context:
space:
mode:
authorDiogo F. S. Ramos <diogofsr@gmail.com>2013-04-11 18:56:30 -0300
committerJose Antonio Ortega Ruiz <jao@gnu.org>2013-04-12 00:17:00 +0200
commit516d3e90613c5910d6af34842aa613275344d924 (patch)
tree483181d0c621b918d5095174b2b1f8abeb70c5f9 /elisp/geiser-eval.el
parent24ea5bb9d9859f819aa404cb99a2d7cf2d482c8b (diff)
downloadgeiser-516d3e90613c5910d6af34842aa613275344d924.tar.gz
geiser-516d3e90613c5910d6af34842aa613275344d924.tar.bz2
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.
Diffstat (limited to 'elisp/geiser-eval.el')
-rw-r--r--elisp/geiser-eval.el10
1 files changed, 10 insertions, 0 deletions
diff --git a/elisp/geiser-eval.el b/elisp/geiser-eval.el
index dd0e45d..5d61580 100644
--- a/elisp/geiser-eval.el
+++ b/elisp/geiser-eval.el
@@ -173,6 +173,16 @@ module-exports, autodoc, callers, callees and generic-methods.")
(concat "=> " (mapconcat 'identity values "\n=> "))
"(No value)")))
+(defun geiser-eval--retort-result-list (ret)
+ "Return the list of results."
+ (cdr (assoc 'result ret)))
+
+(defun geiser-eval--retort-result-to-buffer (ret)
+ "Return a string formated for printing to buffer."
+ (mapconcat 'identity
+ (geiser-eval--retort-result-list ret)
+ "\n"))
+
(defsubst geiser-eval--retort-output (ret) (cdr (assoc 'output ret)))
(defsubst geiser-eval--retort-error (ret) (cdr (assoc 'error ret)))