FG42
/
FG42
1
0
Fork 1
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Replace hardcoded second screen name in wm core with a dynamic name

This commit is contained in:
Behnam Khanbeigi 2023-02-21 11:49:14 +01:00
parent c1764a2b6f
commit 5b166df915
1 changed files with 16 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

27
core/cubes/wm/core.el
View File

@ -25,22 +25,27 @@
(defun wm-randr () (defun wm-randr ()
"RandR support for wm." "RandR support for wm."
(def second-screen
(start-process-shell-command
"xrandr | awk '/\\ connected/ && /[[:digit:]]x[[:digit:]].*+/{print $1}' | tail -n") 1)
(when-wm (when-wm
(require 'exwm-randr) (require 'exwm-randr)
(setq exwm-randr-workspace-output-plist '(0 "HDMI-1"
1 "HDMI-1" (setq exwm-randr-workspace-output-plist '(0 second-screen
2 "HDMI-1" 1 second-screen
3 "HDMI-1" 2 second-screen
4 "HDMI-1" 3 second-screen
5 "HDMI-1" 4 second-screen
6 "eDP-1" 5 second-screen
7 "HDMI-1" 6 "eDP-1"
8 "HDMI-1" 7 second-screen
9 "HDMI-1")) 8 second-screen
9 second-screen))
(add-hook 'exwm-randr-screen-change-hook (add-hook 'exwm-randr-screen-change-hook
(lambda () (lambda ()
(start-process-shell-command (start-process-shell-command
"xrandr" nil "xrandr --output HDMI-1 --above eDP-1 --mode 1920x1080"))) "xrandr" nil (concat "xrandr --output " second-screen " --above eDP-1 --mode 1920x1080")))
(exwm-randr-enable))) (exwm-randr-enable)))