From 0683cbf5e2e82942261a9faf4177819adf01de1a Mon Sep 17 00:00:00 2001 From: Huang Ying Date: Sat, 18 Nov 2017 16:25:27 +0800 Subject: [PATCH] Allow customizing default output * exwm-randr.el (exwm-rand-default-output): New variable for customizing default output. (exwm-randr--refresh): Use it --- exwm-randr.el | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) diff --git a/exwm-randr.el b/exwm-randr.el index d9c083c..0d77b0d 100644 --- a/exwm-randr.el +++ b/exwm-randr.el @@ -52,6 +52,9 @@ (defvar exwm-randr-workspace-output-plist nil) +(defvar exwm-randr-default-output nil + "Default output to put new workspace on.") + (defvar exwm-randr-refresh-hook nil "Normal hook run when the RandR module just refreshed.") @@ -100,7 +103,8 @@ ;; Not all workspaces are fullscreen; reset this counter. (setq exwm-workspace--fullscreen-frame-count 0)) (dotimes (i (exwm-workspace--count)) - (let* ((output (plist-get exwm-randr-workspace-output-plist i)) + (let* ((output (or (plist-get exwm-randr-workspace-output-plist i) + exwm-randr-default-output)) (geometry (lax-plist-get output-plist output)) (frame (elt exwm-workspace--list i))) (unless geometry