# HG changeset patch
# User Steve Losh <steve@stevelosh.com>
# Date 1689477526 14400
# Node ID b161525bdc6f245f2f0719a0fb70f08169c94609
# Parent  3934552a572fb6b126455bb2a994f9090a4ac354
Fix backlight

diff -r 3934552a572f -r b161525bdc6f stumpwmrc
--- 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)