aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--xmonad.hs61
1 files changed, 30 insertions, 31 deletions
diff --git a/xmonad.hs b/xmonad.hs
index d11e63ae..03e4ba6b 100644
--- a/xmonad.hs
+++ b/xmonad.hs
@@ -105,60 +105,59 @@ windowGaps i j = spacingRaw False (Border i i i i) True (Border j j j j) True $
myKeys = [
- ((mod4Mask, xK_Return), spawn myTerminal),
- ((mod1Mask, xK_w), kill1),
- ((mod1Mask .|. shiftMask, xK_k), kill1),
- ((mod4Mask, xK_p), spawnOnce "run_dmenu"),
+ ((mod4Mask, xK_Return), spawn myTerminal)
+ , ((mod1Mask, xK_w), kill1)
+ , ((mod1Mask .|. shiftMask, xK_k), kill1)
-- view prev/next workspaces
- ((mod1Mask, xK_h), prevWS),
- ((mod1Mask, xK_l), nextWS),
+ , ((mod1Mask, xK_h), prevWS)
+ , ((mod1Mask, xK_l), nextWS)
-- move to prev/next workspaces
- ((mod1Mask .|. shiftMask, xK_h), shiftToPrev >> prevWS),
- ((mod1Mask .|. shiftMask, xK_l), shiftToNext >> nextWS),
+ , ((mod1Mask .|. shiftMask, xK_h), shiftToPrev >> prevWS)
+ , ((mod1Mask .|. shiftMask, xK_l), shiftToNext >> nextWS)
-- modify gaps on runtime
- ((mod1Mask, xK_equal), incWindowSpacing 1),
- ((mod1Mask, xK_minus), decWindowSpacing 1),
- ((mod1Mask .|. shiftMask, xK_equal), incScreenSpacing 1),
- ((mod1Mask .|. shiftMask, xK_minus), decScreenSpacing 1),
+ , ((mod1Mask, xK_equal), incWindowSpacing 1)
+ , ((mod1Mask, xK_minus), decWindowSpacing 1)
+ , ((mod1Mask .|. shiftMask, xK_equal), incScreenSpacing 1)
+ , ((mod1Mask .|. shiftMask, xK_minus), decScreenSpacing 1)
- ((mod4Mask .|. shiftMask, xK_Return), windows W.swapMaster), -- Swap the focused window and the master window
+ , ((mod4Mask .|. shiftMask, xK_Return), windows W.swapMaster) -- Swap the focused window and the master window
-- directional navigation of windows
- ((mod4Mask, xK_l), windowGo R False),
- ((mod4Mask, xK_h), windowGo L False),
- ((mod4Mask, xK_k), windowGo U False),
- ((mod4Mask, xK_j), windowGo D False),
+ , ((mod4Mask, xK_l), windowGo R False)
+ , ((mod4Mask, xK_h), windowGo L False)
+ , ((mod4Mask, xK_k), windowGo U False)
+ , ((mod4Mask, xK_j), windowGo D False)
-- swap adjacent windows
- ((mod4Mask .|. shiftMask, xK_l), windowSwap R False),
- ((mod4Mask .|. shiftMask, xK_h), windowSwap L False),
- ((mod4Mask .|. shiftMask, xK_k), windowSwap U False),
- ((mod4Mask .|. shiftMask, xK_j), windowSwap D False),
+ , ((mod4Mask .|. shiftMask, xK_l), windowSwap R False)
+ , ((mod4Mask .|. shiftMask, xK_h), windowSwap L False)
+ , ((mod4Mask .|. shiftMask, xK_k), windowSwap U False)
+ , ((mod4Mask .|. shiftMask, xK_j), windowSwap D False)
-- cycle through windows
- ((mod1Mask, xK_j), windows W.focusDown),
- ((mod1Mask, xK_k), windows W.focusUp),
+ , ((mod1Mask, xK_j), windows W.focusDown)
+ , ((mod1Mask, xK_k), windows W.focusUp)
-- grid select
- ((mod1Mask, xK_n), goToSelected defaultGSConfig),
+ , ((mod1Mask, xK_n), goToSelected defaultGSConfig)
-- windowbringer
- ((mod1Mask, xK_b), bringMenu),
- ((mod1Mask, xK_g), gotoMenu),
+ , ((mod1Mask, xK_b), bringMenu)
+ , ((mod1Mask, xK_g), gotoMenu)
-- paste x selection
- ((0, xK_Insert), pasteSelection),
+ , ((0, xK_Insert), pasteSelection)
-- toggle layouts
- ((mod4Mask, xK_t ), cycleThroughLayouts ["Grid", "Mirror Tall"]),
+ , ((mod4Mask, xK_t ), cycleThroughLayouts ["Grid", "Mirror Tall"])
-- toggle bars
- ((mod1Mask, xK_backslash), sendMessage ToggleStruts), -- toggle both bars
- ((mod1Mask, xK_bracketleft), sendMessage $ ToggleStrut D), -- toggle bottom bar
- ((mod1Mask, xK_bracketright), sendMessage $ ToggleStrut U) -- toggle top bar
+ , ((mod1Mask, xK_backslash), sendMessage ToggleStruts) -- toggle both bars
+ , ((mod1Mask, xK_bracketleft), sendMessage $ ToggleStrut D) -- toggle bottom bar
+ , ((mod1Mask, xK_bracketright), sendMessage $ ToggleStrut U) -- toggle top bar
] ++ [ -- for extra workspace(s)
((myModMask, key), (windows $ W.greedyView ws))