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

Simplify focusUp/Down

Browse Source
This commit is contained in:
Spencer Janssen
2007-06-04 18:22:28 +00:00
parent fc70307325
commit 89a31eaf52
1 changed files with 2 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
StackSet.hs
View File

@@ -272,14 +272,12 @@ 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 $ \c -> case c of focusUp = modify Empty $ \c -> case c of
Node _ [] [] -> c
Node t (l:ls) rs -> Node l ls (t:rs) Node t (l:ls) rs -> Node l ls (t:rs)
Node t [] rs -> Node x (xs ++ [t]) [] where (x:xs) = reverse rs Node t [] rs -> Node x xs [] where (x:xs) = reverse (t:rs)
focusDown = modify Empty $ \c -> case c of focusDown = modify Empty $ \c -> case c of
Node _ [] [] -> c
Node t ls (r:rs) -> Node r (t:ls) rs Node t ls (r:rs) -> Node r (t:ls) rs
Node t ls [] -> Node x [] (xs ++ [t]) where (x:xs) = reverse ls Node t ls [] -> Node x [] xs where (x:xs) = reverse (t:ls)
swapUp = modify Empty $ \c -> case c of swapUp = modify Empty $ \c -> case c of
Node _ [] [] -> c Node _ [] [] -> c