Skip to content

Instantly share code, notes, and snippets.

Embed
What would you like to do?
(defcommand screen-single () ()
(loop with laptop = "eDP1"
with extern = "DP1"
for (output commands) in `((,laptop ("--primary"))
(,extern ("--off"))
(,laptop ("--preferred")))
do (uiop:run-program `("xrandr" "--output" ,output ,@commands))))
(defcommand screen-multi () ()
(loop with laptop = "eDP1"
with extern = "DP1"
for (output commands) in `((,laptop ("--preferred"))
(,extern ("--on"))
(,extern ("--preferred"))
;; (,extern ("--mode" "2560x1440"))
(,extern ("--left-of" ,laptop))
(,extern ("--primary")))
do (uiop:run-program `("xrandr" "--output" ,output ,@commands))))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment
You can’t perform that action at this time.