Improve how eat semi-char keymaps are modified

This commit is contained in:
2024-09-19 19:29:00 -07:00
parent 998a86c65c
commit ab391624d6

View File

@@ -8,13 +8,18 @@
(eval-after-load 'eshell #'eat-eshell-mode)
(eval-after-load 'eshell #'eat-eshell-visual-command-mode)
:config
(add-to-list 'eat-semi-char-non-bound-keys (vector meta-prefix-char ?`))
(add-to-list 'eat-semi-char-non-bound-keys [?\C-o])
(eat-update-semi-char-mode-map)
(defun advise-eat-keymap (map)
(define-key map [?\C-o] nil)
(define-key map (vector meta-prefix-char ?`) nil)
(define-key map [S-v] #'eat-yank))
(add-to-list 'eat-eshell-semi-char-non-bound-keys (vector meta-prefix-char ?`))
(add-to-list 'eat-eshell-semi-char-non-bound-keys [?\C-o])
(eat-eshell-update-semi-char-mode-map)
(define-advice eat-eshell-semi-char-mode
(:after (&rest r))
(advise-eat-keymap eat-eshell-semi-char-mode-map))
(define-advice eat-semi-char-mode
(:after (&rest r))
(advise-eat-keymap eat-semi-char-mode-map))
:hook (eat-mode . (lambda ()
(setq display-line-numbers nil)