summaryrefslogtreecommitdiff
path: root/elisp
diff options
context:
space:
mode:
authorJose Antonio Ortega Ruiz <jao@gnu.org>2017-08-28 02:53:22 +0200
committerJose Antonio Ortega Ruiz <jao@gnu.org>2017-08-28 02:55:07 +0200
commit9581e61f9d8839281fe42344dd5fe885ea7359ea (patch)
tree3aae491d8e54d2245810c1206a0259501f7ea1c7 /elisp
parent87d8ad28396dd82920d55837cc6e8265b3f5991d (diff)
downloadgeiser-guile-9581e61f9d8839281fe42344dd5fe885ea7359ea.tar.gz
geiser-guile-9581e61f9d8839281fe42344dd5fe885ea7359ea.tar.bz2
Whitespace
Diffstat (limited to 'elisp')
-rw-r--r--elisp/geiser-mode.el29
1 files changed, 18 insertions, 11 deletions
diff --git a/elisp/geiser-mode.el b/elisp/geiser-mode.el
index 927a9b9..229c3ea 100644
--- a/elisp/geiser-mode.el
+++ b/elisp/geiser-mode.el
@@ -68,17 +68,20 @@ active when `geiser-mode' is activated in a buffer."
:type 'boolean)
(geiser-custom--defcustom geiser-mode-eval-to-buffer-prefix " "
- "When `geiser-mode-eval-last-sexp-to-buffer', the prefix string which will prepend to results"
+ "When `geiser-mode-eval-last-sexp-to-buffer', the prefix string
+which will be prepended to results."
:group 'geiser-mode
:type 'string)
(geiser-custom--defcustom geiser-mode-eval-to-buffer-transformer nil
- "When `geiser-mode-eval-last-sexp-to-buffer', the result will be transformed using this function
-default behavior is just prepend with `geiser-mode-eval-to-buffer-prefix'
-takes two arguments: `msg' and `is-error?'
-`msg' is the result string going to be transformed,
-`is-error?' is a bool indicate whether the result is an error msg
-"
+ "Transformer for results inserted in debug buffer.
+
+When `geiser-mode-eval-last-sexp-to-buffer', the result will be
+transformed using this function default behavior is just prepend
+with `geiser-mode-eval-to-buffer-prefix' takes two arguments:
+`msg' and `is-error?' `msg' is the result string going to be
+transformed, `is-error?' is a boolean indicating whether the
+result is an error msg."
:group 'geiser-mode
:type 'function)
@@ -161,8 +164,10 @@ With a prefix, revert the effect of `geiser-mode-eval-last-sexp-to-buffer' "
(point)))
(ret-transformer (or geiser-mode-eval-to-buffer-transformer
(lambda (msg is-error?)
- (format "%s%s%s" geiser-mode-eval-to-buffer-prefix
- (if is-error? "ERROR" "") msg))))
+ (format "%s%s%s"
+ geiser-mode-eval-to-buffer-prefix
+ (if is-error? "ERROR" "")
+ msg))))
(ret (save-excursion
(geiser-eval-region bosexp ;beginning of sexp
eosexp ;end of sexp
@@ -173,9 +178,11 @@ With a prefix, revert the effect of `geiser-mode-eval-last-sexp-to-buffer' "
(will-eval-to-buffer (if print-to-buffer-p
(not geiser-mode-eval-last-sexp-to-buffer)
geiser-mode-eval-last-sexp-to-buffer))
- (str (geiser-eval--retort-result-str ret (when will-eval-to-buffer ""))))
+ (str (geiser-eval--retort-result-str ret
+ (when will-eval-to-buffer ""))))
(cond ((not will-eval-to-buffer) str)
- (err (insert (funcall ret-transformer (geiser-eval--error-str err) t)))
+ (err (insert (funcall ret-transformer
+ (geiser-eval--error-str err) t)))
((string= "" str))
(t (push-mark)
(insert (funcall ret-transformer str nil))))))