diff options
| author | Chris Feng <chris.w.feng@gmail.com> | 2015-08-26T09·25+0800 |
|---|---|---|
| committer | Chris Feng <chris.w.feng@gmail.com> | 2015-08-26T09·40+0800 |
| commit | b50a6e6dd9f5a34e91fd544e3ead0c81a7217777 (patch) | |
| tree | d67bdda974e29e84ce248e1b55bb42b26298702f /exwm-floating.el | |
| parent | 981293f06af320f2929fd0d209eb97e63b4d8e3e (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-floating.el')
| -rw-r--r-- | exwm-floating.el | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/exwm-floating.el b/exwm-floating.el index bc6b1a246a54..8c2a8f4998d9 100644 --- a/exwm-floating.el +++ b/exwm-floating.el @@ -381,9 +381,13 @@ "Perform move/resize." (when exwm-floating--moveresize-calculate (let ((obj (make-instance 'xcb:MotionNotify)) - (frame-x (or (frame-parameter exwm-workspace--current 'exwm-x) 0)) - (frame-y (or (frame-parameter exwm-workspace--current 'exwm-y) 0)) + (geometry (frame-parameter exwm-workspace--current 'exwm-geometry)) + (frame-x 0) + (frame-y 0) result) + (when geometry + (setq frame-x (slot-value geometry 'x) + frame-y (slot-value geometry 'y))) (xcb:unmarshal obj data) (setq result (funcall exwm-floating--moveresize-calculate (slot-value obj 'root-x) (slot-value obj 'root-y))) |