diff options
author | Jamie Webb <gentoo-haskell@vcs.intern> | 2007-10-03 03:08:49 +0200 |
---|---|---|
committer | Jamie Webb <gentoo-haskell@vcs.intern> | 2007-10-03 03:08:49 +0200 |
commit | 2f5252ad19893c0c06508b7e957b3bf65df43436 (patch) | |
tree | 38fdb34cc3b52bc0396a3bca69305cab8624dc5e | |
parent | 897a7213b02a495459dc4d8268b792da2562a506 (diff) | |
download | XMonadContrib-2f5252ad19893c0c06508b7e957b3bf65df43436.tar.gz XMonadContrib-2f5252ad19893c0c06508b7e957b3bf65df43436.tar.xz XMonadContrib-2f5252ad19893c0c06508b7e957b3bf65df43436.zip |
Layout -> LayoutClass for ResizableTile and MosaicAlt
darcs-hash:20071003010849-74a73-1c9c06b44245497b9c64e19776eef5a29b63e998.gz
-rw-r--r-- | MosaicAlt.hs | 2 | ||||
-rw-r--r-- | ResizableTile.hs | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/MosaicAlt.hs b/MosaicAlt.hs index 07c0f3d..715fbf0 100644 --- a/MosaicAlt.hs +++ b/MosaicAlt.hs @@ -66,7 +66,7 @@ resetAlt = ResetAlt type Areas = M.Map Window Rational data MosaicAlt a = MosaicAlt Areas deriving ( Show, Read ) -instance Layout MosaicAlt Window where +instance LayoutClass MosaicAlt Window where description _ = "MosaicAlt" doLayout (MosaicAlt areas) rect stack = return (arrange rect stack areas', Just $ MosaicAlt areas') diff --git a/ResizableTile.hs b/ResizableTile.hs index 77ec8fd..6d9a1d8 100644 --- a/ResizableTile.hs +++ b/ResizableTile.hs @@ -40,7 +40,7 @@ data MirrorResize = MirrorShrink | MirrorExpand deriving Typeable instance Message MirrorResize data Tall a = Tall Int Rational Rational [Rational] deriving (Show, Read) -instance Layout Tall a where +instance LayoutClass Tall a where doLayout (Tall nmaster _ frac mfrac) r = return . (\x->(x,Nothing)) . ap zip (tile frac (mfrac ++ repeat 1) r nmaster . length) . W.integrate |