about summary refs log tree commit diff
path: root/exwm-layout.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-layout.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-layout.el')
-rw-r--r--exwm-layout.el33
1 files changed, 16 insertions, 17 deletions
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."