chiark / gitweb /
el/dot-emacs.el: Include a compressed WIP mode-line lighter.
authorMark Wooding <mdw@distorted.org.uk>
Sat, 15 Jul 2017 12:10:27 +0000 (13:10 +0100)
committerMark Wooding <mdw@distorted.org.uk>
Sat, 15 Jul 2017 13:58:41 +0000 (14:58 +0100)
It's nice to know that it's there.

el/dot-emacs.el

index cdd89f296acadad669a305007dd484dca76d914d..d8e9af7662c44779aa71f42951c706af096fc9e1 100644 (file)
@@ -3680,6 +3680,14 @@ (eval-after-load "magit"
          (magit-wip-after-apply-mode 1)
          (magit-wip-before-change-mode 1)
          (add-to-list 'magit-no-confirm 'safe-with-wip)
+         (push '(:eval (if (or magit-wip-after-save-local-mode
+                               magit-wip-after-apply-mode
+                               magit-wip-before-change-mode)
+                           (format " wip:%s%s%s"
+                                   (if magit-wip-after-apply-mode "A" "")
+                                   (if magit-wip-before-change-mode "C" "")
+                                   (if magit-wip-after-save-local-mode "S" ""))))
+               minor-mode-alist)
          (dolist (popup '(magit-diff-popup
                           magit-diff-refresh-popup
                           magit-diff-mode-refresh-popup