twin/xmonad
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad.git synced 2025-08-06 07:01:52 -07:00
Code Issues Packages Projects Releases Wiki Activity

swapUp/Down are also mirrored

Browse Source
This commit is contained in:
Spencer Janssen
2007-06-04 18:35:35 +00:00
parent 6b8e9570c2
commit 68a63688ad
1 changed files with 5 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
StackSet.hs
View File

@@ -278,13 +278,12 @@ 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 $ \c -> case c of swapUp = modify Empty swapUp'
Node t (l:ls) rs -> Node t ls (l:rs)
Node t [] rs -> Node t (reverse rs) []
swapDown = modify Empty $ \c -> case c of swapUp' (Node t (l:ls) rs) = Node t ls (l:rs)
Node t ls (r:rs) -> Node t (r:ls) rs swapUp' (Node t [] rs) = Node t (reverse rs) []
Node t ls [] -> Node t [] (reverse ls)
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 (Node t ls rs) = Node t rs ls reverseStack (Node t ls rs) = Node t rs ls