elisp-mode: Binds gz to ielm

This commit is contained in:
condy 2021-01-06 01:16:52 +08:00 committed by James N
parent f53ef08224
commit e7be9f53a0
1 changed files with 12 additions and 2 deletions

View File

@ -30,7 +30,7 @@
(require 'elisp-mode)
(require 'evil-collection)
(defconst evil-collection-elisp-mode-maps nil)
(defconst evil-collection-elisp-mode-maps '(emacs-lisp-mode-map))
(defun evil-collection-elisp-mode-last-sexp-setup-props (beg end value alt1 alt2)
"Set up text properties for the output of `elisp--eval-last-sexp'.
@ -67,13 +67,23 @@ alternative printed representations that can be displayed."
(apply command args))
(apply command args)))
(defun evil-collection-elisp-mode-ielm-repl ()
"Open the Emacs Lisp REPL (`ielm')."
(interactive)
(pop-to-buffer (get-buffer-create "*ielm*"))
(ielm))
;;;###autoload
(defun evil-collection-elisp-mode-setup ()
"Set up `evil' bindings for `elisp-mode'."
(unless evil-move-beyond-eol
(advice-add 'eval-print-last-sexp :around 'evil-collection-elisp-mode-last-sexp))
(advice-add 'last-sexp-setup-props
:override 'evil-collection-elisp-mode-last-sexp-setup-props))
:override 'evil-collection-elisp-mode-last-sexp-setup-props)
(evil-set-initial-state 'emacs-lisp-mode 'normal)
(evil-collection-define-key 'normal 'emacs-lisp-mode-map
"gz" 'evil-collection-elisp-mode-ielm-repl))
(provide 'evil-collection-elisp-mode)
;;; evil-collection-elisp-mode.el ends here