mdebray/tvl-depot
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Define 4k-vertical display

Browse source 
Back to having three monitors :)

I'm also calling `display-arrange-primary` in `exwm-init-hook`, which calls
`xrandr` to ensure my displays are configured as I expect.
This commit is contained in:
William Carroll 2021-10-07 19:02:29 -07:00
parent f6ade91595
commit 1909d4bd73
2 changed files with 28 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

20
emacs/.emacs.d/wpc/display.el
View file

@ -41,7 +41,7 @@ NAME - the human-readable identifier for the display
OUTPUT - the xrandr identifier for the display
PRIMARY - if true, send --primary flag to xrandr
COORDS - X and Y offsets
SIZE - the pixel resolution of the display
SIZE - the pixel resolution of the display (width height)
RATE - the refresh rate
DPI - the pixel density in dots per square inch
rotate - one of {normal,left,right,inverted}
@ -107,7 +107,8 @@ See the man-page for xrandr for more details."
(display-register laptop
:output "eDP1"
:primary nil
:size (3840 2160)
:coords (2560 1440)
:size (1920 1080)
:rate 30.0
:dpi 144
:rotate normal)
@ -115,14 +116,23 @@ See the man-page for xrandr for more details."
(display-register 4k-horizontal
:output "DP2"
:primary t
:coords (0 1062)
:size (3840 2160)
:coords (0 0)
:size (2560 1440)
:rate 30.0
:dpi 144
:rotate normal)
(display-register 4k-vertical
:output "HDMI1"
:primary nil
:coords (-1440 -560)
:size (2560 1440)
:rate 30.0
:dpi 144
:rotate left)
(display-arrangement primary
:displays (4k-horizontal laptop))
:displays (laptop 4k-horizontal 4k-vertical))
(provide 'display)
;;; display.el ends here

15
emacs/.emacs.d/wpc/window-manager.el
View file

@ -72,7 +72,15 @@
(make-window-manager--named-workspace
:label "Coding"
:kbd "d"
:display display-4k-horizontal))
:display display-4k-horizontal)
(make-window-manager--named-workspace
:label "Vertical"
:kbd "h"
:display display-4k-vertical)
(make-window-manager--named-workspace
:label "Laptop"
:kbd "p"
:display display-laptop))
"List of `window-manager--named-workspace' structs.")
;; Assert that no two workspaces share KBDs.
@ -337,7 +345,10 @@ predicate."
;; Startup Applications in `window-manager--named-workspaces'
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(add-hook 'exwm-init-hook (lambda () (window-manager--switch "Coding")))
(add-hook 'exwm-init-hook
(lambda ()
(display-arrange-primary)
(window-manager--switch "Coding")))
(provide 'window-manager)
;;; window-manager.el ends here