diff options
| -rw-r--r-- | exwm-workspace.el | 13 | ||||
| -rw-r--r-- | exwm.el | 1 |
2 files changed, 9 insertions, 5 deletions
diff --git a/exwm-workspace.el b/exwm-workspace.el index 3d7f67ecb8..99a7c7bd2b 100644 --- a/exwm-workspace.el +++ b/exwm-workspace.el @@ -599,11 +599,6 @@ This functions is modified from `display-buffer-reuse-window' and (xcb:flush exwm--connection) ;; We have to advice `x-create-frame' or every call to it would hang EXWM (advice-add 'x-create-frame :around #'exwm-workspace--x-create-frame) - ;; Delay making the workspaces fullscreen until Emacs becomes idle - (run-with-idle-timer 0 nil - (lambda () - (dolist (i exwm-workspace--list) - (set-frame-parameter i 'fullscreen 'fullboth)))) ;; Set _NET_VIRTUAL_ROOTS (xcb:+request exwm--connection (make-instance 'xcb:ewmh:set-_NET_VIRTUAL_ROOTS @@ -615,6 +610,14 @@ This functions is modified from `display-buffer-reuse-window' and ;; Switch to the first workspace (exwm-workspace-switch 0 t)) +(defun exwm-workspace--post-init () + "The second stage in the initialization of the workspace module." + ;; Delay making the workspaces fullscreen until Emacs becomes idle + (run-with-idle-timer 0 nil + (lambda () + (dolist (i exwm-workspace--list) + (set-frame-parameter i 'fullscreen 'fullboth))))) + (provide 'exwm-workspace) diff --git a/exwm.el b/exwm.el index 720274fdcb..8f15b4e870 100644 --- a/exwm.el +++ b/exwm.el @@ -517,6 +517,7 @@ (exwm-workspace--init) (exwm-input--init) (exwm--unlock) + (exwm-workspace--post-init) ;; Manage existing windows (exwm-manage--scan) (run-hooks 'exwm-init-hook))))) |