twin/xmonad
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad.git synced 2025-08-31 02:43:47 -07:00
Code Issues Packages Projects Releases Wiki Activity

Deobfuscate Tall layout

Browse Source
This commit is contained in:
Eric Mertens
2007-10-18 23:13:29 +00:00
parent 1ea1c05617
commit 156a89b761
1 changed files with 3 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
Operations.hs
View File

@@ -439,9 +439,9 @@ instance LayoutClass Full a
data Tall a = Tall Int Rational Rational deriving (Show, Read)
instance LayoutClass Tall a where
doLayout (Tall nmaster _ frac) r =
return . (flip (,) Nothing) .
ap zip (tile frac r nmaster . length) . W.integrate
pureLayout (Tall nmaster _ frac) r s = zip ws rs
where ws = W.integrate s
rs = tile frac r nmaster (length ws)
pureMessage (Tall nmaster delta frac) m = msum [fmap resize (fromMessage m)
,fmap incmastern (fromMessage m)]