diff options
| author | Alec Berryman <alec@thened.net> | 2007-07-04 22:12:55 +0200 |
|---|---|---|
| committer | Alec Berryman <alec@thened.net> | 2007-07-04 22:12:55 +0200 |
| commit | d527881597824ea31832240e02801ad1f45f0672 (patch) | |
| tree | 0ca095ec27e43e37e8be97b1c94fca6141244f0b /SimpleStacking.hs | |
| parent | f2d7599286c1468633b74ecbda52771da6250e5d (diff) | |
| download | XMonadContrib-d527881597824ea31832240e02801ad1f45f0672.tar.gz XMonadContrib-d527881597824ea31832240e02801ad1f45f0672.tar.xz XMonadContrib-d527881597824ea31832240e02801ad1f45f0672.zip | |
SimpleStacking: -Wall police
darcs-hash:20070704201255-39448-8a8434bf1caadfe6209addce81f2519f1b1dcbde.gz
Diffstat (limited to 'SimpleStacking.hs')
| -rw-r--r-- | SimpleStacking.hs | 8 |
1 files changed, 3 insertions, 5 deletions
diff --git a/SimpleStacking.hs b/SimpleStacking.hs index e689d98..927d287 100644 --- a/SimpleStacking.hs +++ b/SimpleStacking.hs @@ -19,12 +19,10 @@ module XMonadContrib.SimpleStacking ( simpleStacking ) where -import Control.Monad.State ( get ) -import qualified Data.Map as M import Data.Maybe ( catMaybes ) -import Data.List ( nub, lookup, delete ) -import StackSet ( focus, tag, workspace, current, up, down ) +import Data.List ( nub, lookup ) +import StackSet ( focus, up, down ) import Graphics.X11.Xlib ( Window ) import XMonad @@ -39,7 +37,7 @@ simpleStacking = simpleStacking' [] simpleStacking' :: [Window] -> Layout Window -> Layout Window simpleStacking' st = layoutModify dl idModMod - where dl r s wrs = let m = map (\ (w,rr) -> (w,(w,rr))) wrs + where dl _ s wrs = let m = map (\ (w,rr) -> (w,(w,rr))) wrs wrs' = catMaybes $ map ((flip lookup) m) $ nub (focus s : st ++ map fst wrs) st' = focus s:filter (`elem` (up s++down s)) st |