about summary refs log tree commit diff
path: root/exwm.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.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.el')
-rw-r--r--exwm.el10
1 files changed, 1 insertions, 9 deletions
diff --git a/exwm.el b/exwm.el
index a52e11419d3a..3b2705a163fc 100644
--- a/exwm.el
+++ b/exwm.el
@@ -579,20 +579,12 @@
                      :data (make-vector (* 2 exwm-workspace-number) 0)))
   ;; Set _NET_WORKAREA (with minibuffer and bottom mode-line excluded)
   (let* ((workareas
-          (vconcat (window-absolute-pixel-edges (get-largest-window t))))
+          (vector 0 0 (x-display-pixel-width) (x-display-pixel-height)))
          (workareas (mapconcat (lambda (i) workareas)
                                (make-list exwm-workspace-number 0) [])))
     (xcb:+request exwm--connection
         (make-instance 'xcb:ewmh:set-_NET_WORKAREA
                        :window exwm--root :data workareas)))
-  ;; 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))))
   (xcb:flush exwm--connection))
 
 (defvar exwm-init-hook nil