From 0683cbf5e2e82942261a9faf4177819adf01de1a Mon Sep 17 00:00:00 2001
From: Huang Ying <huang.ying.caritas@gmail.com>
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