hg.stevelosh.com > dotfiles

stumpwm/external-screens.lisp @ 30faa48af4ce default tip 

More
author Steve Losh <steve@stevelosh.com>
date Mon, 19 Aug 2024 08:56:24 -0400
parents 4673e928c08e
children (none) 
(in-package :stumpwm-user)

(defcommand screen-laptop () ()
  (only)
  (hostcase
    ((:gro :juss) (loop :with laptop = "eDP"
                        :with extern = (hostcase (:gro "DisplayPort-0")
                                                 (:juss "HDMI-A-0"))
                        :for (output commands) :in `((,laptop ("--auto"))
                                                     (,laptop ("--primary"))
                                                     (,extern ("--off")))
                        :do (progn (uiop:run-program `("xrandr" "--output" ,output ,@commands)))))
    (t (message "Not configured on this system."))))

(defcommand screen-external () ()
  (only)
  (hostcase
    ((:gro :juss) (loop :with laptop = "eDP"
                        :with extern = (hostcase (:gro "DisplayPort-0")
                                                 (:juss "HDMI-A-0"))
                        :for (output commands) :in `((,extern ("--auto"))
                                                     (,extern ("--primary"))
                                                     (,laptop ("--off")))
                        :do (uiop:run-program `("xrandr" "--output" ,output ,@commands))))
    (t (message "Not configured on this system."))))