aboutsummaryrefslogtreecommitdiff
path: root/.config/XMonad/lib/Keybindings.hs
diff options
context:
space:
mode:
authorVidhu Kant Sharma <vidhukant@vidhukant.xyz>2023-05-19 22:59:27 +0530
committerVidhu Kant Sharma <vidhukant@vidhukant.xyz>2023-05-19 22:59:27 +0530
commit5179ef861abdf38382dffe2f37874a1766e93540 (patch)
tree48460a615e04f16529bf03e7c04450a577fadc84 /.config/XMonad/lib/Keybindings.hs
parent8e541c652bb86bbf4b3cb7de744d700db142c0d7 (diff)
starting thunderbird and keepass on specific workspaces
Diffstat (limited to '.config/XMonad/lib/Keybindings.hs')
-rw-r--r--.config/XMonad/lib/Keybindings.hs6
1 files changed, 3 insertions, 3 deletions
diff --git a/.config/XMonad/lib/Keybindings.hs b/.config/XMonad/lib/Keybindings.hs
index dac9ce7..ee91379 100644
--- a/.config/XMonad/lib/Keybindings.hs
+++ b/.config/XMonad/lib/Keybindings.hs
@@ -135,14 +135,14 @@ myKeybindings = [
| (key,ws) <- myExtraWorkspaces
] ++ [ -- to swap workspace
((myModShiftMask', k), windows $ swapWithCurrent i)
- | (i, k) <- zip myWorkspaces [xK_1, xK_2, xK_3, xK_4, xK_5, xK_6, xK_7, xK_8, xK_9, xK_0]
+ | (i, k) <- zip myWorkspaces [xK_1, xK_2, xK_3, xK_4, xK_5, xK_6, xK_7, xK_8, xK_9, xK_0] -- ++ map fst myExtraWorkspaces
] ++ [ -- copy
((m .|. myModMask, k), windows $ f i)
- | (i, k) <- zip myWorkspaces [xK_1, xK_2, xK_3, xK_4, xK_5, xK_6, xK_7, xK_8, xK_9, xK_0]
+ | (i, k) <- zip myWorkspaces [xK_1, xK_2, xK_3, xK_4, xK_5, xK_6, xK_7, xK_8, xK_9, xK_0] -- ++ map fst myExtraWorkspaces
, (f, m) <- [(copy, myModShiftMask')]
] ++ [ -- for not swapping tags while using multihead
((m .|. myModMask, k), windows $ f i)
- | (i, k) <- zip myWorkspaces [xK_1, xK_2, xK_3, xK_4, xK_5, xK_6, xK_7, xK_8, xK_9, xK_0]
+ | (i, k) <- zip myWorkspaces [xK_1, xK_2, xK_3, xK_4, xK_5, xK_6, xK_7, xK_8, xK_9, xK_0] -- ++ map fst myExtraWorkspaces
, (f, m) <- [(W.view, 0), (W.shift, shiftMask)]
] ++ [ -- directly focus monitors instead of cycling
((m .|. myModMask, key), screenWorkspace sc >>= flip whenJust (windows . f))