# HG changeset patch
# User Steve Losh <steve@stevelosh.com>
# Date 1533739986 0
# Node ID d95b0a82e74ee8c9f4f51ffa0bca55310b11d615
# Parent  44bf69c2ddfc5d0cf5f534f2d23578432152c4fb
Rotate

diff -r 44bf69c2ddfc -r d95b0a82e74e stumpwmrc
--- a/stumpwmrc	Wed Aug 01 18:54:06 2018 +0000
+++ b/stumpwmrc	Wed Aug 08 14:53:06 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"))