branch: elpa/workroom
commit 497c04d666c28662b359d6a6e4a9f0f9e20531e2
Author: Akib Azmain Turja <a...@disroot.org>
Commit: Akib Azmain Turja <a...@disroot.org>
Make lighter customizable
---
workroom.el | 40 ++++++++++++++++++++++------------------
1 file changed, 22 insertions(+), 18 deletions(-)
diff --git a/workroom.el b/workroom.el
index b8fdcd1d4b..4e045f50f5 100644
--- a/workroom.el
+++ b/workroom.el
@@ -123,6 +123,27 @@ can't restored."
(const :decoder)
(function :tag "Decoder function"))))
+(defcustom workroom-mode-lighter
+ '(" WR["
+ (:eval (propertize (workroom-name (workroom-current-room)) 'face
+ (if (member (current-buffer)
+ (workroom-buffer-list
+ (workroom-current-room)))
+ 'compilation-info
+ 'warning)))
+ "]["
+ (:eval (propertize (workroom-view-name (workroom-current-view)) 'face
+ (if (member (current-buffer)
+ (workroom-buffer-list
+ (workroom-current-room)))
+ 'compilation-info
+ 'warning)))
+ "]")
+ "Format of Workroom mode lighter.
+
+The value is a mode line terminal like `mode-line-format'."
+ :type 'sexp)
+
(cl-defstruct workroom
"Structure for workroom."
(name nil
@@ -134,8 +155,6 @@ can't restored."
(buffers nil
:documentation "Buffers of the workroom.")
(default-p nil
-
- ;; Why this line is indented like this?
:documentation "Whether the workroom is the default one.")
(previous-view-list nil
:documentation "List of previously selected views.")
@@ -920,22 +939,7 @@ When prefix arg is given, don't restrict." fn)
;;;###autoload
(define-minor-mode workroom-mode
"Toggle workroom mode."
- :lighter (" WR["
- (:eval (propertize (workroom-name (workroom-current-room))
- 'face (if (member
- (current-buffer)
- (workroom-buffer-list
- (workroom-current-room)))
- 'compilation-info
- 'warning)))
- "]["
- (:eval (propertize (workroom-view-name (workroom-current-view))
- 'face (if (member
- (current-buffer)
- (workroom-buffer-list
- (workroom-current-room)))
- 'compilation-info
- 'warning))) "]")
+ :lighter (:eval workroom-mode-lighter) ; TODO: Why the `:eval' is needed?
:global t
(substitute-key-definition 'workroom-command-map nil workroom-mode-map)
(define-key workroom-mode-map workroom-command-map-prefix
