From bdf9a71ab7baa2b1de9abcfd5df1a9107a55d141 Mon Sep 17 00:00:00 2001 From: Jack Jamison Date: Sun, 5 Jul 2026 01:19:30 -0400 Subject: add a bunch of emacs packages HELP --- .../lisp/evil-collection/modes/comint/README.org | 29 +++++++++ .../modes/comint/evil-collection-comint.el | 74 ++++++++++++++++++++++ 2 files changed, 103 insertions(+) create mode 100644 .config/emacs/lisp/evil-collection/modes/comint/README.org create mode 100644 .config/emacs/lisp/evil-collection/modes/comint/evil-collection-comint.el (limited to '.config/emacs/lisp/evil-collection/modes/comint') diff --git a/.config/emacs/lisp/evil-collection/modes/comint/README.org b/.config/emacs/lisp/evil-collection/modes/comint/README.org new file mode 100644 index 0000000..0b03dd2 --- /dev/null +++ b/.config/emacs/lisp/evil-collection/modes/comint/README.org @@ -0,0 +1,29 @@ +* 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= | == | + | =comint-next-input= | =M-n= | == | + | =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 new file mode 100644 index 0000000..40d0a00 --- /dev/null +++ b/.config/emacs/lisp/evil-collection/modes/comint/evil-collection-comint.el @@ -0,0 +1,74 @@ +;;; evil-collection-comint.el --- Bindings for `comint-mode' -*- lexical-binding: t -*- + +;; Copyright (C) 2017 James Nguyen + +;; Author: James Nguyen +;; Maintainer: James Nguyen +;; Pierre Neidhardt +;; 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 . + +;;; 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 "") #'comint-previous-input + (kbd "") #'comint-next-input)) + +(provide 'evil-collection-comint) +;;; evil-collection-comint.el ends here -- cgit v1.2.3