From 47e9c8c9eb03628c3358bc695a6de0713a5d8d6a Mon Sep 17 00:00:00 2001
From: Blake Romero <blake@developercraft.com>
Date: Sat, 18 Oct 2025 22:03:28 +0100
Subject: Refactor major-mode format

---
 modally.el | 14 +++++++-------
 1 file 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))))
-- 
cgit