291b07317431

--- a/stumpwmrc	Sat Aug 11 18:14:10 2018 +0000
+++ b/stumpwmrc	Sat Aug 11 18:14:18 2018 +0000
@@ -119,11 +119,17 @@
 (defun brightness ()
   (aref *brightness-values* *brightness-index*))
 
-(defcommand rotate-brightness () ()
+(defun rotate-brightness (delta)
   (setf *brightness-index*
-        (mod+ *brightness-index* 1 (length *brightness-values*)))
+        (mod+ *brightness-index* delta (length *brightness-values*)))
   (run-shell-command (format nil "xbacklight -set ~D" (brightness))))
 
+(defcommand rotate-brightness-up () ()
+  (rotate-brightness 1))
+
+(defcommand rotate-brightness-down () ()
+  (rotate-brightness -1))
+
 
 ;;;; Commands -----------------------------------------------------------------
 (defcommand sane-hsplit () ()
@@ -273,8 +279,8 @@
   ("H-'" "title"))
 
 (define-top-keys ;; screen
-  ("H-F5" "exec xbacklight -dec 10")
-  ("H-F6" "rotate-brightness")
+  ("H-F5" "rotate-brightness-down")
+  ("H-F6" "rotate-brightness-up")
   ("H-F7" "screen-single")
   ("H-F8" "screen-multi"))