maurice/snix
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Do not set _NET_WORKAREA

Browse source 
* 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.
This commit is contained in:
Chris Feng 2016-08-15 18:42:35 +08:00
parent d8940d1fe6
commit 9ff99d6328
3 changed files with 6 additions and 12 deletions
Download patch file Download diff file Expand all files Collapse all files

9
exwm-workspace.el
View file

@ -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