diff options
Diffstat (limited to 'config/emacs/site-lisp')
| -rw-r--r-- | config/emacs/site-lisp/my-modal.el | 16 |
1 files changed, 10 insertions, 6 deletions
diff --git a/config/emacs/site-lisp/my-modal.el b/config/emacs/site-lisp/my-modal.el index 0759fe5..6fc6f18 100644 --- a/config/emacs/site-lisp/my-modal.el +++ b/config/emacs/site-lisp/my-modal.el @@ -328,16 +328,20 @@ trigger EFFECT or consult UNTIL." (when color (set-face-background 'cursor color)))) -(defvar mm/special-modes '()) +(defvar mm/starting-mode-alist '((eshell-mode . mm/base-state-mode) + (term-mode . mm/base-state-mode) + (vterm-mode . mm/base-state-mode) + (eat-mode . mm/base-state-mode) + (vc-git-log-edit-mode . mm/base-state-mode)) + "Alist of (major-mode . starting-state-mode).") (defun mm/pick-starting-state (&optional buffer) (unless buffer (setq buffer (current-buffer))) (with-current-buffer buffer - (let ((pick (if (or buffer-read-only - (memq major-mode mm/special-modes)) - 'mm/special-state-mode - 'mm/normal-state-mode))) - pick))) + (cond + ((alist-get major-mode mm/starting-mode-alist)) + (buffer-read-only 'mm/special-state-mode) + (t 'mm/normal-state-mode)))) (defun mm/enable-starting-state (&optional buffer) (unless (minibufferp) |