From 164c82cfa286dee21451ccc350877b0b8f0b8385 Mon Sep 17 00:00:00 2001 From: Benson Chu Date: Sat, 25 Jan 2020 15:20:49 -0600 Subject: [PATCH] Do this at startup --- lisp/exwm-aux/exwm-screens.el | 2 ++ 1 file changed, 2 insertions(+) diff --git a/lisp/exwm-aux/exwm-screens.el b/lisp/exwm-aux/exwm-screens.el index 52f6617..89c98c0 100644 --- a/lisp/exwm-aux/exwm-screens.el +++ b/lisp/exwm-aux/exwm-screens.el @@ -40,6 +40,8 @@ ((string-match-p "^eDP" b) nil) (t nil)))))) +(setq exwm-workspace-number (length (my/get-screens))) + (defun position-screen (screen relative-to) (interactive (cl-destructuring-bind (primary . secondary) (my/get-screens) (list (completing-read "Which screen? " secondary)