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

Prevent certain frame parameters from being saved/restored

Browse source 
* exwm-input.el (exwm-input--init):
* exwm-randr.el (exwm-randr--init):
* exwm-workspace.el (exwm-workspace--init):
Add certain frame parameters into `frameset-filter-alist' to prevent
them from being saved/restored which makes little sense and is
problematic.
This commit is contained in:
Chris Feng 2017-01-03 00:14:33 +08:00
parent b11ac2e6dc
commit 4c043471c5
3 changed files with 16 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
exwm-input.el
View file

@ -767,7 +767,11 @@ Its usage is the same with `exwm-input-set-simulation-keys'."
;; Re-grab global keys.
(add-hook 'exwm-workspace-list-change-hook
#'exwm-input--on-workspace-list-change)
(exwm-input--on-workspace-list-change))
(exwm-input--on-workspace-list-change)
;; Prevent frame parameters introduced by this module from being
;; saved/restored.
(dolist (i '(exwm-grabbed))
(push (cons i :never) frameset-filter-alist)))
(defun exwm-input--exit ()
"Exit the input module."

6
exwm-randr.el
View file

@ -160,7 +160,11 @@
;; xcb:randr:NotifyMask:CrtcChange))
))
(xcb:flush exwm--connection)
(add-hook 'exwm-workspace-list-change-hook #'exwm-randr--refresh)))))
(add-hook 'exwm-workspace-list-change-hook #'exwm-randr--refresh))))
;; Prevent frame parameters introduced by this module from being
;; saved/restored.
(dolist (i '(exwm-randr-output exwm-geometry))
(push (cons i :never) frameset-filter-alist)))
(defun exwm-randr--exit ()
"Exit the RandR module."

7
exwm-workspace.el
View file

@ -1466,7 +1466,12 @@ applied to all subsequently created X frames."
(add-hook 'delete-frame-functions
#'exwm-workspace--remove-frame-as-workspace)
;; Switch to the first workspace
(exwm-workspace-switch 0 t))
(exwm-workspace-switch 0 t)
;; Prevent frame parameters introduced by this module from being
;; saved/restored.
(dolist (i '(exwm-outer-id exwm-id exwm-container exwm-workspace
fullscreen exwm-selected-window exwm-urgency))
(push (cons i :never) frameset-filter-alist)))
(defun exwm-workspace--exit ()
"Exit the workspace module."