aboutsummaryrefslogtreecommitdiffstats
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
commit00162a010b046de6a5ab06911c232dfad8f6a75c (patch)
tree60e0c8b137a3ee9e056dba3c381c428935c950e3
parente801c4695a9580070c6b1a937273b867efa4bd2f (diff)
downloadxmonad-00162a010b046de6a5ab06911c232dfad8f6a75c.tar.gz
xmonad-00162a010b046de6a5ab06911c232dfad8f6a75c.tar.xz
xmonad-00162a010b046de6a5ab06911c232dfad8f6a75c.zip
Reimplement Mirror with runLayout
darcs-hash:20080225083236-32816-2299823153ad1a7cb5ba27ab541f793f7015392f.gz
-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.