Mirrors/exwm
2
0
Fork 0
mirror of https://github.com/ch11ng/exwm.git synced 2024-11-24 03:47:59 +01:00
Code Issues Projects Releases Packages Wiki Activity

Allow customizing default output

Browse source 
* exwm-randr.el (exwm-rand-default-output): New variable for
customizing default output.
(exwm-randr--refresh): Use it
This commit is contained in:
Huang Ying 2017-11-18 16:25:27 +08:00
parent dd6596b1f4
commit 0683cbf5e2
1 changed files with 5 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
exwm-randr.el
View file

@ -52,6 +52,9 @@
(defvar exwm-randr-workspace-output-plist nil) (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 (defvar exwm-randr-refresh-hook nil
"Normal hook run when the RandR module just refreshed.") "Normal hook run when the RandR module just refreshed.")
@ -100,7 +103,8 @@
;; Not all workspaces are fullscreen; reset this counter. ;; Not all workspaces are fullscreen; reset this counter.
(setq exwm-workspace--fullscreen-frame-count 0)) (setq exwm-workspace--fullscreen-frame-count 0))
(dotimes (i (exwm-workspace--count)) (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)) (geometry (lax-plist-get output-plist output))
(frame (elt exwm-workspace--list i))) (frame (elt exwm-workspace--list i)))
(unless geometry (unless geometry