From b50a6e6dd9f5a34e91fd544e3ead0c81a7217777 Mon Sep 17 00:00:00 2001
From: Chris Feng <chris.w.feng@gmail.com>
Date: Wed, 26 Aug 2015 17:25:21 +0800
Subject: 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.
---
 exwm-layout.el | 33 ++++++++++++++++-----------------
 1 file changed, 16 insertions(+), 17 deletions(-)

(limited to 'exwm-layout.el')

diff --git a/exwm-layout.el b/exwm-layout.el
index 735b156e16cc..fe1645f0fb58 100644
--- a/exwm-layout.el
+++ b/exwm-layout.el
@@ -167,28 +167,27 @@
 ;; frame to the actual monitor size, `exwm-layout-set-fullscreen' resizes an X
 ;; window to the frame size.
 (defun exwm-layout--set-frame-fullscreen (frame)
-  "Make frame FRAME fullscreen, with regard to its XRandR output if applicable."
+  "Make frame FRAME fullscreen, with regard to its RandR output if applicable."
   (let ((geometry (or (frame-parameter frame 'exwm-geometry)
-                      (xcb:+request-unchecked+reply
-                          exwm--connection
+                      (xcb:+request-unchecked+reply exwm--connection
                           (make-instance 'xcb:GetGeometry
                                          :drawable exwm--root))
                       (make-instance 'xcb:RECTANGLE :x 0 :y 0
-                                     :width (x-display-width)
-                                     :height (x-display-height))))
-         (id (frame-parameter frame 'exwm-outer-id)))
+                                     :width (x-display-pixel-width)
+                                     :height (x-display-pixel-height))))
+        (id (frame-parameter frame 'exwm-outer-id)))
     (with-slots (x y width height) geometry
-                (xcb:+request exwm--connection
-                    (make-instance 'xcb:ConfigureWindow
-                                   :window id
-                                   :value-mask (logior xcb:ConfigWindow:X
-                                                       xcb:ConfigWindow:Y
-                                                       xcb:ConfigWindow:Width
-                                                       xcb:ConfigWindow:Height)
-                                   :x x :y y
-                                   :width width
-                                   :height height))
-                (xcb:flush exwm--connection))))
+      (xcb:+request exwm--connection
+          (make-instance 'xcb:ConfigureWindow
+                         :window id
+                         :value-mask (logior xcb:ConfigWindow:X
+                                             xcb:ConfigWindow:Y
+                                             xcb:ConfigWindow:Width
+                                             xcb:ConfigWindow:Height)
+                         :x x :y y
+                         :width width
+                         :height height))
+      (xcb:flush exwm--connection))))
 
 (defun exwm-layout--refresh ()
   "Refresh layout."
-- 
cgit 1.4.1