1 files changed, 5 insertions, 6 deletions

diff --git a/accounts/gkleen@sif/xmonad/xmonad.hs b/accounts/gkleen@sif/xmonad/xmonad.hs
index dfcd3083..ac6a4aba 100644
--- a/accounts/gkleen@sif/xmonad/xmonad.hs
+++ b/accounts/gkleen@sif/xmonad/xmonad.hs
@@ -865,8 +865,8 @@ myKeys' conf host = Map.fromList $
     , ((0, xF86XK_AudioPlay), mediaMpvTogglePause)
     , ((modm .|. mod1Mask, xK_space), mediaMpvTogglePause)
 
-    , ((0, xF86XK_MonBrightnessDown), backlight (subtract 5))
-    , ((0, xF86XK_MonBrightnessUp), backlight (+ 5))
+    , ((0, xF86XK_MonBrightnessDown), backlight . cycleThrough $ reverse brCycle)
+    , ((0, xF86XK_MonBrightnessUp), backlight $ cycleThrough brCycle)
 
     , ((modm                , xK_Escape), cycleKbLayout (hKbLayouts host))
     , ((modm .|. controlMask, xK_Escape), safeSpawn "setxkbmap" $ fst (head $ hKbLayouts host) : maybeToList (snd . head $ hKbLayouts host))
@@ -891,10 +891,8 @@ myKeys' conf host = Map.fromList $
       )
     , ((modm .|. shiftMask, xK_s     ), safeSpawn "systemctl" ["suspend"])
     , ((modm .|. shiftMask, xK_h     ), safeSpawn "systemctl" ["hibernate"])
-    , ((modm .|. shiftMask, xK_b     ), backlight $ cycleThrough [1, 3 % 4, 1 % 2, 1 % 4, 1 % 10, 1 % 100, 0]
-      )
-    , ((modm .|. shiftMask .|. controlMask, xK_b), backlight $ cycleThrough [0, 1 % 100, 1 % 10, 1 % 4, 1 % 2, 3 % 4, 1]
-      )
+    -- , ((modm .|. shiftMask, xK_b     ), backlight . cycleThrough $ reverse brCycle)
+    -- , ((modm .|. shiftMask .|. controlMask, xK_b), backlight $ cycleThrough brCycle)
     , ((modm, xK_v ), windows copyToAll) -- @@ Make focused window always visible
     , ((modm .|. shiftMask, xK_v ),  killAllOtherCopies) -- @@ Toggle window state back
     , ((modm .|. shiftMask, xK_g     ), windowPrompt xPConfig Goto wsWindows)
@@ -922,4 +920,5 @@ myKeys' conf host = Map.fromList $
   where
     modm = XMonad.modMask conf
 
+    brCycle = [0, 1 % 100, 1 % 10, 1 % 4, 1 % 2, 3 % 4, 1]