Adapt dynamic workspace for RandR module

* exwm-workspace.el (exwm-workspace-list-change-hook):
New hook run when the workspace list is modified.
* exwm-randr.el (exwm-randr--init, exwm-randr--exit):
* exwm-workspace.el (exwm-workspace-swap, exwm-workspace-move)
(exwm-workspace--add-frame-as-workspace)
(exwm-workspace--remove-frame-as-workspace):
Use it.
This commit is contained in:
Chris Feng 2016-07-19 10:34:38 +08:00
parent 4c9afc25b3
commit 2ebeec1257
2 changed files with 15 additions and 6 deletions

View file

@ -154,10 +154,12 @@
;; xcb:randr:NotifyMask:OutputProperty
;; xcb:randr:NotifyMask:CrtcChange))
))
(xcb:flush exwm--connection)))))
(xcb:flush exwm--connection)
(add-hook 'exwm-workspace-list-change-hook #'exwm-randr--refresh)))))
(defun exwm-randr--exit ()
"Exit the RandR module.")
"Exit the RandR module."
(remove-hook 'exwm-workspace-list-change-hook #'exwm-randr--refresh))
(defun exwm-randr-enable ()
"Enable RandR support for EXWM."