From 1f698321d7f067682dfb7499bfc488d66cbdf9f6 Mon Sep 17 00:00:00 2001
From: Spencer Janssen <sjanssen@cse.unl.edu>
Date: Thu, 1 Nov 2007 09:02:37 +0000
Subject: [PATCH] Dishes: tabs
---
Dishes.hs | 22 +++++++++++-----------
1 file changed, 11 insertions(+), 11 deletions(-)
diff --git a/Dishes.hs b/Dishes.hs
index faacd314..25534ef5 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