Show result of eval-last-sexp inline

This commit is contained in:
Ivan Malison 2016-08-16 21:20:02 -07:00
parent 5d4e58466d
commit 7749a97787
No known key found for this signature in database
GPG Key ID: 62530EFBE99DC2F8

View File

@ -2615,6 +2615,35 @@ Reduce indentation for some functions
(setq show-trailing-whitespace t))) (setq show-trailing-whitespace t)))
(add-hook 'flycheck-mode-hook 'imalison:maybe-remove-flycheck-checkdoc-checker) (add-hook 'flycheck-mode-hook 'imalison:maybe-remove-flycheck-checkdoc-checker)
#+END_SRC #+END_SRC
***** Show result of eval-last-sexp inline
Taken from http://endlessparentheses.com/eval-result-overlays-in-emacs-lisp.html
#+BEGIN_SRC emacs-lisp
(autoload 'cider--make-result-overlay "cider-overlays")
(defun imalison:eval-overlay (value point)
(cider--make-result-overlay (format "%S" value)
:where point
:duration 'command)
value)
(advice-add 'eval-region :around
(lambda (f beg end &rest r)
(imalison:eval-overlay
(apply f beg end r)
end)))
(advice-add 'eval-last-sexp :filter-return
(lambda (r)
(imalison:eval-overlay r (point))))
(advice-add 'eval-defun :filter-return
(lambda (r)
(imalison:eval-overlay
r
(save-excursion
(end-of-defun)
(point)))))
#+END_SRC
***** Keybinds ***** Keybinds
#+BEGIN_SRC emacs-lisp #+BEGIN_SRC emacs-lisp
(define-key lisp-mode-shared-map (kbd "C-c C-c") 'eval-defun) (define-key lisp-mode-shared-map (kbd "C-c C-c") 'eval-defun)