# HG changeset patch
# User Steve Losh <steve@stevelosh.com>
# Date 1534011258 0
# Node ID 291b07317431f3c964e7de9f8d045ce131c1a877
# Parent  f14a899254c7d12358ec598d5ba3f6962f868bac# Parent  d95b0a82e74ee8c9f4f51ffa0bca55310b11d615
Merge.

diff -r f14a899254c7 -r 291b07317431 stumpwmrc
--- 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"))