twin/xmonad-contrib
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad-contrib.git synced 2025-05-19 11:30:22 -07:00
Code Issues Packages Projects Releases Wiki Activity

shiftPrevScreen and shiftNextScreen, to make CycleWS consistent

Browse Source
This commit is contained in:
mail 2007-12-31 17:16:09 +00:00
parent a0dde418ad
commit 35c5c1eaf0
1 changed files with 20 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
XMonad/Actions/CycleWS.hs
View File

@ -23,7 +23,9 @@ module XMonad.Actions.CycleWS (
shiftToPrev, shiftToPrev,
toggleWS, toggleWS,
nextScreen, nextScreen,
prevScreen prevScreen,
shiftNextScreen,
shiftPrevScreen
) where ) where
import Data.List ( findIndex ) import Data.List ( findIndex )
@ -44,6 +46,8 @@ import XMonad.Util.WorkspaceCompare
-- > , ((modMask x .|. shiftMask, xK_Up), shiftToPrev) -- > , ((modMask x .|. shiftMask, xK_Up), shiftToPrev)
-- > , ((modMask x, xK_Right), nextScreen) -- > , ((modMask x, xK_Right), nextScreen)
-- > , ((modMask x, xK_Left), prevScreen) -- > , ((modMask x, xK_Left), prevScreen)
-- > , ((modMask x .|. shiftMask, xK_Right), shiftNextScreen)
-- > , ((modMask x .|. shiftMask, xK_Left), shiftPrevScreen)
-- > , ((modMask x, xK_t), toggleWS) -- > , ((modMask x, xK_t), toggleWS)
-- --
-- If you want to follow the moved window, you can use both actions: -- If you want to follow the moved window, you can use both actions:
@ -113,3 +117,18 @@ screenBy d = do ws <- gets windowset
--let ss = sortBy screen (screens ws) --let ss = sortBy screen (screens ws)
let now = screen (current ws) let now = screen (current ws)
return $ (now + fromIntegral d) `mod` fromIntegral (length (screens ws)) return $ (now + fromIntegral d) `mod` fromIntegral (length (screens ws))
-- | Move focused window to workspace on next screen
shiftNextScreen :: X ()
shiftNextScreen = shiftScreenBy 1
-- | Move focused window to workspace on prev screen
shiftPrevScreen :: X ()
shiftPrevScreen = shiftScreenBy (-1)
shiftScreenBy :: Int -> X ()
shiftScreenBy d = do s <- screenBy d
mws <- screenWorkspace s
case mws of
Nothing -> return ()
Just ws -> windows (shift ws)