summaryrefslogtreecommitdiff
path: root/accounts/gkleen@sif/xmonad/xmonad.hs
diff options
context:
space:
mode:
Diffstat (limited to 'accounts/gkleen@sif/xmonad/xmonad.hs')
-rw-r--r--accounts/gkleen@sif/xmonad/xmonad.hs11
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 $
865 , ((0, xF86XK_AudioPlay), mediaMpvTogglePause) 865 , ((0, xF86XK_AudioPlay), mediaMpvTogglePause)
866 , ((modm .|. mod1Mask, xK_space), mediaMpvTogglePause) 866 , ((modm .|. mod1Mask, xK_space), mediaMpvTogglePause)
867 867
868 , ((0, xF86XK_MonBrightnessDown), backlight (subtract 5)) 868 , ((0, xF86XK_MonBrightnessDown), backlight . cycleThrough $ reverse brCycle)
869 , ((0, xF86XK_MonBrightnessUp), backlight (+ 5)) 869 , ((0, xF86XK_MonBrightnessUp), backlight $ cycleThrough brCycle)
870 870
871 , ((modm , xK_Escape), cycleKbLayout (hKbLayouts host)) 871 , ((modm , xK_Escape), cycleKbLayout (hKbLayouts host))
872 , ((modm .|. controlMask, xK_Escape), safeSpawn "setxkbmap" $ fst (head $ hKbLayouts host) : maybeToList (snd . head $ hKbLayouts host)) 872 , ((modm .|. controlMask, xK_Escape), safeSpawn "setxkbmap" $ fst (head $ hKbLayouts host) : maybeToList (snd . head $ hKbLayouts host))
@@ -891,10 +891,8 @@ myKeys' conf host = Map.fromList $
891 ) 891 )
892 , ((modm .|. shiftMask, xK_s ), safeSpawn "systemctl" ["suspend"]) 892 , ((modm .|. shiftMask, xK_s ), safeSpawn "systemctl" ["suspend"])
893 , ((modm .|. shiftMask, xK_h ), safeSpawn "systemctl" ["hibernate"]) 893 , ((modm .|. shiftMask, xK_h ), safeSpawn "systemctl" ["hibernate"])
894 , ((modm .|. shiftMask, xK_b ), backlight $ cycleThrough [1, 3 % 4, 1 % 2, 1 % 4, 1 % 10, 1 % 100, 0] 894 -- , ((modm .|. shiftMask, xK_b ), backlight . cycleThrough $ reverse brCycle)
895 ) 895 -- , ((modm .|. shiftMask .|. controlMask, xK_b), backlight $ cycleThrough brCycle)
896 , ((modm .|. shiftMask .|. controlMask, xK_b), backlight $ cycleThrough [0, 1 % 100, 1 % 10, 1 % 4, 1 % 2, 3 % 4, 1]
897 )
898 , ((modm, xK_v ), windows copyToAll) -- @@ Make focused window always visible 896 , ((modm, xK_v ), windows copyToAll) -- @@ Make focused window always visible
899 , ((modm .|. shiftMask, xK_v ), killAllOtherCopies) -- @@ Toggle window state back 897 , ((modm .|. shiftMask, xK_v ), killAllOtherCopies) -- @@ Toggle window state back
900 , ((modm .|. shiftMask, xK_g ), windowPrompt xPConfig Goto wsWindows) 898 , ((modm .|. shiftMask, xK_g ), windowPrompt xPConfig Goto wsWindows)
@@ -922,4 +920,5 @@ myKeys' conf host = Map.fromList $
922 where 920 where
923 modm = XMonad.modMask conf 921 modm = XMonad.modMask conf
924 922
923 brCycle = [0, 1 % 100, 1 % 10, 1 % 4, 1 % 2, 3 % 4, 1]
925 924