From 1c1a8fd913480cb7dc23afa921455d042349452a Mon Sep 17 00:00:00 2001 From: Kévin Le Gouguec Date: Sun, 15 May 2022 16:26:38 +0200 Subject: Shorten flymake lighter --- .emacs | 9 +++++++++ 1 file changed, 9 insertions(+) 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) -- cgit v1.2.3