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-workspace.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-workspace.el')
| -rw-r--r-- | exwm-workspace.el | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/exwm-workspace.el b/exwm-workspace.el index 8e3839f024..cf8caa8691 100644 --- a/exwm-workspace.el +++ b/exwm-workspace.el @@ -264,6 +264,14 @@ The optional FORCE option is for internal use only." (raise-frame (car exwm-workspace--list)) ;; Handle unexpected frame switch (add-hook 'focus-in-hook 'exwm-workspace--on-focus-in) + ;; Set _NET_VIRTUAL_ROOTS + (xcb:+request exwm--connection + (make-instance 'xcb:ewmh:set-_NET_VIRTUAL_ROOTS + :window exwm--root + :data (vconcat (mapcar + (lambda (i) + (frame-parameter i 'exwm-window-id)) + exwm-workspace--list)))) ;; Switch to the first workspace (exwm-workspace-switch 0 t)) |