diff options
Diffstat (limited to '')
-rw-r--r-- | MetaModule.hs | 1 | ||||
-rw-r--r-- | SimpleStacking.hs | 44 |
2 files changed, 0 insertions, 45 deletions
diff --git a/MetaModule.hs b/MetaModule.hs index d7f7440..7867b95 100644 --- a/MetaModule.hs +++ b/MetaModule.hs @@ -56,7 +56,6 @@ import XMonadContrib.SetWMName () -- XMonadContrib.ShellPrompt depends on readline --import XMonadContrib.ShellPrompt () import XMonadContrib.SimpleDate () -import XMonadContrib.SimpleStacking () import XMonadContrib.SinkAll () import XMonadContrib.Spiral () import XMonadContrib.Square () 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')) |