diff options
| -rw-r--r-- | xmonad.hs | 61 |
1 files changed, 30 insertions, 31 deletions
@@ -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)) |