branch: externals/async
commit c3b297fa15f2ccdcccb2f3f08e4a5fec202a544a
Merge: d395e92 953a614
Author: Thierry Volpiatto <[email protected]>
Commit: GitHub <[email protected]>
Merge pull request #83 from darkfeline/lighter
Add mode line lighter for dired-async-mode
---
dired-async.el | 11 ++++++++++-
1 file changed, 10 insertions(+), 1 deletion(-)
diff --git a/dired-async.el b/dired-async.el
index a97a9a3..b592cac 100644
--- a/dired-async.el
+++ b/dired-async.el
@@ -66,6 +66,14 @@ Should take same args as `message'."
:group 'dired-async
:type 'string)
+(defcustom dired-async-mode-lighter '(:eval
+ (when (eq major-mode 'dired-mode)
+ " Async"))
+ "Mode line lighter used for `dired-async-mode'."
+ :group 'dired-async
+ :risky t
+ :type 'sexp)
+
(defface dired-async-message
'((t (:foreground "yellow")))
"Face used for mode-line message."
@@ -337,8 +345,9 @@ ESC or `q' to not overwrite any of the remaining files,
;;;###autoload
(define-minor-mode dired-async-mode
- "Do dired actions asynchronously."
+ "Do dired actions asynchronously."
:group 'dired-async
+ :lighter dired-async-mode-lighter
:global t
(if dired-async-mode
(if (fboundp 'advice-add)
