about summary refs log tree commit diff
path: root/exwm-workspace.el
diff options
context:
space:
mode:
authorChris Feng <chris.w.feng@gmail.com>2015-08-26T09·25+0800
committerChris Feng <chris.w.feng@gmail.com>2015-08-26T09·40+0800
commitb50a6e6dd9f5a34e91fd544e3ead0c81a7217777 (patch)
treed67bdda974e29e84ce248e1b55bb42b26298702f /exwm-workspace.el
parent981293f06af320f2929fd0d209eb97e63b4d8e3e (diff)
Correct several EWMH properties
The following EWMH properties on the root window are corrected in this commit:
_NET_VIRTUAL_ROOTS, _NET_WORKAREA and _NET_DESKTOP_VIEWPORT.
Diffstat (limited to 'exwm-workspace.el')
-rw-r--r--exwm-workspace.el8
1 files changed, 8 insertions, 0 deletions
diff --git a/exwm-workspace.el b/exwm-workspace.el
index 8e3839f024a4..cf8caa8691e7 100644
--- a/exwm-workspace.el
+++ b/exwm-workspace.el
@@ -264,6 +264,14 @@ The optional FORCE option is for internal use only."
   (raise-frame (car exwm-workspace--list))
   ;; Handle unexpected frame switch
   (add-hook 'focus-in-hook 'exwm-workspace--on-focus-in)
+  ;; Set _NET_VIRTUAL_ROOTS
+  (xcb:+request exwm--connection
+      (make-instance 'xcb:ewmh:set-_NET_VIRTUAL_ROOTS
+                     :window exwm--root
+                     :data (vconcat (mapcar
+                                     (lambda (i)
+                                       (frame-parameter i 'exwm-window-id))
+                                     exwm-workspace--list))))
   ;; Switch to the first workspace
   (exwm-workspace-switch 0 t))