wgester/dotfiles
1
0
Fork 0
forked from colonelpanic/dotfiles
Code Pull Requests Activity

[Emacs] Handle defvars with eval-last-sexp

Browse Source
This commit is contained in:
Ivan Malison 2016-11-02 18:05:02 -07:00
parent 8eb53dc33e
commit d177f3bbcd
No known key found for this signature in database
GPG Key ID: 62530EFBE99DC2F8
1 changed files with 23 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
dotfiles/emacs.d/README.org
View File

@ -2397,6 +2397,29 @@ Taken from http://endlessparentheses.com/eval-result-overlays-in-emacs-lisp.html
(end-of-defun) (end-of-defun)
(point))))) (point)))))
#+END_SRC #+END_SRC
**** Reevalute defvars when running eval-last-sexp
What follows is a function that checks to see if what precedes point is a defvar
and reevaluates it as a setq if it is
#+BEGIN_SRC emacs-lisp
(defun imalison:defvar-at-point ()
(let* ((preceding-sexp (elisp--preceding-sexp)))
(when (and (listp preceding-sexp) (equal (car preceding-sexp) 'defvar))
preceding-sexp)))
(defun imalison:maybe-eval-defvar-as-setq ()
(interactive)
(let ((the-defvar (imalison:defvar-at-point)))
(when the-defvar
(eval `(setq ,@(cdr the-defvar))))))
#+END_SRC
Now we add advice to eval-last-sexp so that it has this behavior.
#+BEGIN_SRC emacs-lisp
(defun imalison:maybe-setq-instead (fn &rest args)
(or (imalison:maybe-eval-defvar-as-setq)
(apply fn args)))
(advice-add 'eval-last-sexp :around 'imalison:maybe-setq-instead)
#+END_SRC
**** Init hook **** Init hook
#+BEGIN_SRC emacs-lisp #+BEGIN_SRC emacs-lisp
(defvar imalison:check-parens nil) (defvar imalison:check-parens nil)