twin/xmonad
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad.git synced 2025-09-03 04:03: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) data Tall a = Tall Int Rational Rational deriving (Show, Read)
instance LayoutClass Tall a where instance LayoutClass Tall a where
doLayout (Tall nmaster _ frac) r = pureLayout (Tall nmaster _ frac) r s = zip ws rs
return . (flip (,) Nothing) . where ws = W.integrate s
ap zip (tile frac r nmaster . length) . W.integrate rs = tile frac r nmaster (length ws)
pureMessage (Tall nmaster delta frac) m = msum [fmap resize (fromMessage m) pureMessage (Tall nmaster delta frac) m = msum [fmap resize (fromMessage m)
,fmap incmastern (fromMessage m)] ,fmap incmastern (fromMessage m)]