diff options
author | Spencer Janssen <sjanssen@cse.unl.edu> | 2007-11-01 21:10:59 +0100 |
---|---|---|
committer | Spencer Janssen <sjanssen@cse.unl.edu> | 2007-11-01 21:10:59 +0100 |
commit | 4866f2e367dfcf22a9591231ba40948826a1b438 (patch) | |
tree | 7a245caee3f146826b267d773b7eaa80386a818e /ThreeColumns.hs | |
parent | 47589e1913fb9530481caedb543978a30d4323ea (diff) | |
download | XMonadContrib-4866f2e367dfcf22a9591231ba40948826a1b438.tar.gz XMonadContrib-4866f2e367dfcf22a9591231ba40948826a1b438.tar.xz XMonadContrib-4866f2e367dfcf22a9591231ba40948826a1b438.zip |
Hierarchify
darcs-hash:20071101201059-a5988-fc1f1262bec1b69e13ba18ae7cefeafc8c4471d4.gz
Diffstat (limited to 'ThreeColumns.hs')
-rw-r--r-- | ThreeColumns.hs | 80 |
1 files changed, 0 insertions, 80 deletions
diff --git a/ThreeColumns.hs b/ThreeColumns.hs deleted file mode 100644 index 9b10cc4..0000000 --- a/ThreeColumns.hs +++ /dev/null @@ -1,80 +0,0 @@ -{-# LANGUAGE FlexibleInstances, MultiParamTypeClasses #-} - ------------------------------------------------------------------------------ --- | --- Module : XMonadContrib.ThreeColumns --- Copyright : (c) Kai Grossjohann <kai@emptydomain.de> --- License : BSD3-style (see LICENSE) --- --- Maintainer : ? --- Stability : unstable --- Portability : unportable --- --- A layout similar to tall but with three columns. --- ------------------------------------------------------------------------------ - -module XMonadContrib.ThreeColumns ( - -- * Usage - -- $usage - ThreeCol(..) - ) where - -import XMonad -import qualified XMonad.StackSet as W -import XMonad.Layouts ( Resize(..), IncMasterN(..), splitVertically, splitHorizontallyBy ) - -import Data.Ratio - ---import Control.Monad.State -import Control.Monad.Reader - -import Graphics.X11.Xlib - --- $usage --- --- You can use this module with the following in your Config.hs file: --- --- > import XMonadContrib.ThreeColumns --- --- and add, to the list of layouts: --- --- > ThreeCol nmaster delta ratio - --- %import XMonadContrib.ThreeColumns --- %layout , ThreeCol nmaster delta ratio - -data ThreeCol a = ThreeCol Int Rational Rational deriving (Show,Read) - -instance LayoutClass ThreeCol a where - doLayout (ThreeCol nmaster _ frac) r = - return . (\x->(x,Nothing)) . - ap zip (tile3 frac r nmaster . length) . W.integrate - handleMessage (ThreeCol nmaster delta frac) m = - return $ msum [fmap resize (fromMessage m) - ,fmap incmastern (fromMessage m)] - where resize Shrink = ThreeCol nmaster delta (max 0 $ frac-delta) - resize Expand = ThreeCol nmaster delta (min 1 $ frac+delta) - incmastern (IncMasterN d) = ThreeCol (max 0 (nmaster+d)) delta frac - description _ = "ThreeCol" - --- | tile3. Compute window positions using 3 panes -tile3 :: Rational -> Rectangle -> Int -> Int -> [Rectangle] -tile3 f r nmaster n - | n <= nmaster || nmaster == 0 = splitVertically n r - | n <= nmaster+1 = splitVertically nmaster s1 ++ splitVertically (n-nmaster) s2 - | otherwise = splitVertically nmaster r1 ++ splitVertically nmid r2 ++ splitVertically nright r3 - where (r1, r2, r3) = split3HorizontallyBy f r - (s1, s2) = splitHorizontallyBy f r - nslave = (n - nmaster) - nmid = ceiling (nslave % 2) - nright = (n - nmaster - nmid) - -split3HorizontallyBy :: Rational -> Rectangle -> (Rectangle, Rectangle, Rectangle) -split3HorizontallyBy f (Rectangle sx sy sw sh) = - ( Rectangle sx sy leftw sh - , Rectangle (sx + fromIntegral leftw) sy midw sh - , Rectangle (sx + fromIntegral leftw + fromIntegral midw) sy rightw sh ) - where leftw = ceiling $ fromIntegral sw * (2/3) * f - midw = ceiling ( (sw - leftw) % 2 ) - rightw = sw - leftw - midw |