twin/xmonad
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad.git synced 2025-08-17 12:53:48 -07:00
Code Issues Packages Projects Releases Wiki Activity

basic xinerama support (depends on Graphics.X11.Xinerama in X11-extras)

Browse Source
This commit is contained in:
Jason Creighton
2007-03-17 23:49:04 +00:00
parent 397cdbda0e
commit bb43b2ad6f
3 changed files with 47 additions and 19 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
StackSet.hs
View File

@@ -61,6 +61,10 @@ empty n = StackSet { current = 0
member :: Ord a => a -> StackSet a -> Bool
member a w = M.member a (cache w)
-- | /O(log n)/. Looks up the stack that x is in, if it is in the StackSet
lookup :: (Monad m, Ord a) => a -> StackSet a -> m Int
lookup x w = M.lookup x (cache w)
-- | /O(n)/. Number of stacks
size :: StackSet a -> Int
size = M.size . stacks