diff options
Diffstat (limited to '.config/XMonad/lib/Keybindings.hs')
| -rw-r--r-- | .config/XMonad/lib/Keybindings.hs | 32 |
1 files changed, 18 insertions, 14 deletions
diff --git a/.config/XMonad/lib/Keybindings.hs b/.config/XMonad/lib/Keybindings.hs index 7e65e81..9b3eaaa 100644 --- a/.config/XMonad/lib/Keybindings.hs +++ b/.config/XMonad/lib/Keybindings.hs @@ -40,8 +40,20 @@ myMouseKeybindings = [ , ((myModShiftMask, 5), \w -> shiftToNext >> nextWS) ] -myKeybindings :: [((KeyMask, KeySym), X ())] -myKeybindings = [ +myFnKeybindingsP :: [(String, X())] +myFnKeybindingsP = [ + ("<XF86MonBrightnessUp>", spawn backlightUp) + , ("<XF86MonBrightnessDown>", spawn backlightDown) + , ("<XF86AudioRaiseVolume>", spawn volUp) + , ("<XF86AudioLowerVolume>", spawn volDown) + , ("<XF86AudioMute>", spawn volMute) + , ("<XF86AudioPlay>", spawn pausePlay) + , ("<XF86AudioPause>", spawn pausePlay) + , ("<Pause>", spawn pausePlay) + ] + +myKeybindingsQWERTY :: [((KeyMask, KeySym), X ())] +myKeybindingsQWERTY = [ ((myModMask, xK_Return), spawn myTerminal) , ((myModShiftMask, xK_Return), spawn myLockscreen) , ((myModMask .|. shiftMask, xK_q), kill1) @@ -151,19 +163,11 @@ myKeybindings = [ , (f, m) <- [(W.view, 0), (W.shift, shiftMask)] ] -myKeybindingsP :: [(String, X())] -myKeybindingsP = [ - ("<XF86MonBrightnessUp>", spawn backlightUp) - , ("<XF86MonBrightnessDown>", spawn backlightDown) - , ("<XF86AudioRaiseVolume>", spawn volUp) - , ("<XF86AudioLowerVolume>", spawn volDown) - , ("<XF86AudioMute>", spawn volMute) - , ("<XF86AudioPlay>", spawn pausePlay) - , ("<XF86AudioPause>", spawn pausePlay) - , ("<Pause>", spawn pausePlay) +myKeybindingsQWERTYP :: [(String, X())] +myKeybindingsQWERTYP = [ -- actions -- TODO: add reboot, shutdown, logout, copy, cut, paste - , ("M-a w", spawn wifiOff) + ("M-a w", spawn wifiOff) , ("M-a S-w", spawn wifiOn) , ("M-a s", spawn customScreenshot) , ("M-a S-s", spawn fullScreenshot) @@ -261,4 +265,4 @@ myKeybindingsP = [ , ("M-q S-j", sendMessage $ ShrinkFrom D) , ("M-q S-k", sendMessage $ ShrinkFrom U) , ("M-q S-l", sendMessage $ ShrinkFrom R) - ] + ] ++ myFnKeybindingsP |