From 5179ef861abdf38382dffe2f37874a1766e93540 Mon Sep 17 00:00:00 2001 From: Vidhu Kant Sharma Date: Fri, 19 May 2023 22:59:27 +0530 Subject: starting thunderbird and keepass on specific workspaces --- .config/XMonad/lib/Hooks.hs | 6 ++++-- .config/XMonad/lib/Keybindings.hs | 6 +++--- 2 files changed, 7 insertions(+), 5 deletions(-) diff --git a/.config/XMonad/lib/Hooks.hs b/.config/XMonad/lib/Hooks.hs index bc5b209..7e969df 100644 --- a/.config/XMonad/lib/Hooks.hs +++ b/.config/XMonad/lib/Hooks.hs @@ -24,8 +24,10 @@ import Scratchpads myManageHook = namedScratchpadManageHook myScratchpads <+> manageDocks <+> composeAll [ - className =? "discord" --> doShift ( myWorkspaces !! 9 ) - , isFullscreen --> doFullFloat + className =? "discord" --> doShift ( myWorkspaces !! 9 ) + , className =? "Mail" --> doShift ( myWorkspaces !! 8 ) + , className =? "KeePassXC" --> doShift ( myWorkspaces !! 7 ) + , isFullscreen --> doFullFloat ] --myLayoutHook = avoidStruts $ maximize $ windowNavigation $ smartBorders $ myGap $ 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)) -- cgit v1.2.3