diff options
author | Don Stewart <dons@cse.unsw.edu.au> | 2007-06-05 02:07:23 +0200 |
---|---|---|
committer | Don Stewart <dons@cse.unsw.edu.au> | 2007-06-05 02:07:23 +0200 |
commit | bbbcee4b66f40ef1b7dab16dc11805659c46bd83 (patch) | |
tree | 23eba1caad54ff479bf0a89107876dea7ba819e9 /StackSet.hs | |
parent | 0f52073515ff69ef715ebf993c6c4d9efd741c98 (diff) | |
download | xmonad-bbbcee4b66f40ef1b7dab16dc11805659c46bd83.tar.gz xmonad-bbbcee4b66f40ef1b7dab16dc11805659c46bd83.tar.xz xmonad-bbbcee4b66f40ef1b7dab16dc11805659c46bd83.zip |
whitespace only
darcs-hash:20070605000723-9c5c1-f05c7c0ca57a21e02137e595a061f01db7d2442a.gz
Diffstat (limited to 'StackSet.hs')
-rw-r--r-- | StackSet.hs | 15 |
1 files changed, 7 insertions, 8 deletions
diff --git a/StackSet.hs b/StackSet.hs index e6af069..34e6b10 100644 --- a/StackSet.hs +++ b/StackSet.hs @@ -271,21 +271,18 @@ index = with [] integrate -- the current stack. -- 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) -swapUp = modify Empty swapUp' - -swapDown = modify Empty (reverseStack . swapUp' . reverseStack) +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 [] rs) = Node t (reverse rs) [] +swapUp' (Node t (l:ls) rs) = Node t ls (l:rs) +swapUp' (Node t [] rs) = Node t (reverse rs) [] -- reverse a stack: up becomes down and down becomes up. reverseStack :: Stack a -> Stack a @@ -376,6 +373,8 @@ delete w s | Just w == peek s = remove s -- common case. Node _ [] [] -> Empty 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 -- A floating window should already be managed by the StackSet. float :: Ord a => a -> RationalRect -> StackSet i a s -> StackSet i a s |