From 9ee1c9bb175b164c7146cdf51ab91642d08a3ed9 Mon Sep 17 00:00:00 2001 From: Chris Feng Date: Sun, 1 Nov 2015 10:54:20 +0800 Subject: Add hook run when screen changes * exwm-randr.el (exwm-randr-screen-change-hook): New hook. (exwm-randr--init): Run the new hook in the event handler of ScreenChangeNotify. --- exwm-randr.el | 20 +++++++++++++++----- 1 file changed, 15 insertions(+), 5 deletions(-) (limited to 'exwm-randr.el') diff --git a/exwm-randr.el b/exwm-randr.el index 26d15dcb7d99..1ac8f29e1e1b 100644 --- a/exwm-randr.el +++ b/exwm-randr.el @@ -25,15 +25,21 @@ ;; tools such as xrandr(1) to properly configure RandR first. This dependency ;; may be removed in the future, but more work is needed before that. -;; To use this module, first load/enable it and properly configure the variable -;; `exwm-randr-workspace-output-plist': +;; To use this module, load, enable it and configure +;; `exwm-randr-workspace-output-plist' and `exwm-randr-screen-change-hook' +;; as follows: +;; ;; (require 'exwm-randr) ;; (setq exwm-randr-workspace-output-plist '(0 "VGA1")) +;; (add-hook 'exwm-randr-screen-change-hook +;; (lambda () +;; (start-process-shell-command +;; "xrandr" nil "xrandr --output VGA1 --left-of LVDS1 --auto"))) ;; (exwm-randr-enable) -;; Then configure RandR with 'xrandr': -;; $ xrandr --output VGA1 --left-of LVDS1 --auto +;; ;; With above lines, workspace 0 should be assigned to the output named "VGA1", -;; staying at the left of other workspaces on the output "LVDS1". +;; staying at the left of other workspaces on the output "LVDS1". Please refer +;; to xrandr(1) for the configuration of RandR. ;; References: ;; + RandR (http://www.x.org/archive/X11R7.7/doc/randrproto/randrproto.txt) @@ -109,6 +115,9 @@ :data (vconcat viewports))) (xcb:flush exwm--connection))) +(defvar exwm-randr-screen-change-hook nil + "Normal hook run when screen changes.") + (defun exwm-randr--init () "Initialize RandR extension and EXWM RandR module." (if (= 0 (slot-value (xcb:get-extension-data exwm--connection 'xcb:randr) @@ -125,6 +134,7 @@ (xcb:+event exwm--connection 'xcb:randr:ScreenChangeNotify (lambda (_data _synthetic) (exwm--log "(RandR) ScreenChangeNotify") + (run-hooks 'exwm-randr-screen-change-hook) (exwm-randr--refresh))) ;; (xcb:+event exwm--connection 'xcb:randr:Notify ;; (lambda (_data _synthetic) -- cgit 1.4.1