evil-collection/modes/eshell/evil-collection-eshell.el

157 lines
5.9 KiB
EmacsLisp
Raw Normal View History

2017-12-07 02:41:09 +01:00
;;; evil-collection-eshell.el --- Evil bindings for Eshell -*- lexical-binding: t -*-
2017-11-06 11:50:50 +01:00
;; Copyright (C) 2017, 2021 Pierre Neidhardt
2017-11-06 11:50:50 +01:00
2018-08-27 10:41:51 +02:00
;; Author: Pierre Neidhardt <mail@ambrevar.xyz>
;; Maintainer: James Nguyen <james@jojojames.com>
2018-08-27 10:41:51 +02:00
;; Pierre Neidhardt <mail@ambrevar.xyz>
2018-03-02 02:22:38 +01:00
;; URL: https://github.com/emacs-evil/evil-collection
;; Version: 0.0.1
;; Package-Requires: ((emacs "26.3"))
;; Keywords: evil, eshell, tools
2017-11-06 11:50:50 +01:00
;; This file is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published
;; by the Free Software Foundation; either version 3, or (at your
;; option) any later version.
;;
;; This file is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
;; GNU General Public License for more details.
;;
;; For a full copy of the GNU General Public License
;; see <http://www.gnu.org/licenses/>.
;;; Commentary:
2019-02-04 20:21:22 +01:00
;; Evil bindings for Eshell.
2017-11-06 11:50:50 +01:00
;;; Code:
(require 'em-prompt)
2017-11-06 11:50:50 +01:00
(require 'eshell)
(require 'evil-collection)
2017-11-06 11:50:50 +01:00
(defconst evil-collection-eshell-maps '(eshell-mode-map))
2017-12-07 02:41:09 +01:00
(defun evil-collection-eshell-next-prompt ()
"`evil' wrapper around `eshell-next-prompt'."
2017-11-06 11:50:50 +01:00
(when (get-text-property (point) 'read-only)
;; If at end of prompt, `eshell-next-prompt' will not move, so go backward.
(beginning-of-line)
(eshell-next-prompt 1)))
2017-12-07 02:41:09 +01:00
(defun evil-collection-eshell-next-prompt-on-insert ()
"Go to next prompt on `evil' replace/insert enter."
2017-11-06 11:50:50 +01:00
(dolist (hook '(evil-replace-state-entry-hook evil-insert-state-entry-hook))
2017-12-07 10:48:15 +01:00
(add-hook hook 'evil-collection-eshell-next-prompt nil t)))
2017-11-06 11:50:50 +01:00
2017-12-07 02:41:09 +01:00
(defun evil-collection-eshell-interrupt-process ()
"Interupt `eshell' process and enter insert state."
2017-11-06 11:50:50 +01:00
(interactive)
(eshell-interrupt-process)
(evil-insert 1))
(defun evil-collection-eshell-escape-stay ()
"Go back to normal state but don't move cursor backwards.
Moving cursor backwards is the default Vim behavior but it is not
appropriate in some cases like terminals."
(setq-local evil-move-cursor-back nil))
;; Taken from Doom Emacs
(evil-define-operator evil-collection-eshell-evil-change (beg end type register yank-handler delete-func)
"Like `evil-change' but will not delete/copy the prompt."
(interactive "<R><x><y>")
(save-restriction
(narrow-to-region eshell-last-output-end (point-max))
(evil-change (max beg (point-min))
(if (eq type 'line) (point-max) (min (or end (point-max)) (point-max)))
type register yank-handler delete-func)))
;; Taken from Doom Emacs
(evil-define-operator evil-collection-eshell-evil-change-line (beg end type register yank-handler)
"Change to end of line."
:motion evil-end-of-line
(interactive "<R><x><y>")
(evil-collection-eshell-evil-change beg end type register yank-handler #'evil-delete-line))
;; Taken from Doom Emacs
(evil-define-operator evil-collection-eshell-evil-delete (beg end type register yank-handler)
"Like `evil-delete' but will not delete/copy the prompt."
(interactive "<R><x><y>")
(save-restriction
(narrow-to-region eshell-last-output-end (point-max))
(evil-delete (if beg (max beg (point-min)) (point-min))
(if (eq type 'line) (point-max) (min (or end (point-max)) (point-max)))
type register yank-handler)))
;; Taken from Doom Emacs
;;
;; Although the BEG argument doesn't get used in any meaningful way,
;; `evil-define-operator' must access it nonetheless, so putting an underscore
;; in front will make the CI fail.
(evil-define-operator evil-collection-eshell-evil-delete-line (beg end type register yank-handler)
"Change to end of line."
:motion nil
:keep-visual t
(interactive "<R><x>")
(evil-collection-eshell-evil-delete (point) end type register yank-handler))
;; `eshell-mode-map' is reset when Eshell is initialized in `eshell-mode'. We
;; need to add bindings to `eshell-first-time-mode-hook'.
2017-12-07 02:41:09 +01:00
(defun evil-collection-eshell-setup-keys ()
"Set up `evil' bindings for `eshell'."
(evil-collection-define-key 'normal 'eshell-mode-map
2017-11-06 11:50:50 +01:00
;; motion
2019-03-16 18:54:12 +01:00
"[[" 'eshell-previous-prompt
"]]" 'eshell-next-prompt
2017-11-06 11:50:50 +01:00
(kbd "C-k") 'eshell-previous-prompt
(kbd "C-j") 'eshell-next-prompt
2017-11-23 15:07:09 +01:00
"gk" 'eshell-previous-prompt
"gj" 'eshell-next-prompt
2017-11-06 11:50:50 +01:00
"0" 'eshell-bol
"^" 'eshell-bol
(kbd "M-h") 'eshell-backward-argument
(kbd "M-l") 'eshell-forward-argument
2019-02-04 20:21:22 +01:00
(kbd "C-n") 'eshell-next-matching-input-from-input
(kbd "C-p") 'eshell-previous-matching-input-from-input
2019-06-06 08:03:54 +02:00
(kbd "RET") 'eshell-send-input
(kbd "C-c C-c") 'evil-collection-eshell-interrupt-process
"c" 'evil-collection-eshell-evil-change
"C" 'evil-collection-eshell-evil-change-line
"d" 'evil-collection-eshell-evil-delete
"D" 'evil-collection-eshell-evil-delete-line)
(when evil-want-C-u-delete
(evil-collection-define-key 'insert 'eshell-mode-map
(kbd "C-u") 'eshell-kill-input))
(evil-collection-define-key 'visual 'eshell-mode-map
2017-11-06 11:50:50 +01:00
;; motion
;; TODO: This does not work with `evil-visual-line'.
2019-03-16 18:54:12 +01:00
"[[" 'eshell-previous-prompt
"]]" 'eshell-next-prompt
2017-11-06 11:50:50 +01:00
(kbd "C-k") 'eshell-previous-prompt
(kbd "C-j") 'eshell-next-prompt
2017-11-23 15:07:09 +01:00
"gk" 'eshell-previous-prompt
"gj" 'eshell-next-prompt
2017-11-06 11:50:50 +01:00
"0" 'eshell-bol
"^" 'eshell-bol)
(evil-normalize-keymaps)
(unless evil-collection-always-run-setup-hook-after-load
(run-hook-with-args
'evil-collection-setup-hook 'eshell evil-collection-eshell-maps)))
2017-11-06 11:50:50 +01:00
;; TODO: Compare this setup procedure with evil-ediff.
;;;###autoload
2017-12-07 02:41:09 +01:00
(defun evil-collection-eshell-setup ()
"Set up `evil' bindings for `eshell'."
(add-hook 'eshell-mode-hook 'evil-collection-eshell-escape-stay)
2017-12-07 02:41:09 +01:00
(add-hook 'eshell-mode-hook 'evil-collection-eshell-next-prompt-on-insert)
(add-hook 'eshell-first-time-mode-hook 'evil-collection-eshell-setup-keys))
2017-11-06 11:50:50 +01:00
2017-12-07 02:41:09 +01:00
(provide 'evil-collection-eshell)
;;; evil-collection-eshell.el ends here