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

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

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

16
evil-geiser.el
View File

@ -25,15 +25,29 @@
;;; Commentary:
;;; Bindings for `geiser'.
;;; Code:
(require 'evil)
(require 'geiser nil t)
(defvar geiser-debug-mode-map)
(defvar geiser-doc-mode-map)
;;; Code:
(defun evil-geiser-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-geiser-setup ()
"Set up bindings for `geiser'."
(unless evil-move-beyond-eol
(advice-add 'geiser-eval-last-sexp :around 'evil-geiser-last-sexp)
(advice-add 'geiser-eval-last-sexp-and-print :around 'evil-geiser-last-sexp))
(evil-set-initial-state 'geiser-debug-mode 'normal)
(evil-set-initial-state 'geiser-doc-mode 'normal)