diff options
| author | Spencer Janssen <sjanssen@cse.unl.edu> | 2007-10-02 20:56:04 +0200 |
|---|---|---|
| committer | Spencer Janssen <sjanssen@cse.unl.edu> | 2007-10-02 20:56:04 +0200 |
| commit | 7c1d1059d2626927bbc553f0efccb0b472fa569f (patch) | |
| tree | 475bcadf7874765fb3e5eab5ef875d8a8b333989 /SimpleStacking.hs | |
| parent | a4353f3924bf17dbce0422c928c8ac01d0b2e6ac (diff) | |
| download | XMonadContrib-7c1d1059d2626927bbc553f0efccb0b472fa569f.tar.gz XMonadContrib-7c1d1059d2626927bbc553f0efccb0b472fa569f.tar.xz XMonadContrib-7c1d1059d2626927bbc553f0efccb0b472fa569f.zip | |
SimpleStacking is deprecated
darcs-hash:20071002185604-a5988-eff481e81d24863e5edb8fd5450a5d3235c60bcd.gz
Diffstat (limited to 'SimpleStacking.hs')
| -rw-r--r-- | SimpleStacking.hs | 44 |
1 files changed, 0 insertions, 44 deletions
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 <droundy@darcs.net> --- License : BSD-style (see LICENSE) --- --- Maintainer : David Roundy <droundy@darcs.net> --- 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')) |