diff options
| author | Andrea Rossato <andrea.rossato@unibz.it> | 2008-02-25 09:32:36 +0100 |
|---|---|---|
| committer | Andrea Rossato <andrea.rossato@unibz.it> | 2008-02-25 09:32:36 +0100 |
| commit | 00162a010b046de6a5ab06911c232dfad8f6a75c (patch) | |
| tree | 60e0c8b137a3ee9e056dba3c381c428935c950e3 | |
| parent | e801c4695a9580070c6b1a937273b867efa4bd2f (diff) | |
| download | xmonad-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.hs | 6 |
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. |