aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
Diffstat (limited to '')
-rw-r--r--Dishes.hs50
1 files changed, 50 insertions, 0 deletions
diff --git a/Dishes.hs b/Dishes.hs
new file mode 100644
index 0000000..418bd6c
--- /dev/null
+++ b/Dishes.hs
@@ -0,0 +1,50 @@
+-----------------------------------------------------------------------------
+-- |
+-- Module : XMonadContrib.Dishes
+-- Copyright : (c) Jeremy Apthorp
+-- License : BSD-style (see LICENSE)
+--
+-- Maintainer : Jeremy Apthorp <nornagon@gmail.com>
+-- Stability : unstable
+-- Portability : portable
+--
+-- Dishes is a layout that stacks extra windows underneath the master
+-- windows.
+--
+-----------------------------------------------------------------------------
+
+module XMonadContrib.Dishes (
+ -- * Usage
+ -- $usage
+ Dishes (..)
+ ) where
+
+import Data.List
+import XMonad
+import Operations
+import StackSet (integrate)
+import Control.Monad (ap)
+import Graphics.X11.Xlib
+
+-- $usage
+-- You can use this module with the following in your Config.hs file:
+--
+-- > import XMonadContrib.Dishes
+
+-- %import XMonadContrib.Dishes
+
+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
+ handleMessage (Dishes nmaster h) m = return $ 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