[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/exwm 9dcfff5 1/2: Expose `exwm-randr-refresh' public in
From: |
Chris Feng |
Subject: |
[elpa] externals/exwm 9dcfff5 1/2: Expose `exwm-randr-refresh' public interface |
Date: |
Sun, 11 Nov 2018 03:49:59 -0500 (EST) |
branch: externals/exwm
commit 9dcfff568f8c1205bf57877e3d1d5ebe8466ce8d
Author: Chris Feng <address@hidden>
Commit: Chris Feng <address@hidden>
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(-)
diff --git a/exwm-randr.el b/exwm-randr.el
index 5422252..2ec4789 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)