diff options
| author | Spencer Janssen <sjanssen@cse.unl.edu> | 2007-12-22 06:04:39 +0100 |
|---|---|---|
| committer | Spencer Janssen <sjanssen@cse.unl.edu> | 2007-12-22 06:04:39 +0100 |
| commit | 0a99440e52d872287b1add151c2608f089c45c5c (patch) | |
| tree | c6a40d4bac13964240a59f2162f22856cdb21004 /XMonad/Actions/FocusNth.hs | |
| parent | ec481040cf268fac8f527a7946e3ca92de09278d (diff) | |
| download | XMonadContrib-0a99440e52d872287b1add151c2608f089c45c5c.tar.gz XMonadContrib-0a99440e52d872287b1add151c2608f089c45c5c.tar.xz XMonadContrib-0a99440e52d872287b1add151c2608f089c45c5c.zip | |
No more tabs
darcs-hash:20071222050439-a5988-7eb14f0e316b41ace318d1e4b92d15aaa3808c4d.gz
Diffstat (limited to 'XMonad/Actions/FocusNth.hs')
| -rw-r--r-- | XMonad/Actions/FocusNth.hs | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/XMonad/Actions/FocusNth.hs b/XMonad/Actions/FocusNth.hs index 8c140cd..af70dc7 100644 --- a/XMonad/Actions/FocusNth.hs +++ b/XMonad/Actions/FocusNth.hs @@ -38,12 +38,13 @@ focusNth :: Int -> X () focusNth = windows . modify' . focusNth' focusNth' :: Int -> Stack a -> Stack a -focusNth' n s@(Stack _ ls rs) | (n < 0) || (n > length(ls) + length(rs)) = s - | otherwise = listToStack n (integrate s) +focusNth' n s@(Stack _ ls rs) | (n < 0) || (n > length(ls) + length(rs)) = s + | otherwise = listToStack n (integrate s) listToStack :: Int -> [a] -> Stack a listToStack n l = Stack t ls rs - where (t:rs) = drop n l - ls = reverse (take n l) + where + (t:rs) = drop n l + ls = reverse (take n l) |