diff options
Diffstat (limited to 'exwm-layout.el')
| -rw-r--r-- | exwm-layout.el | 33 |
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." |