diff options
| -rw-r--r-- | modally.el | 14 |
1 files changed, 7 insertions, 7 deletions
@@ -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)))) |
