twin/xmonad-contrib
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad-contrib.git synced 2025-08-01 20:51:52 -07:00
Code Issues Packages Projects Releases Wiki Activity

X.U.PureX Add shiftWin

Browse Source
This commit is contained in:
sam-barr
2021-06-21 12:33:30 -04:00
committed by slotThe
parent e30269fe96
commit 640388942b
1 changed files with 11 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
XMonad/Util/PureX.hs
View File

@@ -46,7 +46,7 @@ module XMonad.Util.PureX (
getStack, putStack, peek, getStack, putStack, peek,
focusWindow, focusNth, focusWindow, focusNth,
view, greedyView, invisiView, view, greedyView, invisiView,
shift, curScreen, curWorkspace, shift, shiftWin, curScreen, curWorkspace,
curTag, curScreenId, curTag, curScreenId,
) where ) where
@@ -271,6 +271,16 @@ shift tag = withFocii $ \ctag fw ->
mfw' <- peek mfw' <- peek
return (Any $ Just fw /= mfw') return (Any $ Just fw /= mfw')
-- | A refresh tracking version of @W.shiftWin@.
shiftWin :: XLike m => WorkspaceId -> Window -> m Any
shiftWin tag w = do
mtag <- gets $ W.findTag w . windowset
whenJust' mtag $ \wtag ->
when' (tag /= wtag) $ do
modifyWindowSet' $ W.shiftWin tag w
ntag <- gets $ W.findTag w . windowset
return (Any $ mtag /= ntag)
-- | Internal. Refresh-tracking logic of focus operations. -- | Internal. Refresh-tracking logic of focus operations.
focusWith :: XLike m => (WindowSet -> WindowSet) -> m Any focusWith :: XLike m => (WindowSet -> WindowSet) -> m Any
focusWith focuser = do focusWith focuser = do