diff options
| author | Chris Feng <chris.w.feng@gmail.com> | 2016-02-03T05·30+0800 |
|---|---|---|
| committer | Chris Feng <chris.w.feng@gmail.com> | 2016-02-03T05·30+0800 |
| commit | 2d42fee327f92b01444718cfc83ce5f00716fa33 (patch) | |
| tree | 90074501f43a1c61b0f88508c5ecdcff50b09981 /exwm-randr.el | |
| parent | 0db666b4fbbf0ce4446e5e5205fa70822cd93fd6 (diff) | |
| parent | d8281abca4bc5182040a7866560a1806c59176d4 (diff) | |
Merge branch 'feat/virtual-root'
Diffstat (limited to 'exwm-randr.el')
| -rw-r--r-- | exwm-randr.el | 14 |
1 files changed, 5 insertions, 9 deletions
diff --git a/exwm-randr.el b/exwm-randr.el index 8c8f94d93b5a..3ed64ed28518 100644 --- a/exwm-randr.el +++ b/exwm-randr.el @@ -48,6 +48,7 @@ (require 'xcb-randr) (require 'exwm-core) +(require 'exwm-layout) (eval-when-compile (require 'exwm-workspace)) (defvar exwm-randr-workspace-output-plist nil) @@ -93,15 +94,10 @@ (set-frame-parameter frame 'exwm-randr-output output) (set-frame-parameter frame 'exwm-geometry geometry) (with-slots (x y width height) geometry - (xcb:+request exwm--connection - (make-instance 'xcb:ConfigureWindow - :window (frame-parameter frame 'exwm-outer-id) - :value-mask (eval-when-compile - (logior xcb:ConfigWindow:X - xcb:ConfigWindow:Y - xcb:ConfigWindow:Width - xcb:ConfigWindow:Height)) - :x x :y y :width width :height height)) + (exwm-layout--resize-container (frame-parameter frame 'exwm-outer-id) + (frame-parameter frame + 'exwm-workspace) + x y width height) (setq workareas (nconc workareas (list x y width height)) viewports (nconc viewports (list x y)))))) ;; Update _NET_WORKAREA |