diff options
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')) |