emacs
/
evil-collection
mirror of https://github.com/jojojames/evil-collection.git
1
0
Fork 0
Code Issues Releases Wiki Activity

Slime: Support eval when evil-move-beyond-eol is nil

This commit is contained in:
James Nguyen 2017-11-28 21:55:19 -08:00
parent 5cb5ef1e03
commit fda63a8547
1 changed files with 16 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
evil-slime.el
View File

@ -33,8 +33,24 @@
(defvar sldb-mode-map)
(defvar slime-inspector-mode-map)
(defun evil-slime-last-sexp (command &rest args)
"In normal-state or motion-state, last sexp ends at point."
(if (and (not evil-move-beyond-eol)
(or (evil-normal-state-p) (evil-motion-state-p)))
(save-excursion
(unless (or (eobp) (eolp)) (forward-char))
(apply command args))
(apply command args)))
(defun evil-slime-setup ()
"Set up `evil' bindings for `slime'."
(unless evil-move-beyond-eol
(advice-add 'slime-eval-last-expression :around 'evil-slime-last-sexp)
(advice-add 'slime-pprint-eval-last-expression :around 'evil-slime-last-sexp)
(advice-add 'slime-eval-print-last-expression :around 'evil-slime-last-sexp)
(advice-add 'slime-eval-last-expression-in-repl
:around 'evil-slime-last-sexp))
(evil-collection-util-evilify-map
sldb-mode-map
:mode sldb-mode