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

whitespace only

Browse Source
This commit is contained in:
Don Stewart
2007-06-05 00:07:23 +00:00
parent b22ebceb80
commit d3632eb8fe
1 changed files with 7 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

15
StackSet.hs
View File

@@ -271,21 +271,18 @@ index = with [] integrate
-- the current stack. -- the current stack.
-- --
focusUp, focusDown, swapUp, swapDown :: StackSet i a s -> StackSet i a s focusUp, focusDown, swapUp, swapDown :: StackSet i a s -> StackSet i a s
focusUp = modify Empty focusUp' focusUp = modify Empty focusUp'
focusDown = modify Empty (reverseStack . focusUp' . reverseStack) focusDown = modify Empty (reverseStack . focusUp' . reverseStack)
swapUp = modify Empty swapUp' swapUp = modify Empty swapUp'
swapDown = modify Empty (reverseStack . swapUp' . reverseStack)
swapDown = modify Empty (reverseStack . swapUp' . reverseStack)
focusUp', swapUp' :: Stack a -> Stack a focusUp', swapUp' :: Stack a -> Stack a
focusUp' (Node t (l:ls) rs) = Node l ls (t:rs) focusUp' (Node t (l:ls) rs) = Node l ls (t:rs)
focusUp' (Node t [] rs) = Node x xs [] where (x:xs) = reverse (t:rs) focusUp' (Node t [] rs) = Node x xs [] where (x:xs) = reverse (t:rs)
swapUp' (Node t (l:ls) rs) = Node t ls (l:rs) swapUp' (Node t (l:ls) rs) = Node t ls (l:rs)
swapUp' (Node t [] rs) = Node t (reverse rs) [] swapUp' (Node t [] rs) = Node t (reverse rs) []
-- reverse a stack: up becomes down and down becomes up. -- reverse a stack: up becomes down and down becomes up.
reverseStack :: Stack a -> Stack a reverseStack :: Stack a -> Stack a
@@ -376,6 +373,8 @@ delete w s | Just w == peek s = remove s -- common case.
Node _ [] [] -> Empty Node _ [] [] -> Empty
else c { up = w `L.delete` up c, down = w `L.delete` down c } else c { up = w `L.delete` up c, down = w `L.delete` down c }
------------------------------------------------------------------------
-- | Given a window, and its preferred rectangle, set it as floating -- | Given a window, and its preferred rectangle, set it as floating
-- A floating window should already be managed by the StackSet. -- A floating window should already be managed by the StackSet.
float :: Ord a => a -> RationalRect -> StackSet i a s -> StackSet i a s float :: Ord a => a -> RationalRect -> StackSet i a s -> StackSet i a s