diff options
| -rw-r--r-- | init/look-and-feel.el | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/init/look-and-feel.el b/init/look-and-feel.el index 0a7c21c2d86a..555feca43fcf 100644 --- a/init/look-and-feel.el +++ b/init/look-and-feel.el @@ -49,6 +49,11 @@ (telephone-line-defsegment telephone-line-last-window-segment () (telephone-misc-if-last-window)) +;; Display the current EXWM workspace index in the mode-line +(telephone-line-defsegment telephone-line-exwm-workspace-index () + (when (bottom-right-window-p) + (format "[%s]" exwm-workspace-current-index))) + ;; Define a highlight font for ~ important ~ information in the last ;; window. (defface special-highlight '((t (:foreground "white" :background "#5f627f"))) "") @@ -61,7 +66,8 @@ (setq telephone-line-rhs '((accent . (telephone-line-major-mode-segment)) - (nil . (telephone-line-last-window-segment)) + (nil . (telephone-line-last-window-segment + telephone-line-exwm-workspace-index)) (highlight . (telephone-line-notmuch-counts)))) (setq telephone-line-primary-left-separator 'telephone-line-tan-left |