From 7c1d1059d2626927bbc553f0efccb0b472fa569f Mon Sep 17 00:00:00 2001 From: Spencer Janssen Date: Tue, 2 Oct 2007 20:56:04 +0200 Subject: SimpleStacking is deprecated darcs-hash:20071002185604-a5988-eff481e81d24863e5edb8fd5450a5d3235c60bcd.gz --- SimpleStacking.hs | 44 -------------------------------------------- 1 file changed, 44 deletions(-) delete mode 100644 SimpleStacking.hs (limited to 'SimpleStacking.hs') diff --git a/SimpleStacking.hs b/SimpleStacking.hs deleted file mode 100644 index 927d287..0000000 --- a/SimpleStacking.hs +++ /dev/null @@ -1,44 +0,0 @@ -{-# OPTIONS -fglasgow-exts #-} ------------------------------------------------------------------------------ --- | --- Module : XMonadContrib.SimpleStacking --- Copyright : (c) David Roundy --- License : BSD-style (see LICENSE) --- --- Maintainer : David Roundy --- Stability : unstable --- Portability : unportable --- --- A module to be used to obtain a simple "memory" of stacking order. --- ------------------------------------------------------------------------------ - -module XMonadContrib.SimpleStacking ( - -- * Usage - -- $usage - simpleStacking - ) where - -import Data.Maybe ( catMaybes ) - -import Data.List ( nub, lookup ) -import StackSet ( focus, up, down ) -import Graphics.X11.Xlib ( Window ) - -import XMonad -import XMonadContrib.LayoutHelpers - --- $usage --- You can use this module for --- See, for instance, "XMonadContrib.Tabbed" - -simpleStacking :: Layout Window -> Layout Window -simpleStacking = simpleStacking' [] - -simpleStacking' :: [Window] -> Layout Window -> Layout Window -simpleStacking' st = layoutModify dl idModMod - 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 - in return (wrs', Just (simpleStacking' st')) -- cgit v1.2.3