diff options
Diffstat (limited to 'elisp')
| -rw-r--r-- | elisp/geiser-mode.el | 29 |
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)))))) |