From 9691440730dcf7bb7c69d5c71493a926a8bc3f36 Mon Sep 17 00:00:00 2001 From: Ivan Malison Date: Mon, 26 Dec 2016 01:11:12 -0800 Subject: [PATCH] [Emacs] Add eros package --- dotfiles/emacs.d/README.org | 35 +++++++---------------------------- 1 file changed, 7 insertions(+), 28 deletions(-) diff --git a/dotfiles/emacs.d/README.org b/dotfiles/emacs.d/README.org index 4f37ea88..a804d315 100644 --- a/dotfiles/emacs.d/README.org +++ b/dotfiles/emacs.d/README.org @@ -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