[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/exwm d3be64e 05/14: Factor out `exwm-randr--on-ScreenCh
From: |
Chris Feng |
Subject: |
[elpa] externals/exwm d3be64e 05/14: Factor out `exwm-randr--on-ScreenChangeNotify' |
Date: |
Thu, 8 Mar 2018 12:08:06 -0500 (EST) |
branch: externals/exwm
commit d3be64e743b0e794b91743fa1fa31b721d1a3aca
Author: Adrián Medraño Calvo <address@hidden>
Commit: Adrián Medraño Calvo <address@hidden>
Factor out `exwm-randr--on-ScreenChangeNotify'
* exwm-randr.el (exwm-randr--on-ScreenChangeNotify)
(exwm-randr--init): Factor ScreenChangeNotify event callback into
a function.
---
exwm-randr.el | 10 ++++++----
1 file changed, 6 insertions(+), 4 deletions(-)
diff --git a/exwm-randr.el b/exwm-randr.el
index 37f40f1..485d9c8 100644
--- a/exwm-randr.el
+++ b/exwm-randr.el
@@ -170,6 +170,11 @@ the first one in result being the primary output."
(xcb:flush exwm--connection)
(run-hooks 'exwm-randr-refresh-hook))))
+(defun exwm-randr--on-ScreenChangeNotify (_data _synthetic)
+ (exwm--log "(RandR) ScreenChangeNotify")
+ (run-hooks 'exwm-randr-screen-change-hook)
+ (exwm-randr--refresh))
+
(defun exwm-randr--init ()
"Initialize RandR extension and EXWM RandR module."
(if (= 0 (slot-value (xcb:get-extension-data exwm--connection 'xcb:randr)
@@ -186,10 +191,7 @@ the first one in result being the primary output."
(run-hooks 'exwm-randr-screen-change-hook)
(exwm-randr--refresh)
(xcb:+event exwm--connection 'xcb:randr:ScreenChangeNotify
- (lambda (_data _synthetic)
- (exwm--log "(RandR) ScreenChangeNotify")
- (run-hooks 'exwm-randr-screen-change-hook)
- (exwm-randr--refresh)))
+ #'exwm-randr--on-ScreenChangeNotify)
;; (xcb:+event exwm--connection 'xcb:randr:Notify
;; (lambda (_data _synthetic)
;; (exwm--log "(RandR) Notify")
- [elpa] externals/exwm updated (dd0f107 -> 2f430db), Chris Feng, 2018/03/08
- [elpa] externals/exwm 4660e04 01/14: Prevent duplicate keys in frameset-filter-alist, Chris Feng, 2018/03/08
- [elpa] externals/exwm c00331a 03/14: Cleanup exwm-layout on exit, Chris Feng, 2018/03/08
- [elpa] externals/exwm d3be64e 05/14: Factor out `exwm-randr--on-ScreenChangeNotify',
Chris Feng <=
- [elpa] externals/exwm 4f7abf4 04/14: Cleanup exwm-manage on exit, Chris Feng, 2018/03/08
- [elpa] externals/exwm a2b6cfb 08/14: * exwm.el (exwm--exit): Drop SubstructureRedirect on root window., Chris Feng, 2018/03/08
- [elpa] externals/exwm 81529c2 02/14: Cleanup exwm-input on exit, Chris Feng, 2018/03/08
- [elpa] externals/exwm ce8af83 09/14: Disconnect on `exwm--exit', Chris Feng, 2018/03/08
- [elpa] externals/exwm 350950a 12/14: Clean up when failing to start, Chris Feng, 2018/03/08
- [elpa] externals/exwm a51be88 07/14: Cleanup exwm-workspace on exit, Chris Feng, 2018/03/08
- [elpa] externals/exwm cf98e3d 11/14: Name all helper windows created by EXWM, Chris Feng, 2018/03/08
- [elpa] externals/exwm 587a8ca 10/14: Add interactive commands for starting and stopping EXWM, Chris Feng, 2018/03/08
- [elpa] externals/exwm 7aae6ef 13/14: Support replacing and being replaced by other window managers, Chris Feng, 2018/03/08
- [elpa] externals/exwm 2f430db 14/14: Minor fixes, Chris Feng, 2018/03/08