diff options
Diffstat (limited to 'accounts/gkleen@sif/xmonad')
-rw-r--r-- | accounts/gkleen@sif/xmonad/xmonad.hs | 11 |
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 | ||