From aa67cb623d8639519d19d96086aeda8eea8975fc Mon Sep 17 00:00:00 2001 From: Vidhu Kant Sharma Date: Wed, 18 Nov 2020 17:20:38 +0530 Subject: added some BSP layout keybindings --- xmonad.hs | 18 +++++++++++++++++- 1 file changed, 17 insertions(+), 1 deletion(-) 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 -- cgit v1.2.3