Show current EXWM workspace index in mode-line

diff --git a/.emacs.d/lisp/bandali-exwm.el b/.emacs.d/lisp/bandali-exwm.el
index b1b0bba..bd28d5b 100644 (file)
--- a/.emacs.d/lisp/bandali-exwm.el
+++ b/.emacs.d/lisp/bandali-exwm.el
@@ -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