summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorAndrea Rossato <andrea.rossato@unibz.it>2008-02-25 09:32:36 +0100
committerAndrea Rossato <andrea.rossato@unibz.it>2008-02-25 09:32:36 +0100
commit8589b96d218dd569db509ce54d0161b86a4024d9 (patch)
tree60e0c8b137a3ee9e056dba3c381c428935c950e3
parentddf63c8370ed43c4380d78b13be77de4fa27ba6e (diff)
downloadmetatile-8589b96d218dd569db509ce54d0161b86a4024d9.tar
metatile-8589b96d218dd569db509ce54d0161b86a4024d9.zip
Reimplement Mirror with runLayout
darcs-hash:20080225083236-32816-2299823153ad1a7cb5ba27ab541f793f7015392f
-rw-r--r--XMonad/Layout.hs6
1 files changed, 2 insertions, 4 deletions
diff --git a/XMonad/Layout.hs b/XMonad/Layout.hs
index 91b8b32..a7f9acb 100644
--- a/XMonad/Layout.hs
+++ b/XMonad/Layout.hs
@@ -130,11 +130,9 @@ mirrorRect (Rectangle rx ry rw rh) = (Rectangle ry rx rh rw)
data Mirror l a = Mirror (l a) deriving (Show, Read)
instance LayoutClass l a => LayoutClass (Mirror l) a where
- doLayout (Mirror l) r s = (map (second mirrorRect) *** fmap Mirror)
- `fmap` doLayout l (mirrorRect r) s
+ runLayout (W.Workspace i (Mirror l) ms) r = (map (second mirrorRect) *** fmap Mirror)
+ `fmap` runLayout (W.Workspace i l ms) (mirrorRect r)
handleMessage (Mirror l) = fmap (fmap Mirror) . handleMessage l
- emptyLayout (Mirror l) r = (map (second mirrorRect) *** fmap Mirror)
- `fmap` emptyLayout l (mirrorRect r)
description (Mirror l) = "Mirror "++ description l
-- | tile. Compute the positions for windows using the default 2 pane tiling algorithm.