Mirrors/exwm
2
0
Fork 0
mirror of https://github.com/ch11ng/exwm.git synced 2024-11-27 21:18:00 +01:00
Code Issues Projects Releases Packages Wiki Activity

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
Show stats Download patch file Download diff file Expand all files Collapse all files

2
exwm-randr.el
View file

@ -107,7 +107,7 @@
output nil)) output nil))
(set-frame-parameter frame 'exwm-randr-output output) (set-frame-parameter frame 'exwm-randr-output output)
(set-frame-parameter frame 'exwm-geometry geometry))) (set-frame-parameter frame 'exwm-geometry geometry)))
;; Update workareas and set _NET_WORKAREA. ;; Update workareas.
(exwm-workspace--update-workareas) (exwm-workspace--update-workareas)
;; Resize workspace. ;; Resize workspace.
(dolist (f exwm-workspace--list) (dolist (f exwm-workspace--list)

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).") (defvar exwm-workspace--workareas nil "Workareas (struts excluded).")
(defun exwm-workspace--update-workareas () (defun exwm-workspace--update-workareas ()
"Update `exwm-workspace--workareas' and set _NET_WORKAREA." "Update `exwm-workspace--workareas'."
(let ((root-width (x-display-pixel-width)) (let ((root-width (x-display-pixel-width))
(root-height (x-display-pixel-height)) (root-height (x-display-pixel-height))
workareas 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)))))) (cl-incf (aref w 3) delta))))))
;; Save the result. ;; Save the result.
(setq exwm-workspace--workareas workareas) (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))) (xcb:flush exwm--connection)))
(defvar exwm-workspace--fullscreen-frame-count 0 (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)) :window exwm--root :data num-workspaces))
;; Set _NET_DESKTOP_GEOMETRY. ;; Set _NET_DESKTOP_GEOMETRY.
(exwm-workspace--set-desktop-geometry) (exwm-workspace--set-desktop-geometry)
;; Update and set _NET_WORKAREA. ;; Update workareas.
(exwm-workspace--update-workareas) (exwm-workspace--update-workareas)
;; Set _NET_VIRTUAL_ROOTS. ;; Set _NET_VIRTUAL_ROOTS.
(xcb:+request exwm--connection (xcb:+request exwm--connection

7
exwm.el
View file

@ -273,7 +273,7 @@
(setcdr pair struts) (setcdr pair struts)
(push (cons id struts) exwm-workspace--id-struts-alist)) (push (cons id struts) exwm-workspace--id-struts-alist))
(exwm-workspace--update-struts)) (exwm-workspace--update-struts))
;; Update workareas and set _NET_WORKAREA. ;; Update workareas.
(exwm-workspace--update-workareas) (exwm-workspace--update-workareas)
;; Update workspaces. ;; Update workspaces.
(dolist (f exwm-workspace--list) (dolist (f exwm-workspace--list)
@ -292,7 +292,7 @@
(setcdr pair struts) (setcdr pair struts)
(push (cons id struts) exwm-workspace--id-struts-alist)) (push (cons id struts) exwm-workspace--id-struts-alist))
(exwm-workspace--update-struts)) (exwm-workspace--update-struts))
;; Update workareas and set _NET_WORKAREA. ;; Update workareas.
(exwm-workspace--update-workareas) (exwm-workspace--update-workareas)
;; Update workspaces. ;; Update workspaces.
(dolist (f exwm-workspace--list) (dolist (f exwm-workspace--list)
@ -520,7 +520,7 @@
xcb:Atom:_NET_CURRENT_DESKTOP xcb:Atom:_NET_CURRENT_DESKTOP
;; xcb:Atom:_NET_DESKTOP_NAMES ;; xcb:Atom:_NET_DESKTOP_NAMES
xcb:Atom:_NET_ACTIVE_WINDOW xcb:Atom:_NET_ACTIVE_WINDOW
xcb:Atom:_NET_WORKAREA ;; xcb:Atom:_NET_WORKAREA
xcb:Atom:_NET_SUPPORTING_WM_CHECK xcb:Atom:_NET_SUPPORTING_WM_CHECK
xcb:Atom:_NET_VIRTUAL_ROOTS xcb:Atom:_NET_VIRTUAL_ROOTS
;; xcb:Atom:_NET_DESKTOP_LAYOUT ;; xcb:Atom:_NET_DESKTOP_LAYOUT
@ -648,7 +648,6 @@
xcb:Atom:_NET_DESKTOP_VIEWPORT xcb:Atom:_NET_DESKTOP_VIEWPORT
xcb:Atom:_NET_CURRENT_DESKTOP xcb:Atom:_NET_CURRENT_DESKTOP
xcb:Atom:_NET_ACTIVE_WINDOW xcb:Atom:_NET_ACTIVE_WINDOW
xcb:Atom:_NET_WORKAREA
xcb:Atom:_NET_SUPPORTING_WM_CHECK xcb:Atom:_NET_SUPPORTING_WM_CHECK
xcb:Atom:_NET_VIRTUAL_ROOTS xcb:Atom:_NET_VIRTUAL_ROOTS
;; TODO: Keep this list synchronized with that in ;; TODO: Keep this list synchronized with that in