add toggle layouts and boring windows
la-ninpre leobrekalini@gmail.com
Fri, 17 Jun 2022 16:40:06 +0300
1 files changed,
12 insertions(+),
7 deletions(-)
jump to
M
xmonad.hs
→
xmonad.hs
@@ -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 @@ , ("M-g g", mySpawnSelected myGsConfig myAppGrid)
, ("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 @@ , modMask = myModMask
, 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