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

make rotView only consider non-visible workspaces (Xinerama)

Browse Source
This commit is contained in:
Jason Creighton 2007-05-10 01:20:59 +00:00
parent f8a5f1fd2b
commit 40f8d611f2
1 changed files with 13 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
RotView.hs
View File

@ -12,21 +12,24 @@ import qualified Data.Map as M
import Control.Monad.State
import Operations ( view )
import XMonad ( X, WorkspaceId, workspace )
import StackSet ( StackSet, focus )
import qualified StackSet as W ( current )
import XMonad ( X, WorkspaceId, workspace, whenJust )
import StackSet ( StackSet )
import Data.Maybe ( listToMaybe )
import qualified StackSet as W ( stacks, current, visibleWorkspaces, index )
rotView :: Bool -> X ()
rotView b = do ws <- gets workspace
let m = W.current ws
vis = W.visibleWorkspaces ws
allws = if b then allWorkspaces ws else reverse $ allWorkspaces ws
n1 = safehead allws m
rot (f:fs) | f == m = safehead fs n1
| otherwise = rot fs
rot [] = n1
safehead fs f = case fs of { [] -> f; f':_ -> f'; }
view (rot allws)
pivoted = uncurry (flip (++)) . span (/=m) $ allws
interesting i = not (i `elem` vis) && not (isEmpty i ws)
nextws = listToMaybe . filter interesting $ pivoted
whenJust nextws view
-- | A list of all the workspaces.
allWorkspaces :: StackSet WorkspaceId j a -> [WorkspaceId]
allWorkspaces = M.keys . focus
allWorkspaces = M.keys . W.stacks
isEmpty :: WorkspaceId -> StackSet WorkspaceId j a -> Bool
isEmpty i = maybe True null . W.index i