diff options
| author | MikunoNaka <bokuwakanojogahoshii@yahoo.com> | 2021-07-02 13:09:41 +0530 |
|---|---|---|
| committer | MikunoNaka <bokuwakanojogahoshii@yahoo.com> | 2021-07-02 13:09:41 +0530 |
| commit | 6b60b2bc107ec9e1de8d37b2232f55f476adc8b0 (patch) | |
| tree | 3416c6f7f27cafe977fc941d92329fc294ed90f5 /.config/XMonad/xmonad.hs | |
| parent | 427954bf1b91cf6f0e9836f4d0287214811f9da8 (diff) | |
fixed window copying, workspace swapping not working on last WS
Diffstat (limited to '.config/XMonad/xmonad.hs')
| -rw-r--r-- | .config/XMonad/xmonad.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/.config/XMonad/xmonad.hs b/.config/XMonad/xmonad.hs index c07282d..1189620 100644 --- a/.config/XMonad/xmonad.hs +++ b/.config/XMonad/xmonad.hs @@ -246,17 +246,17 @@ main = do | (key,ws) <- myExtraWorkspaces ] ++ [ -- to swap workspaces ((mod1Mask .|. shiftMask, k), windows $ swapWithCurrent i) - | (i, k) <- zip myWorkspaces [xK_1 ..] + | (i, k) <- zip myWorkspaces [xK_1, xK_2, xK_3, xK_4, xK_5, xK_6, xK_7, xK_8, xK_9, xK_0] ] ++ [ -- copy ((m .|. myModMask, k), windows $ f i) - | (i, k) <- zip (myWorkspaces) [xK_1 ..] + | (i, k) <- zip (myWorkspaces) [xK_1, xK_2, xK_3, xK_4, xK_5, xK_6, xK_7, xK_8, xK_9, xK_0] , (f, m) <- [(copy, shiftMask .|. altMask)] ] ++ [ -- sticky-ing windows ((myModMask, xK_v), windows copyToAll) -- make window visible on all screens , ((myModMask .|. shiftMask, xK_v), killAllOtherCopies) ] ++ [ -- for not swapping tags while using multihead ((m .|. myModMask, k), windows $ f i) - | (i, k) <- zip myWorkspaces [xK_1 .. xK_9] + | (i, k) <- zip myWorkspaces [xK_1, xK_2, xK_3, xK_4, xK_5, xK_6, xK_7, xK_8, xK_9, xK_0] , (f, m) <- [(W.view, 0), (W.shift, shiftMask)] ] -- ++ [ -- focus different monitors -- ((m .|. myModMask, key), screenWorkspace sc >>= flip whenJust (windows . f)) |