emacs: Make the modeline mode display better

1 files changed, 23 insertions, 11 deletions

diff --git a/.config/emacs/modules/mm-modeline.el b/.config/emacs/modules/mm-modeline.el
index cd9af3e..7ca4751 100644
--- a/.config/emacs/modules/mm-modeline.el
+++ b/.config/emacs/modules/mm-modeline.el
@@ -44,19 +44,31 @@
 	     (buffer-file-name))
     (propertize " (modified)" 'face 'shadow)))
 
+(defconst mm-modeline-mode-acronyms
+  '("css" "csv" "gsp" "html" "json" "mhtml" "scss" "toml" "tsv")
+  "TODO")
+
 (mm-modeline--define-component mm-modeline-major-mode-name
   (propertize
-   (thread-last
-     major-mode
-     (symbol-name)
-     (capitalize)
-     (string-replace "-" " ")
-     (string-replace "Ts Mode" "Tree-Sitter Mode")
-     ;; Casing doesn’t work for abbreviations, so fix it manually
-     (replace-regexp-in-string "\\<\\(M\\)?html\\>" "\\1HTML")
-     (replace-regexp-in-string "\\<\\(S\\)?css\\>" "\\1CSS")
-     (replace-regexp-in-string "\\<toml\\>" "TOML")
-     (replace-regexp-in-string "\\<gsp\\>" "GSP"))
+   (let ((string
+          (thread-last
+            major-mode
+            (symbol-name)
+            (capitalize)
+            (string-replace "-" " ")
+            ;; TODO: Make a remap alist
+            (replace-regexp-in-string "\\<Js\\>" "JavaScript")
+            (string-replace "Ts Mode" "Tree-Sitter Mode")))
+         (case-fold-search t))
+     ;; TODO: Do I need ‘save-match-data’
+     (save-match-data
+       (if (string-match
+            (concat "\\<" (regexp-opt mm-modeline-mode-acronyms) "\\>") string)
+           (concat
+            (substring string 0 (match-beginning 0))
+            (upcase (substring string (match-beginning 0) (match-end 0)))
+            (substring string (match-end 0) (length string)))
+         string)))
    'face 'bold))
 
 (mm-modeline--define-component mm-modeline-major-mode-symbol