b161525bdc6f

Fix backlight
[view raw] [browse files]
author Steve Losh <steve@stevelosh.com>
date Sat, 15 Jul 2023 23:18:46 -0400
parents 3934552a572f
children e26a5b448f20
branches/tags (none)
files stumpwmrc

Changes

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