Tweak compilation lighter for Emacs 27

1 files changed, 7 insertions, 2 deletions

diff --git a/.emacs b/.emacs
index 51f4004..6e7206b 100644
--- a/.emacs
+++ b/.emacs
@@ -186,8 +186,13 @@
 ;; TODO: Narrow (⌖, ⛶)
 
 (if (< emacs-major-version 27)
-    (delight 'compilation-in-progress "⚙" 'compile)
-  (message "TODO: tweak compilation lighter"))
+    (delight 'compilation-in-progress
+             (propertize "⚙" 'face 'compilation-mode-line-run)
+             'compile)
+  (let* ((indicator (alist-get 'compilation-in-progress mode-line-modes))
+         (old-props (text-properties-at 0 (car indicator)))
+         (new-props '(face compilation-mode-line-run)))
+    (setcar indicator (apply #'propertize "⚙" (append new-props old-props)))))
 
 (add-hook 'magit-post-refresh-hook 'diff-hl-magit-post-refresh t)