aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorla-ninpre <leobrekalini@gmail.com>2022-06-17 16:40:06 +0300
committerla-ninpre <leobrekalini@gmail.com>2022-06-17 16:40:06 +0300
commit56f0af375898219bef475d218f553a9bf26646fe (patch)
tree323782e2bd9683caf24fa7b1a54f7e9ac3bd60d9
parentff8b92e597a292452831d2155fa452a8c89c38b6 (diff)
downloadxmonad-config-56f0af375898219bef475d218f553a9bf26646fe.tar.gz
xmonad-config-56f0af375898219bef475d218f553a9bf26646fe.zip
add toggle layouts and boring windows
-rw-r--r--xmonad.hs19
1 files changed, 12 insertions, 7 deletions
diff --git a/xmonad.hs b/xmonad.hs
index 7a21753..8179a96 100644
--- a/xmonad.hs
+++ b/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 @@ 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