about summary refs log tree commit diff
path: root/exwm-workspace.el
diff options
context:
space:
mode:
authorChris Feng <chris.w.feng@gmail.com>2016-02-12T06·10+0800
committerChris Feng <chris.w.feng@gmail.com>2016-02-12T06·10+0800
commitea027d424ea71209ca1819094577559d7847203c (patch)
tree5cfd2441cd935437c8fc11aaaf008ea6c62eaf24 /exwm-workspace.el
parent35d04c34685a1c1e9f351a2c50b3eea2b2fb5f25 (diff)
Postpone making workspace frames fullscreen
* exwm-workspace.el (exwm-workspace--init, exwm-workspace--post-init): Move
work to postpone to the new function `exwm-workspace--post-init'.

* exwm.el (exwm-init): Call `exwm-workspace--post-init' after
`exwm--unlock`.
Diffstat (limited to 'exwm-workspace.el')
-rw-r--r--exwm-workspace.el13
1 files changed, 8 insertions, 5 deletions
diff --git a/exwm-workspace.el b/exwm-workspace.el
index 3d7f67ecb8e4..99a7c7bd2bb3 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)