mdebray/tvl-depot
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

feat(look-and-feel): Display EXWM workspace index in mode-line

Browse source 
Been waiting to do this since forever!
This commit is contained in:
Vincent Ambo 2018-06-15 01:32:34 +02:00
parent 9da4606162
commit e743ea28c5
1 changed files with 7 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
init/look-and-feel.el
View file

@ -49,6 +49,11 @@
(telephone-line-defsegment telephone-line-last-window-segment () (telephone-line-defsegment telephone-line-last-window-segment ()
(telephone-misc-if-last-window)) (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 ;; Define a highlight font for ~ important ~ information in the last
;; window. ;; window.
(defface special-highlight '((t (:foreground "white" :background "#5f627f"))) "") (defface special-highlight '((t (:foreground "white" :background "#5f627f"))) "")
@ -61,7 +66,8 @@
(setq telephone-line-rhs (setq telephone-line-rhs
'((accent . (telephone-line-major-mode-segment)) '((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)))) (highlight . (telephone-line-notmuch-counts))))
(setq telephone-line-primary-left-separator 'telephone-line-tan-left (setq telephone-line-primary-left-separator 'telephone-line-tan-left