Shorten flymake lighter

1 files changed, 9 insertions, 0 deletions

diff --git a/.emacs b/.emacs
index 62fb040..ac05e76 100644
--- a/.emacs
+++ b/.emacs
@@ -326,6 +326,15 @@
          (icon (my/symbol-as-icon ?⚙)))
     (setcar indicator (concat (apply #'propertize icon new-props) " "))))
 
+(with-eval-after-load 'flymake
+  (let ((indicator (propertize (my/symbol-as-icon ?⚒) 'face 'flymake-error)))
+    ;; Prefer customizing the string instead delight'ing, as flymake
+    ;; slaps a bunch of helpful properties on top of the lighter,
+    ;; which delight would strip.
+    (if (boundp 'flymake-mode-line-lighter)
+        (setq flymake-mode-line-lighter indicator)
+      (delight 'flymake-mode indicator 'flymake))))
+
 (add-hook 'magit-pre-refresh-hook 'diff-hl-magit-pre-refresh)
 (add-hook 'magit-post-refresh-hook 'diff-hl-magit-post-refresh)