[Emacs] Add eros package

This commit is contained in:
Ivan Malison 2016-12-26 01:11:12 -08:00
parent 3110b14ca7
commit 9691440730
No known key found for this signature in database
GPG Key ID: 62530EFBE99DC2F8

View File

@ -2412,34 +2412,13 @@ Reduce indentation for some functions
(setq show-trailing-whitespace t)))
(add-hook 'flycheck-mode-hook 'imalison:maybe-remove-flycheck-checkdoc-checker)
#+END_SRC
**** Show result of eval-last-sexp inline
Taken from http://endlessparentheses.com/eval-result-overlays-in-emacs-lisp.html
**** eros
#+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)))))
(use-package eros
:commands (eros-mode)
:preface
(progn
(add-hook 'emacs-lisp-mode-hook 'eros-mode)))
#+END_SRC
**** Reevalute defvars when running eval-last-sexp
We noflet elisp--preceding-sexp to munge defvars into sexps only for
@ -3299,7 +3278,7 @@ alphanumeric characters only."
#+END_SRC
**** org-projectile
#+BEGIN_SRC emacs-lisp
(imalison:use-package org-projectile
(use-package org-projectile
:after helm
:bind (("C-c n p" . imalison:helm-org-todo))
:config