diff options
| -rw-r--r-- | xmonad.hs | 19 |
1 files changed, 12 insertions, 7 deletions
@@ -16,9 +16,11 @@ import XMonad.Util.ClickableWorkspaces import XMonad.Util.EZConfig import XMonad.Util.NamedScratchpad +import XMonad.Layout.BoringWindows hiding (Replace) import XMonad.Layout.Renamed import XMonad.Layout.Spacing import XMonad.Layout.ThreeColumns +import XMonad.Layout.ToggleLayouts import LaNinpreConfig @@ -41,13 +43,14 @@ myKeys = [ ("M-<Return>", spawn myTerminal) , ("M-S-c", kill) , ("M-<Space>", sendMessage NextLayout) + , ("M-f", sendMessage ToggleLayout) , ("M-h", sendMessage Shrink) , ("M-l", sendMessage Expand) - , ("M-j", windows W.focusDown) - , ("M-k", windows W.focusUp) - , ("M-S-j", windows W.swapDown) - , ("M-S-k", windows W.swapUp) - , ("M-m", windows W.focusMaster) + , ("M-j", focusDown) + , ("M-k", focusUp) + , ("M-S-j", swapDown) + , ("M-S-k", swapUp) + , ("M-m", focusMaster) , ("M-S-m", windows W.swapMaster) , ("M-t", withFocused $ windows . W.sink) , ("M-S-t", sinkAll) @@ -88,7 +91,9 @@ mySB :: StatusBarConfig mySB = statusBarProp "xmobar" $ clickablePP $ filterOutWsPP [scratchpadWorkspaceTag] myXmobarPP -myLayout = tiled ||| threeCol ||| full +myLayout = boringWindows + $ toggleLayouts full + $ tiled ||| threeCol where tiled = renamed [Replace "lawa"] $ spacingWithEdge space $ Tall nmaster delta ratio @@ -106,7 +111,7 @@ myConfig = def , layoutHook = myLayout , manageHook = myManageHook <+> namedScratchpadManageHook myScratchPads , workspaces = myWorkspaces - , borderWidth = myBorderWidth + , borderWidth = myBorderWidth , keys = const M.empty -- discard default keybindings , normalBorderColor = col_bg def , focusedBorderColor = col_bg_alt def |