diff options
| -rw-r--r-- | configs/shared/.emacs.d/wpc/display.el | 17 | ||||
| -rw-r--r-- | configs/shared/.emacs.d/wpc/window-manager.el | 5 |
2 files changed, 13 insertions, 9 deletions
diff --git a/configs/shared/.emacs.d/wpc/display.el b/configs/shared/.emacs.d/wpc/display.el index 7f2f5e034609..1c664204b227 100644 --- a/configs/shared/.emacs.d/wpc/display.el +++ b/configs/shared/.emacs.d/wpc/display.el @@ -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 diff --git a/configs/shared/.emacs.d/wpc/window-manager.el b/configs/shared/.emacs.d/wpc/window-manager.el index 4e9770a40cdb..0c350acd2f7c 100644 --- a/configs/shared/.emacs.d/wpc/window-manager.el +++ b/configs/shared/.emacs.d/wpc/window-manager.el @@ -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) |