From 9dcfff568f8c1205bf57877e3d1d5ebe8466ce8d Mon Sep 17 00:00:00 2001 From: Chris Feng Date: Sun, 11 Nov 2018 00:00:00 +0000 Subject: Expose `exwm-randr-refresh' public interface * 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. --- exwm-randr.el | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) (limited to 'exwm-randr.el') diff --git a/exwm-randr.el b/exwm-randr.el index 542225265221..2ec478973036 100644 --- a/exwm-randr.el +++ b/exwm-randr.el @@ -125,8 +125,10 @@ corresponding monitors whenever the monitors are active. (exwm--log "Monitors: %s" monitor-plist) (list primary-monitor monitor-plist))) -(defun exwm-randr--refresh () +;;;###autoload +(defun exwm-randr-refresh () "Refresh workspaces according to the updated RandR info." + (interactive) (let* ((result (exwm-randr--get-monitors)) (primary-monitor (elt result 0)) (monitor-plist (elt result 1)) @@ -181,6 +183,9 @@ corresponding monitors whenever the monitors are active. (xcb:flush exwm--connection) (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) (exwm--log) (run-hooks 'exwm-randr-screen-change-hook) -- cgit 1.4.1