Refactor major-mode format

1 files changed, 7 insertions, 7 deletions

diff --git a/modally.el b/modally.el
index 0e79ef4..4d17769 100644
--- a/modally.el
+++ b/modally.el
@@ -80,13 +80,13 @@
 ;; TODO: make cond into hashmap search
 (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"
-                              (cond
-                                ((equal mode "emacs-lisp") "elisp")
-                                ((equal mode "lisp-interaction") "lisp")
-                                ((equal mode "messages-buffer") "messages")
-                                (mode)))
+  (let* ((mode (string-remove-suffix "-mode" (symbol-name major-mode)))
+         (mode  (cond
+                  ((equal mode "emacs-lisp") "elisp")
+                  ((equal mode "lisp-interaction") "lisp")
+                  ((equal mode "messages-buffer") "messages")
+                  (mode))))
+    (format-mode-line (format " %s" mode)
                       (if (mode-line-window-selected-p)
                           'modally-major-mode
                         'mode-line-inactive))))