emacs-elpa-diffs
[Top][All Lists]
Advanced

[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")



reply via email to

[Prev in Thread] Current Thread [Next in Thread]