diff options
| author | Chris Feng <chris.w.feng@gmail.com> | 2016-08-15T10·42+0800 |
|---|---|---|
| committer | Chris Feng <chris.w.feng@gmail.com> | 2016-08-15T10·42+0800 |
| commit | 9ff99d63281ced50a34fa803e8cc48633c1f8449 (patch) | |
| tree | e36607a454cc996ecd0fe7172f8b69ae6ffcd84b /exwm-workspace.el | |
| parent | d8940d1fe63c28ffd4c2fa604b12ed843c3c46d1 (diff) | |
Do not set _NET_WORKAREA
* exwm-workspace.el (exwm-workspace--update-workareas): Do not set _NET_WORKAREA. * exwm.el (exwm--init-icccm-ewmh, exwm--exit-icccm-ewmh): Remove _NET_WORKAREA from the supported list.
Diffstat (limited to 'exwm-workspace.el')
| -rw-r--r-- | exwm-workspace.el | 9 |
1 files changed, 2 insertions, 7 deletions
diff --git a/exwm-workspace.el b/exwm-workspace.el index 77c941774407..958511270b8d 100644 --- a/exwm-workspace.el +++ b/exwm-workspace.el @@ -249,7 +249,7 @@ Value nil means to use the default position which is fixed at bottom, while (defvar exwm-workspace--workareas nil "Workareas (struts excluded).") (defun exwm-workspace--update-workareas () - "Update `exwm-workspace--workareas' and set _NET_WORKAREA." + "Update `exwm-workspace--workareas'." (let ((root-width (x-display-pixel-width)) (root-height (x-display-pixel-height)) workareas @@ -309,11 +309,6 @@ Value nil means to use the default position which is fixed at bottom, while (cl-incf (aref w 3) delta)))))) ;; Save the result. (setq exwm-workspace--workareas workareas) - ;; Update _NET_WORKAREA. - (xcb:+request exwm--connection - (make-instance 'xcb:ewmh:set-_NET_WORKAREA - :window exwm--root - :data (mapconcat #'vconcat workareas []))) (xcb:flush exwm--connection))) (defvar exwm-workspace--fullscreen-frame-count 0 @@ -1320,7 +1315,7 @@ Please check `exwm-workspace--minibuffer-own-frame-p' first." :window exwm--root :data num-workspaces)) ;; Set _NET_DESKTOP_GEOMETRY. (exwm-workspace--set-desktop-geometry) - ;; Update and set _NET_WORKAREA. + ;; Update workareas. (exwm-workspace--update-workareas) ;; Set _NET_VIRTUAL_ROOTS. (xcb:+request exwm--connection |