aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorVidhu Kant Sharma <bokuwakanojogahoshii@yahoo.com>2020-11-18 17:20:38 +0530
committerVidhu Kant Sharma <bokuwakanojogahoshii@yahoo.com>2020-11-18 17:20:38 +0530
commitaa67cb623d8639519d19d96086aeda8eea8975fc (patch)
tree8128d63eabc5f85f1b9a667d3ca5ca99bd5b89a1
parentbd78222ad1017f5c9f446af2cbebc67a2336e4c6 (diff)
added some BSP layout keybindings
-rw-r--r--xmonad.hs18
1 files changed, 17 insertions, 1 deletions
diff --git a/xmonad.hs b/xmonad.hs
index d4795212..c47df6a8 100644
--- a/xmonad.hs
+++ b/xmonad.hs
@@ -24,7 +24,7 @@ import XMonad.Layout.WindowNavigation as WN
import XMonad.Layout.WindowArranger (windowArrange, WindowArrangerMsg(..))
-- Layouts
-import XMonad.Layout.BinarySpacePartition
+import XMonad.Layout.BinarySpacePartition as BSP
import XMonad.Layout.Grid
import XMonad.Layout.ThreeColumns
-- import XMonad.Layout.SimplestFloat
@@ -149,6 +149,22 @@ myKeys = [
, ((mod1Mask, xK_bracketleft), sendMessage $ ToggleStrut D) -- toggle bottom bar
, ((mod1Mask, xK_bracketright), sendMessage $ ToggleStrut U) -- toggle top bar
+ -- BSP layout keybindings
+ -- resize
+ , ((mod4Mask .|. mod1Mask, xK_l ), sendMessage $ ExpandTowards R)
+ , ((mod4Mask .|. mod1Mask, xK_h ), sendMessage $ ExpandTowards L)
+ , ((mod4Mask .|. mod1Mask, xK_j ), sendMessage $ ExpandTowards D)
+ , ((mod4Mask .|. mod1Mask, xK_k ), sendMessage $ ExpandTowards U)
+ , ((mod4Mask .|. mod1Mask .|. shiftMask , xK_l ), sendMessage $ ShrinkFrom R)
+ , ((mod4Mask .|. mod1Mask .|. shiftMask , xK_h ), sendMessage $ ShrinkFrom L)
+ , ((mod4Mask .|. mod1Mask .|. shiftMask , xK_j ), sendMessage $ ShrinkFrom D)
+ , ((mod4Mask .|. mod1Mask .|. shiftMask , xK_k ), sendMessage $ ShrinkFrom U)
+ -- other
+ , ((mod1Mask, xK_r ), sendMessage Rotate)
+ , ((mod1Mask, xK_s ), sendMessage BSP.Swap)
+-- , ((mod4Mask .|. shiftMask .|. controlMask , xK_j ), sendMessage $ SplitShift Prev)
+-- , ((mod4Mask .|. shiftMask .|. controlMask , xK_k ), sendMessage $ SplitShift Next)
+
] ++ [ -- for extra workspace(s)
((myModMask, key), (windows $ W.greedyView ws))
| (key,ws) <- myExtraWorkspaces