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

Add integrate

Browse Source
This commit is contained in:
Spencer Janssen
2007-06-04 06:25:01 +00:00
parent 77da6e4c72
commit cad36baa19
1 changed files with 8 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
StackSet.hs
View File

@@ -76,7 +76,7 @@
-- --
module StackSet ( module StackSet (
StackSet(..), Workspace(..), Screen(..), Stack(..), RationalRect(..), StackSet(..), Workspace(..), Screen(..), Stack(..), RationalRect(..),
new, view, lookupWorkspace, peek, index, focusUp, focusDown, new, view, lookupWorkspace, peek, index, integrate, focusUp, focusDown,
focusWindow, member, findIndex, insertUp, delete, shift, focusWindow, member, findIndex, insertUp, delete, shift,
swapMaster, swapUp, swapDown, modify, float, sink -- needed by users swapMaster, swapUp, swapDown, modify, float, sink -- needed by users
) where ) where
@@ -243,6 +243,13 @@ modify d f s = s { current = (current s)
peek :: StackSet i a s -> Maybe a peek :: StackSet i a s -> Maybe a
peek = with Nothing (return . focus) peek = with Nothing (return . focus)
--
-- /O(n)/. Flatten a Stack into a list.
--
integrate :: Stack a -> [a]
integrate Empty = []
integrate (Node x l r) = reverse l ++ x : r
-- --
-- /O(s)/. Extract the stack on the current workspace, as a list. -- /O(s)/. Extract the stack on the current workspace, as a list.
-- The order of the stack is determined by the master window -- it will be -- The order of the stack is determined by the master window -- it will be