Show current EXWM workspace index in mode-line
authorAmin Bandali <bandali@gnu.org>
Sat, 24 Dec 2022 21:30:36 +0000 (16:30 -0500)
committerAmin Bandali <bandali@gnu.org>
Sat, 24 Dec 2022 21:30:36 +0000 (16:30 -0500)
.emacs.d/lisp/bandali-exwm.el

index b1b0bba..bd28d5b 100644 (file)
@@ -309,5 +309,15 @@ around if needed."
 (add-to-list 'load-path (b/lisp "exwm-edit"))
 (require 'exwm-edit)
 
 (add-to-list 'load-path (b/lisp "exwm-edit"))
 (require 'exwm-edit)
 
+(with-eval-after-load 'exwm-workspace
+  (setq-default
+   mode-line-format
+   (append
+    mode-line-format
+    '((:eval
+       (format
+        " [%s]" (number-to-string
+                exwm-workspace-current-index)))))))
+
 (provide 'bandali-exwm)
 ;;; bandali-exwm.el ends here
 (provide 'bandali-exwm)
 ;;; bandali-exwm.el ends here