diff options
Diffstat (limited to '.config/XMonad/lib/Keybindings.hs')
| -rw-r--r-- | .config/XMonad/lib/Keybindings.hs | 125 |
1 files changed, 67 insertions, 58 deletions
diff --git a/.config/XMonad/lib/Keybindings.hs b/.config/XMonad/lib/Keybindings.hs index b92fc97..184e7f9 100644 --- a/.config/XMonad/lib/Keybindings.hs +++ b/.config/XMonad/lib/Keybindings.hs @@ -2,7 +2,6 @@ module Keybindings where import XMonad import qualified XMonad.StackSet as W -import XMonad.ManageHook import System.Exit import System.IO @@ -49,18 +48,26 @@ import XMonad.Util.NamedScratchpad import Defaults import Scratchpads - +myMouseKeybindings :: [((ButtonMask, Button), Window -> X ())] myMouseKeybindings = [ ((myModMask, 4), \w -> prevWS) , ((myModMask, 5), \w -> nextWS) ] +myKeybindings :: [((KeyMask, KeySym), X ())] myKeybindings = [ - ((myModMask, xK_Return), spawn ("open_terminal")) + ((myModMask, xK_Return), spawn myTerminal) , ((myModMask .|. shiftMask, xK_q), kill1) + -- scratchpads + , ((myModMask, xK_u), myScratchpad "Term 0") + , ((myModMask, xK_i), myScratchpad "Term 1") + , ((myModMask, xK_o), myScratchpad "Term 2") + , ((myModMask, xK_p), myScratchpad "Term 3") + + -- volume keys , ((myModMask, xK_equal), spawn volUp) - , ((myModMask, xK_minus), spawn volDown) + , ((myModMask, xK_minus), spawn volDown) , ((myModMask, xK_BackSpace), spawn volMute) -- brightness keys @@ -68,50 +75,55 @@ myKeybindings = [ , ((myModMask .|. shiftMask, xK_minus), spawn backlightDown) -- modify gaps on runtime - , ((myModMask, xK_F2), incWindowSpacing 1) - , ((myModMask, xK_F1), decWindowSpacing 1) + , ((myModMask, xK_F2), incWindowSpacing 1) + , ((myModMask, xK_F1), decWindowSpacing 1) , ((myModMask .|. shiftMask, xK_F2), incScreenSpacing 1) , ((myModMask .|. shiftMask, xK_F1), decScreenSpacing 1) -- view prev/next workspaces - , ((myModMask .|. shiftMask, xK_Tab), prevWS) - , ((myModMask, xK_Tab), nextWS) - , ((myModMask, xK_semicolon), prevWS) - , ((myModMask, xK_apostrophe), nextWS) - , ((altMask, xK_h), prevWS) - , ((altMask, xK_l), nextWS) + , ((myModMask .|. shiftMask, xK_Tab ), prevWS) + , ((myModMask, xK_Tab ), nextWS) + , ((myModMask, xK_semicolon ), prevWS) + , ((myModMask, xK_apostrophe), nextWS) + , ((myModMask', xK_h ), prevWS) + , ((myModMask', xK_l ), nextWS) -- move to prev/next workspaces - , ((altMask .|. shiftMask, xK_h), shiftToPrev >> prevWS) - , ((altMask .|. shiftMask, xK_l), shiftToNext >> nextWS) - , ((myModMask .|. shiftMask, xK_semicolon), shiftToPrev >> prevWS) - , ((myModMask .|. shiftMask, xK_apostrophe), shiftToNext >> nextWS) + , ((myModMask' .|. shiftMask, xK_h ), shiftToPrev >> prevWS) + , ((myModMask' .|. shiftMask, xK_l ), shiftToNext >> nextWS) + , ((myModMask .|. shiftMask, xK_semicolon ), shiftToPrev >> prevWS) + , ((myModMask .|. shiftMask, xK_apostrophe), shiftToNext >> nextWS) -- focus previous/next monitor - , ((myModMask, xK_bracketleft), prevScreen) - , ((myModMask, xK_bracketright), nextScreen) + , ((myModMask, xK_bracketleft ), prevScreen) + , ((myModMask, xK_bracketright), nextScreen) -- move window to previous/next monitor - , ((myModMask .|. shiftMask, xK_bracketleft), shiftPrevScreen >> prevScreen) - , ((myModMask .|. shiftMask, xK_bracketright), shiftNextScreen >> nextScreen) + , ((myModMask .|. shiftMask, xK_bracketleft ), shiftPrevScreen >> prevScreen) + , ((myModMask .|. shiftMask, xK_bracketright), shiftNextScreen >> nextScreen) -- swap different screens - , ((myModMask .|. controlMask, xK_bracketleft), swapPrevScreen) + , ((myModMask .|. controlMask, xK_bracketleft ), swapPrevScreen) , ((myModMask .|. controlMask, xK_bracketright), swapNextScreen) - , ((myModMask, xK_a), sendMessage ToggleStruts) -- toggle both bars - , ((myModMask, xK_f), withFocused (sendMessage . maximizeRestore)) -- toggle maximize - , ((myModMask .|. shiftMask, xK_f), withFocused $ windows . W.sink) -- unfloat windows + -- toggle both bars + , ((myModMask, xK_a), sendMessage ToggleStruts) + + -- toggle maximize + , ((myModMask, xK_f), withFocused (sendMessage . maximizeRestore)) + + -- unfloat windows + , ((myModMask .|. shiftMask, xK_f), withFocused $ windows . W.sink) -- cycle through windows - , ((altMask, xK_j), windows W.focusDown) - , ((altMask, xK_k), windows W.focusUp) + , ((myModMask', xK_j), windows W.focusDown) + , ((myModMask', xK_k), windows W.focusUp) -- 2D navigation - , ((myModMask, xK_l), sendMessage $ Go R) - , ((myModMask, xK_h), sendMessage $ Go L) - , ((myModMask, xK_k), sendMessage $ Go U) - , ((myModMask, xK_j), sendMessage $ Go D) + , ((myModMask, xK_l), sendMessage $ Go R) + , ((myModMask, xK_h), sendMessage $ Go L) + , ((myModMask, xK_k), sendMessage $ Go U) + , ((myModMask, xK_j), sendMessage $ Go D) -- swap windows , ((myModMask .|. shiftMask, xK_l), sendMessage $ WN.Swap R) @@ -120,51 +132,48 @@ myKeybindings = [ , ((myModMask .|. shiftMask, xK_j), sendMessage $ WN.Swap D) -- resize - , ((myModMask .|. mod1Mask, xK_l ), sendMessage $ ExpandTowards R) - , ((myModMask .|. mod1Mask, xK_h ), sendMessage $ ExpandTowards L) - , ((myModMask .|. mod1Mask, xK_j ), sendMessage $ ExpandTowards D) - , ((myModMask .|. mod1Mask, xK_k ), sendMessage $ ExpandTowards U) - , ((myModMask .|. mod1Mask .|. shiftMask , xK_l ), sendMessage $ ShrinkFrom R) - , ((myModMask .|. mod1Mask .|. shiftMask , xK_h ), sendMessage $ ShrinkFrom L) - , ((myModMask .|. mod1Mask .|. shiftMask , xK_j ), sendMessage $ ShrinkFrom D) - , ((myModMask .|. mod1Mask .|. shiftMask , xK_k ), sendMessage $ ShrinkFrom U) + , ((myModMask .|. mod1Mask, xK_l), sendMessage $ ExpandTowards R) + , ((myModMask .|. mod1Mask, xK_h), sendMessage $ ExpandTowards L) + , ((myModMask .|. mod1Mask, xK_j), sendMessage $ ExpandTowards D) + , ((myModMask .|. mod1Mask, xK_k), sendMessage $ ExpandTowards U) + , ((myModMask .|. mod1Mask .|. shiftMask, xK_l), sendMessage $ ShrinkFrom R) + , ((myModMask .|. mod1Mask .|. shiftMask, xK_h), sendMessage $ ShrinkFrom L) + , ((myModMask .|. mod1Mask .|. shiftMask, xK_j), sendMessage $ ShrinkFrom D) + , ((myModMask .|. mod1Mask .|. shiftMask, xK_k), sendMessage $ ShrinkFrom U) ] ++ [ -- for extra workspace(s) - ((myModMask, key), (windows $ W.greedyView ws)) + ((myModMask, key), windows $ W.greedyView ws) | (key,ws) <- myExtraWorkspaces ] ++ [ -- also for extra workspaces - ((myModMask .|. shiftMask, key), (windows $ W.shift ws)) + ((myModMask .|. shiftMask, key), windows $ W.shift ws) | (key,ws) <- myExtraWorkspaces ] ++ [ -- to swap workspace ((mod1Mask .|. shiftMask, k), windows $ swapWithCurrent i) | (i, k) <- zip myWorkspaces [xK_1, xK_2, xK_3, xK_4, xK_5, xK_6, xK_7, xK_8, xK_9, xK_0] ] ++ [ -- copy ((m .|. myModMask, k), windows $ f i) - | (i, k) <- zip (myWorkspaces) [xK_1, xK_2, xK_3, xK_4, xK_5, xK_6, xK_7, xK_8, xK_9, xK_0] - , (f, m) <- [(copy, shiftMask .|. altMask)] + | (i, k) <- zip myWorkspaces [xK_1, xK_2, xK_3, xK_4, xK_5, xK_6, xK_7, xK_8, xK_9, xK_0] + , (f, m) <- [(copy, shiftMask .|. myModMask')] ] ++ [ -- for not swapping tags while using multihead ((m .|. myModMask, k), windows $ f i) | (i, k) <- zip myWorkspaces [xK_1, xK_2, xK_3, xK_4, xK_5, xK_6, xK_7, xK_8, xK_9, xK_0] , (f, m) <- [(W.view, 0), (W.shift, shiftMask)] ] +myKeybindingsP :: [(String, X())] myKeybindingsP = [ -- fn keys - -- ("<XF86MonBrightnessUp>", spawn backlightUp) - -- , ("<XF86MonBrightnessDown>", spawn backlightDown) - -- , ("<XF86AudioRaiseVolume>", spawn volUp) - -- , ("<XF86AudioLowerVolume>", spawn volDown) - -- , ("<XF86AudioMute>", spawn volMute) - -- ("M-S-p", spawn "dmenu_run") + ("<XF86MonBrightnessUp>", spawn backlightUp) + , ("<XF86MonBrightnessDown>", spawn backlightDown) + , ("<XF86AudioRaiseVolume>", spawn volUp) + , ("<XF86AudioLowerVolume>", spawn volDown) + , ("<XF86AudioMute>", spawn volMute) + , ("M-S-p", spawn "dmenu_run") -- scratchpads - -- , ("M-r", namedScratchpadAction myScratchpads "Term 0") - -- , ("M-t", namedScratchpadAction myScratchpads "Term 1") - -- , ("M-y", namedScratchpadAction myScratchpads "Term 2") - -- , ("M-u", namedScratchpadAction myScratchpads "Term 3") - -- , ("M-m", namedScratchpadAction myScratchpads "BPYTOP") - -- , ("M-S-m", namedScratchpadAction myScratchpads "calc") - -- , ("M-n", namedScratchpadAction myScratchpads "pavucontrol") - -- , ("M-S-n", namedScratchpadAction myScratchpads "arandr") - -- , ("M-b", namedScratchpadAction myScratchpads "blueman") - -- , ("M-S-r", namedScratchpadAction myScratchpads "wallpaper") + , ("M-m", namedScratchpadAction myScratchpads "BPYTOP") + , ("M-S-m", namedScratchpadAction myScratchpads "calc") + , ("M-n", namedScratchpadAction myScratchpads "pavucontrol") + , ("M-S-n", namedScratchpadAction myScratchpads "arandr") + , ("M-b", namedScratchpadAction myScratchpads "blueman") + , ("M-S-r", namedScratchpadAction myScratchpads "wallpaper") ] |