Add custom mode names

1 files changed, 6 insertions, 1 deletions

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."