summaryrefslogtreecommitdiffstats
path: root/XMonad
diff options
context:
space:
mode:
authorAndrea Rossato <andrea.rossato@unibz.it>2008-01-28 01:18:34 +0100
committerAndrea Rossato <andrea.rossato@unibz.it>2008-01-28 01:18:34 +0100
commit8f65f8773459f30a03857be213beb21368198322 (patch)
tree055e84ee1408b53397f55164d25c1e79692d2c90 /XMonad
parent4de74e322da3173e94b17412c4117575735de8d0 (diff)
downloadmetatile-8f65f8773459f30a03857be213beb21368198322.tar
metatile-8f65f8773459f30a03857be213beb21368198322.zip
Make Mirror implement emptyLayout
darcs-hash:20080128001834-32816-0216ea86f243e76d5918ea15c7d2306496878b7a
Diffstat (limited to 'XMonad')
-rw-r--r--XMonad/Layout.hs2
1 files changed, 2 insertions, 0 deletions
diff --git a/XMonad/Layout.hs b/XMonad/Layout.hs
index 981541c..94051b2 100644
--- a/XMonad/Layout.hs
+++ b/XMonad/Layout.hs
@@ -136,6 +136,8 @@ 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
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.