Debug xrandr integration to support 4k monitor
Two things: 1. I'm unsure if what I previously committed ever worked because the arguments to `string/format` were flipped. 2. I'm unsure why my screen devices are sometimes eDP-1 and eDP1. Perhaps expect more commits as this becomes more clear to me.
This commit is contained in:
parent
5a1b869af3
commit
fac128f00c
2 changed files with 13 additions and 9 deletions
|
@ -24,10 +24,11 @@
|
|||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||
|
||||
;; TODO: Consider if this logic should be conditioned by `device/work-laptop?'.
|
||||
(defconst display/primary "eDP-1"
|
||||
(defconst display/laptop-monitor "eDP1"
|
||||
"The xrandr identifier for my primary screen (on work laptop).")
|
||||
|
||||
(defconst display/4k "HDMI-1"
|
||||
;; TODO: Why is HDMI-1, eDP-1 sometimes and HDMI1, eDP1 other times.
|
||||
(defconst display/4k-monitor "HDMI1"
|
||||
"The xrandr identifer for my 4K monitor.")
|
||||
|
||||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||
|
@ -38,17 +39,19 @@
|
|||
"Attempt to connect to my 4K monitor."
|
||||
(interactive)
|
||||
(prelude/start-process
|
||||
:name "display"
|
||||
:command (string/format "xrandr --output %s --dpi 144 --auto --right-of %s"
|
||||
display/4k
|
||||
display/primary)))
|
||||
:name "display/enable-4k"
|
||||
:command (string/format
|
||||
"xrandr --output %s --above %s --primary --auto --dpi 144"
|
||||
display/4k-monitor
|
||||
display/laptop-monitor)))
|
||||
|
||||
(defun display/disable-4k ()
|
||||
"Disconnect from the 4K monitor."
|
||||
(interactive)
|
||||
(prelude/start-process
|
||||
:name "display/disable-4k"
|
||||
:command (string/format "xrandr --output %s --off" display/4k)))
|
||||
:command (string/format "xrandr --output %s --off"
|
||||
display/4k-monitor)))
|
||||
|
||||
(provide 'display)
|
||||
;;; display.el ends here
|
||||
|
|
|
@ -123,8 +123,9 @@
|
|||
(exwm-randr-enable)
|
||||
;; TODO: Consider generating this plist.
|
||||
;; TODO: Replace integer index values with their named workspace equivalents.
|
||||
(setq exwm-randr-workspace-monitor-plist (list 0 display/4k
|
||||
1 display/primary))
|
||||
(setq exwm-randr-workspace-monitor-plist
|
||||
(list 0 display/4k-monitor
|
||||
1 display/laptop-monitor))
|
||||
|
||||
(evil-set-initial-state 'exwm-mode 'emacs)
|
||||
(ido-mode 1)
|
||||
|
|
Loading…
Reference in a new issue