aboutsummaryrefslogtreecommitdiffstats
path: root/Dishes.hs
diff options
context:
space:
mode:
Diffstat (limited to '')
-rw-r--r--Dishes.hs22
1 files changed, 11 insertions, 11 deletions
diff --git a/Dishes.hs b/Dishes.hs
index faacd31..25534ef 100644
--- a/Dishes.hs
+++ b/Dishes.hs
@@ -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