diff options
| -rw-r--r-- | XMonad/Layout/StackTile.hs | 64 | ||||
| -rw-r--r-- | xmonad-contrib.cabal | 1 |
2 files changed, 65 insertions, 0 deletions
diff --git a/XMonad/Layout/StackTile.hs b/XMonad/Layout/StackTile.hs new file mode 100644 index 0000000..b89cfa9 --- /dev/null +++ b/XMonad/Layout/StackTile.hs @@ -0,0 +1,64 @@ +{-# OPTIONS_GHC -fglasgow-exts #-} -- For deriving Data/Typeable +{-# LANGUAGE FlexibleInstances, GeneralizedNewtypeDeriving, MultiParamTypeClasses #-} + +----------------------------------------------------------------------------- +-- | +-- Module : XMonad.Layout.StackTile +-- Copyright : (c) Rickard Gustafsson <acura@allyourbase.se> +-- License : BSD-style (see LICENSE) +-- +-- Maintainer : Rickard Gustafsson <acura@allyourbase.se> +-- Stability : unstable +-- Portability : unportable +-- +-- A stacking layout, like dishes but with the ability to resize master pane. +-- Moastly usefull on small screens. +-- +----------------------------------------------------------------------------- + +module XMonad.Layout.StackTile ( + -- * Usage + -- $usage + StackTile(..) + ) where + +import XMonad hiding (tile) +import qualified XMonad.StackSet as W +import Control.Monad + +-- $usage +-- You can use this module with the following in your @~\/.xmonad\/xmonad.hs@: +-- +-- > import XMonad.Layout.StackTile +-- +-- Then edit your @layoutHook@ by adding the ResizableTile layout: +-- +-- > myLayouts = StackTile 1 (3/100) (1/2) [] ||| etc.. +-- > main = xmonad defaultConfig { layoutHook = myLayouts } +-- +-- For more detailed instructions on editing the layoutHook see: +-- +-- "XMonad.Doc.Extending#Editing_the_layout_hook" +-- +data StackTile a = StackTile !Int !Rational !Rational deriving (Show, Read) + +instance LayoutClass StackTile a where + pureLayout (StackTile nmaster _ frac) r s = zip ws rs + where ws = W.integrate s + rs = tile frac r nmaster (length ws) + + pureMessage (StackTile nmaster delta frac) m = + msum [fmap resize (fromMessage m) + ,fmap incmastern (fromMessage m)] + + where resize Shrink = StackTile nmaster delta (max 0 $ frac-delta) + resize Expand = StackTile nmaster delta (min 1 $ frac+delta) + incmastern (IncMasterN d) = StackTile (max 0 (nmaster+d)) delta frac + + description _ = "StackTile" + +tile :: Rational -> Rectangle -> Int -> Int -> [Rectangle] +tile f r nmaster n = if n <= nmaster || nmaster == 0 + then splitHorizontally n r + else splitHorizontally nmaster r1 ++ splitVertically (n-nmaster) r2 -- two columns + where (r1,r2) = splitVerticallyBy f r diff --git a/xmonad-contrib.cabal b/xmonad-contrib.cabal index 44c6a62..10371ec 100644 --- a/xmonad-contrib.cabal +++ b/xmonad-contrib.cabal @@ -153,6 +153,7 @@ library XMonad.Layout.Spiral XMonad.Layout.Square XMonad.Layout.ShowWName + XMonad.Layout.StackTile XMonad.Layout.Tabbed XMonad.Layout.TabBarDecoration XMonad.Layout.ThreeColumns |