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

Expose `exwm-randr-refresh' public interface

Browse source 
* exwm-randr.el (exwm-randr-refresh): New public interface allowing
users to manually refresh when RandR settings are changed output EXWM.
(exwm-randr--refresh): Made obsolete.
This commit is contained in:
Chris Feng 2018-11-11 00:00:00 +00:00
parent e597ab4f78
commit 9dcfff568f
1 changed files with 6 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
exwm-randr.el
View file

@ -125,8 +125,10 @@ corresponding monitors whenever the monitors are active.
(exwm--log "Monitors: %s" monitor-plist) (exwm--log "Monitors: %s" monitor-plist)
(list primary-monitor monitor-plist))) (list primary-monitor monitor-plist)))
(defun exwm-randr--refresh () ;;;###autoload
(defun exwm-randr-refresh ()
"Refresh workspaces according to the updated RandR info." "Refresh workspaces according to the updated RandR info."
(interactive)
(let* ((result (exwm-randr--get-monitors)) (let* ((result (exwm-randr--get-monitors))
(primary-monitor (elt result 0)) (primary-monitor (elt result 0))
(monitor-plist (elt result 1)) (monitor-plist (elt result 1))
@ -181,6 +183,9 @@ corresponding monitors whenever the monitors are active.
(xcb:flush exwm--connection) (xcb:flush exwm--connection)
(run-hooks 'exwm-randr-refresh-hook)))) (run-hooks 'exwm-randr-refresh-hook))))
(define-obsolete-function-alias 'exwm-randr--refresh #'exwm-randr-refresh
"27.1")
(defun exwm-randr--on-ScreenChangeNotify (_data _synthetic) (defun exwm-randr--on-ScreenChangeNotify (_data _synthetic)
(exwm--log) (exwm--log)
(run-hooks 'exwm-randr-screen-change-hook) (run-hooks 'exwm-randr-screen-change-hook)