about summary refs log tree commit diff
path: root/configs/shared/.emacs.d/wpc/display.el
diff options
context:
space:
mode:
Diffstat (limited to 'configs/shared/.emacs.d/wpc/display.el')
-rw-r--r--configs/shared/.emacs.d/wpc/display.el17
1 files changed, 10 insertions, 7 deletions
diff --git a/configs/shared/.emacs.d/wpc/display.el b/configs/shared/.emacs.d/wpc/display.el
index 7f2f5e0346..1c664204b2 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