diff options
-rw-r--r-- | xmonad.hs | 62 |
1 files changed, 56 insertions, 6 deletions
@@ -3,7 +3,9 @@ import qualified XMonad.StackSet as W -- actions import XMonad.Actions.CycleWS (moveTo, shiftTo, WSType(..), nextScreen, prevScreen) -import XMonad.Actions.CopyWindow (kill1, killAllOtherCopies) +import XMonad.Actions.CopyWindow (kill1) +import XMonad.Actions.CycleWS +import XMonad.Actions.Navigation2D -- layouts modifiers import XMonad.Layout.Spacing @@ -11,8 +13,17 @@ import XMonad.Layout.LayoutModifier -- import XMonad.Layout.Gaps -- import XMonad.Layout.ShowWName +-- Layouts +import XMonad.Layout.GridVariants (Grid(Grid)) +import XMonad.Layout.SimplestFloat +import XMonad.Layout.Spiral +import XMonad.Layout.ResizableTile +import XMonad.Layout.Tabbed +import XMonad.Layout.ThreeColumns + -- utilities import XMonad.Util.SpawnOnce +import XMonad.Util.EZConfig (additionalKeys) myStartupHook :: X () @@ -74,9 +85,49 @@ mySpacing i j = spacingRaw False (Border i i i i) True (Border j j j j) True $ -- keybindings - -myKeys = [("modMask-<Return>", spawn (myTerminal))] - +notMyKeys = [ -- removed keybindings + (mod4Mask, xK_Return) + ] + + +myKeys = [ + ((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), + + -- move to prev/next workspaces + ((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), + + ((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), + + -- 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), + + -- cycle through windows + ((mod1Mask, xK_j), windows W.focusDown), + ((mod1Mask, xK_k), windows W.focusUp) + + ] -- ~keybindings~ @@ -90,7 +141,6 @@ main = do workspaces = myWorkspaces, normalBorderColor = nBorder, focusedBorderColor = fBorder, - keys = myKeys, -- mouseBindings = myMouseBindings, -- hooks, layouts @@ -99,5 +149,5 @@ main = do --handleEventHook = myEventHook, --logHook = myLogHook, startupHook = myStartupHook -} +} `additionalKeys` myKeys |