diff options
author | Spencer Janssen <sjanssen@cse.unl.edu> | 2007-11-01 10:02:37 +0100 |
---|---|---|
committer | Spencer Janssen <sjanssen@cse.unl.edu> | 2007-11-01 10:02:37 +0100 |
commit | 56f4ed7d9529117d83c71fc93a8c74d70d677267 (patch) | |
tree | 69a7c302dd7ed16c501f88cf89b55229497561c6 | |
parent | 48b25ee26b49ef33dc0858ce4b8afaa25ae951db (diff) | |
download | XMonadContrib-56f4ed7d9529117d83c71fc93a8c74d70d677267.tar.gz XMonadContrib-56f4ed7d9529117d83c71fc93a8c74d70d677267.tar.xz XMonadContrib-56f4ed7d9529117d83c71fc93a8c74d70d677267.zip |
Dishes: tabs
darcs-hash:20071101090237-a5988-871bbf591648e95be1c60d95ec41ebe730f9bd28.gz
Diffstat (limited to '')
-rw-r--r-- | Dishes.hs | 22 |
1 files changed, 11 insertions, 11 deletions
@@ -17,7 +17,7 @@ module XMonadContrib.Dishes ( -- * Usage - -- $usage + -- $usage Dishes (..) ) where @@ -42,16 +42,16 @@ import Graphics.X11.Xlib data Dishes a = Dishes Int Rational deriving (Show, Read) instance LayoutClass Dishes a where - doLayout (Dishes nmaster h) r = - return . (\x->(x,Nothing)) . - ap zip (dishes h r nmaster . length) . integrate - pureMessage (Dishes nmaster h) m = fmap incmastern (fromMessage m) - where incmastern (IncMasterN d) = Dishes (max 0 (nmaster+d)) h + doLayout (Dishes nmaster h) r = + return . (\x->(x,Nothing)) . + ap zip (dishes h r nmaster . length) . integrate + pureMessage (Dishes nmaster h) m = fmap incmastern (fromMessage m) + where incmastern (IncMasterN d) = Dishes (max 0 (nmaster+d)) h dishes :: Rational -> Rectangle -> Int -> Int -> [Rectangle] dishes h s nmaster n = if n <= nmaster - then splitHorizontally n s - else ws - where - (m,rest) = splitVerticallyBy (1 - (fromIntegral $ n - nmaster) * h) s - ws = splitHorizontally nmaster m ++ splitVertically (n - nmaster) rest + then splitHorizontally n s + else ws + where + (m,rest) = splitVerticallyBy (1 - (fromIntegral $ n - nmaster) * h) s + ws = splitHorizontally nmaster m ++ splitVertically (n - nmaster) rest |