Improve how eat semi-char keymaps are modified
This commit is contained in:
@@ -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)
|
||||
|
||||
Reference in New Issue
Block a user