twin/xmonad
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad.git synced 2025-08-01 12:41:53 -07:00
Code Issues Packages Projects Releases Wiki Activity

Reimplement Mirror with runLayout

Browse Source
This commit is contained in:
Andrea Rossato
2008-02-25 08:32:36 +00:00
parent 5bea59a823
commit bc13b4ba07
1 changed files with 2 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
XMonad/Layout.hs
View File

@@ -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.