diff options
| author |  Tom Willemse | 2025-08-21 11:02:45 -0700 |
|---|---|---|
| committer | Tom Willemse | 2025-08-21 11:02:45 -0700 |
| commit | 8908debbc2ed41eccef6e44a2d497c347de43df8 (patch) | |
| tree | f6a34dfc1a78426d97a137647ec7bc28774287b6 | |
| parent | 254ec3da6d4e244540ce2b7a2235c11136e1b0ec (diff) | |
| download | new-dotfiles-8908debbc2ed41eccef6e44a2d497c347de43df8.tar.gz new-dotfiles-8908debbc2ed41eccef6e44a2d497c347de43df8.zip | |
pop-os/stumpwm: Add commands for specific monitor setups
| -rw-r--r-- | oni/home/services/stumpwm/pop-os-config.lisp | 18 |
1 files changed, 18 insertions, 0 deletions
diff --git a/oni/home/services/stumpwm/pop-os-config.lisp b/oni/home/services/stumpwm/pop-os-config.lisp index 9c0acb5..86b9943 100644 --- a/oni/home/services/stumpwm/pop-os-config.lisp +++ b/oni/home/services/stumpwm/pop-os-config.lisp @@ -55,3 +55,21 @@ (sb-ext:run-program "/usr/bin/gtk-launch" (list application) :wait nil)) (define-key *user-bindings* (kbd "a") "run-application") + +(defvar *xrandr-program* "/usr/bin/xrandr") + +(defcommand laptop-screen () () + (sb-ext:run-program *xrandr-program* '("--output" "eDP-1" "--primary" "--auto" "--output" "HDMI-1" "--off" "--output" "DP-1" "--off")) + (if (> (length (screen-heads (current-screen))) 1) + (refresh-heads))) + + +(defcommand samsung-screen () () + (sb-ext:run-program *xrandr-program* '("--output" "eDP-1" "--off" "--output" "DP-1" "--auto" "--primary")) + (when (and (= 1 (length (screen-heads (current-screen)))) + (/= (screen-width (current-screen)) + (frame-width (car (screen-heads (current-screen)))))) + (refresh-heads))) + +(defcommand laptop+mnn-screen () () + (sb-ext:run-program *xrandr-program* '("--output" "eDP-1" "--auto" "--output" "HDMI-1" "--auto" "--primary" "--right-of" "eDP-1"))) |