diff options
Diffstat (limited to '.config/emacs/lisp/evil-collection/modes/comint')
| -rw-r--r-- | .config/emacs/lisp/evil-collection/modes/comint/README.org | 29 | ||||
| -rw-r--r-- | .config/emacs/lisp/evil-collection/modes/comint/evil-collection-comint.el | 74 |
2 files changed, 0 insertions, 103 deletions
diff --git a/.config/emacs/lisp/evil-collection/modes/comint/README.org b/.config/emacs/lisp/evil-collection/modes/comint/README.org deleted file mode 100644 index 0b03dd2..0000000 --- a/.config/emacs/lisp/evil-collection/modes/comint/README.org +++ /dev/null @@ -1,29 +0,0 @@ -* comint - - Evil bindings for [[https://www.gnu.org/software/emacs/manual/html_node/elisp/Comint.html][comint-mode]], the base mode for many Emacs shells and - REPLs (shell, inferior-lisp, sql, python, etc.). Bindings here propagate to - every derived mode that does not override them. - -** Key bindings - - Normal-state additions to =comint-mode-map=: - - | Command | Original | Evil | - |--------------------------+-----------+-------------------------------------| - | =comint-next-prompt= | =C-c C-n= | =C-j=, =gj=, =]]= | - | =comint-previous-prompt= | =C-c C-p= | =C-k=, =gk=, =[[= | - | =comint-previous-input= | =M-p= | =C-p= | - | =comint-next-input= | =M-n= | =C-n= | - | =evil-scroll-down= | n/a | =C-d= (when =evil-want-C-d-scroll=) | - - Insert state: - - | Command | Original | Evil | - |-------------------------+-----------+-------------------------------------| - | =comint-previous-input= | =M-p= | =<up>= | - | =comint-next-input= | =M-n= | =<down>= | - | =comint-kill-input= | =C-c C-u= | =C-u= (when =evil-want-C-u-delete=) | - - =RET= sends input in the state named by =evil-collection-repl-submit-state= - and inserts a newline in the complementary state (both =RET= and =C-m= / - =[return]= are wired). diff --git a/.config/emacs/lisp/evil-collection/modes/comint/evil-collection-comint.el b/.config/emacs/lisp/evil-collection/modes/comint/evil-collection-comint.el deleted file mode 100644 index 40d0a00..0000000 --- a/.config/emacs/lisp/evil-collection/modes/comint/evil-collection-comint.el +++ /dev/null @@ -1,74 +0,0 @@ -;;; evil-collection-comint.el --- Bindings for `comint-mode' -*- lexical-binding: t -*- - -;; Copyright (C) 2017 James Nguyen - -;; Author: James Nguyen <james@jojojames.com> -;; Maintainer: James Nguyen <james@jojojames.com> -;; Pierre Neidhardt <mail@ambrevar.xyz> -;; URL: https://github.com/emacs-evil/evil-collection -;; Version: 0.0.1 -;; Package-Requires: ((emacs "26.3")) -;; Keywords: evil, comint, processes - -;; This program 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 of the License, or -;; (at your option) any later version. - -;; This program 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. - -;; You should have received a copy of the GNU General Public License -;; along with this program. If not, see <http://www.gnu.org/licenses/>. - -;;; Commentary: -;;; Bindings for `comint-mode'. - -;;; Code: -(require 'comint) -(require 'evil-collection) - -(defconst evil-collection-comint-maps '(comint-mode-map)) - -;;;###autoload -(defun evil-collection-comint-setup () - "Set up `evil' bindings for `comint'." - (when evil-want-C-d-scroll - (evil-collection-define-key 'normal 'comint-mode-map - (kbd "C-d") #'evil-scroll-down)) - - (let* ((submit evil-collection-repl-submit-state) - (newline-state (if (eq submit 'normal) 'insert 'normal))) - (evil-collection-define-key submit 'comint-mode-map - (kbd "RET") #'comint-send-input - (kbd "\C-m") #'comint-send-input - [return] #'comint-send-input) - (evil-collection-define-key newline-state 'comint-mode-map - (kbd "RET") #'newline - (kbd "\C-m") #'newline - [return] #'newline)) - - (evil-collection-define-key 'normal 'comint-mode-map - ;; Match Eshell bindings: - (kbd "C-j") #'comint-next-prompt - (kbd "C-k") #'comint-previous-prompt - (kbd "gj") #'comint-next-prompt - (kbd "gk") #'comint-previous-prompt - (kbd "]]") #'comint-next-prompt - (kbd "[[") #'comint-previous-prompt - (kbd "C-p") #'comint-previous-input - (kbd "C-n") #'comint-next-input) - - ;; TODO: What if the user changes `evil-want-C-u-delete' after this is run? - (when evil-want-C-u-delete - (evil-collection-define-key 'insert 'comint-mode-map - (kbd "C-u") #'comint-kill-input)) - - (evil-collection-define-key 'insert 'comint-mode-map - (kbd "<up>") #'comint-previous-input - (kbd "<down>") #'comint-next-input)) - -(provide 'evil-collection-comint) -;;; evil-collection-comint.el ends here |