--- a/stumpwmrc Sat Jul 15 23:07:58 2023 -0400
+++ b/stumpwmrc Sat Jul 15 23:18:46 2023 -0400
@@ -311,11 +311,9 @@
(defun set-brightness (value)
(run-and-echo-shell-command
(hostcase
- ((:mobius) (format nil "xbacklight -set ~D" value))
- ((:papyrifera :alephnull) (format nil "xrandr --output ~A --brightness ~D"
- (hostcase (:papyrifera "eDP")
- (:alephnull "eDP-1"))
- (/ value 100.0)))
+ ((:gro) (format nil "xrandr --output ~A --brightness ~D"
+ (hostcase (:gro "eDP"))
+ (/ value 100.0)))
(t (message "Not sure how to set brightness on this machine.")))))
(defun rotate-brightness (delta)