about summary refs log tree commit diff
diff options
context:
space:
mode:
authorChris Feng <chris.w.feng@gmail.com>2016-08-12T12·30+0800
committerChris Feng <chris.w.feng@gmail.com>2016-08-12T12·30+0800
commit108b3949c26f55cfdb96866dedac3f68c893692f (patch)
treec68a97cf9a67066d11313c0d9278772628bcbbdf
parentbadf1c30a04cdc008f189c1cdef93c3db7ee7b6d (diff)
Fix _NET_DESKTOP_VIEWPORT
* exwm-workspace.el (exwm-workspace--update-ewmh-props):
* exwm.el (exwm--init-icccm-ewmh):
Set _NET_DESKTOP_VIEWPORT on startup since it's a constant.
-rw-r--r--exwm-workspace.el5
-rw-r--r--exwm.el5
2 files changed, 5 insertions, 5 deletions
diff --git a/exwm-workspace.el b/exwm-workspace.el
index 0e078b7cc96c..77c941774407 100644
--- a/exwm-workspace.el
+++ b/exwm-workspace.el
@@ -1320,11 +1320,6 @@ Please check `exwm-workspace--minibuffer-own-frame-p' first."
                        :window exwm--root :data num-workspaces))
     ;; Set _NET_DESKTOP_GEOMETRY.
     (exwm-workspace--set-desktop-geometry)
-    ;; Set _NET_DESKTOP_VIEWPORT (we don't support large desktop).
-    (xcb:+request exwm--connection
-        (make-instance 'xcb:ewmh:set-_NET_DESKTOP_VIEWPORT
-                       :window exwm--root
-                       :data (make-vector (* 2 num-workspaces) 0)))
     ;; Update and set _NET_WORKAREA.
     (exwm-workspace--update-workareas)
     ;; Set _NET_VIRTUAL_ROOTS.
diff --git a/exwm.el b/exwm.el
index 67374430c12d..a97236786bf1 100644
--- a/exwm.el
+++ b/exwm.el
@@ -628,6 +628,11 @@
       (xcb:+request exwm--connection
           (make-instance 'xcb:ewmh:set-_NET_WM_NAME
                          :window i :data "EXWM"))))
+  ;; Set _NET_DESKTOP_VIEWPORT (we don't support large desktop).
+  (xcb:+request exwm--connection
+      (make-instance 'xcb:ewmh:set-_NET_DESKTOP_VIEWPORT
+                     :window exwm--root
+                     :data [0 0]))
   (xcb:flush exwm--connection))
 
 (defun exwm--exit-icccm-ewmh ()