From e576825059d6fad13e0587d5fa367b349934d230 Mon Sep 17 00:00:00 2001 From: Blake Romero Date: Fri, 10 Oct 2025 23:49:33 +0100 Subject: Add custom mode names --- modally.el | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) diff --git a/modally.el b/modally.el index d673c82..34b5f86 100644 --- a/modally.el +++ b/modally.el @@ -61,7 +61,12 @@ (defun modally--major-mode () "Return a propertized major mode string." (let ((mode (string-remove-suffix "-mode" (symbol-name major-mode)))) - (format-mode-line (format "\s%s" mode) 'modally-major-mode))) + (format-mode-line (format "\s%s" (cond + ((equal mode "emacs-lisp") + "elisp") + ((equal mode "lisp-interaction") + "lisp") + (mode))) 'modally-major-mode))) (defun modally--line-column () "Return a propertized line column position." -- cgit