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

-Wall police

Browse Source
This commit is contained in:
Spencer Janssen
2007-06-04 21:15:31 +00:00
parent 68b2859aa2
commit 2a6d6d4ed7
1 changed files with 8 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
StackSet.hs
View File

@@ -273,19 +273,22 @@ index = with [] integrate
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'
focusUp' (Node t (l:ls) rs) = Node l ls (t:rs)
focusUp' (Node t [] rs) = Node x xs [] where (x:xs) = reverse (t:rs)
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)
focusUp', swapUp' :: Stack a -> Stack a
focusUp' (Node t (l:ls) rs) = Node l ls (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) []
swapDown = modify Empty (reverseStack . swapUp' . reverseStack)
-- 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 (Node t ls rs) = Node t rs ls reverseStack (Node t ls rs) = Node t rs ls
reverseStack x = x reverseStack x = x