gistfile1.txt

(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))))