diff options
| author | Kévin Le Gouguec <kevin.legouguec@gmail.com> | 2019-08-31 11:59:22 +0200 |
|---|---|---|
| committer | Kévin Le Gouguec <kevin.legouguec@gmail.com> | 2019-08-31 11:59:22 +0200 |
| commit | ffd0ee8ae1808b378b16f842e2c5e917209daf29 (patch) | |
| tree | bc7cebeae9115a26608cca706778a336b1eb5336 | |
| parent | f7dce603852d1d5257a82a8e9b140e9cafe021da (diff) | |
| download | dotfiles-ffd0ee8ae1808b378b16f842e2c5e917209daf29.tar.xz | |
Stop delight'ing compilation-in-progress with Emacs≥27
The code below works with the new indicator, but it's a bit ugly.
(let ((props (text-properties-at
0 (car (alist-get 'compilation-in-progress mode-line-modes)))))
(setf (car (alist-get 'compilation-in-progress mode-line-modes))
(apply #'propertize "⚙ " `(face compilation-mode-line-run ,@props))))
| -rw-r--r-- | .emacs | 5 |
1 files changed, 4 insertions, 1 deletions
@@ -116,7 +116,6 @@ (delight 'auto-fill-function "⏎" t) (delight 'auto-revert-mode "⟳" 'autorevert) (delight 'auto-revert-tail-mode "⤓" 'autorevert) -(delight 'compilation-in-progress "⚙" 'compile) (delight 'eldoc-mode "📖" 'eldoc) (delight 'footnote-mode "¹" 'footnote) (delight 'flyspell-mode (propertize "🖋" 'face 'flyspell-incorrect) 'flyspell) @@ -136,6 +135,10 @@ (delight 'with-editor-mode "⸎" 'with-editor) ;; TODO: Narrow (⌖, ⛶) +(if (version< emacs-version "27") + (delight 'compilation-in-progress "⚙" 'compile) + (message "TODO: tweak compilation lighter")) + (defun my/magit-mode-hook () (when window-system (local-set-key [C-tab] 'other-window) |