twin/xmonad-contrib
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad-contrib.git synced 2025-08-20 22:43:48 -07:00
Code Issues Packages Projects Releases Wiki Activity

SimpleStacking: -Wall police

Browse Source
This commit is contained in:
Alec Berryman
2007-07-04 20:12:55 +00:00
parent ede271f28b
commit 9db3764864
1 changed files with 3 additions and 5 deletions

8
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