From 4866f2e367dfcf22a9591231ba40948826a1b438 Mon Sep 17 00:00:00 2001 From: Spencer Janssen Date: Thu, 1 Nov 2007 21:10:59 +0100 Subject: Hierarchify darcs-hash:20071101201059-a5988-fc1f1262bec1b69e13ba18ae7cefeafc8c4471d4.gz --- TilePrime.hs | 104 ----------------------------------------------------------- 1 file changed, 104 deletions(-) delete mode 100644 TilePrime.hs (limited to 'TilePrime.hs') diff --git a/TilePrime.hs b/TilePrime.hs deleted file mode 100644 index c939d81..0000000 --- a/TilePrime.hs +++ /dev/null @@ -1,104 +0,0 @@ -{-# LANGUAGE MultiParamTypeClasses, TypeSynonymInstances #-} --- -------------------------------------------------------------------------- --- -- | --- -- Module : TilePrime.hs --- -- Copyright : (c) Eric Mertens 2007 --- -- License : BSD3-style (see LICENSE) --- -- --- -- Maintainer : emertens@gmail.com --- -- Stability : unstable --- -- Portability : not portable --- -- --- -- TilePrime. Tile windows filling gaps created by resize hints --- -- --- ----------------------------------------------------------------------------- --- - -module XMonadContrib.TilePrime ( - -- * Usage - -- $usage - TilePrime(TilePrime) - ) where - -import Control.Monad (mplus) -import Data.List (mapAccumL) -import Graphics.X11.Xlib -import Graphics.X11.Xlib.Extras (getWMNormalHints) -import XMonad.Operations -import XMonad hiding (trace) -import qualified XMonad.StackSet as W -import {-#SOURCE#-} Config (borderWidth) - --- $usage --- You can use this module with the following in your Config.hs file: --- --- > import XMonadContrib.TilePrime --- --- and add the following line to your 'layouts' --- --- > , Layout $ TilePrime nmaster delta ratio False --- --- Use True as the last argument to get a wide layout. - --- %import XMonadContrib.TilePrime --- %layout , Layout $ TilePrime nmaster delta ratio False - -data TilePrime a = TilePrime - { nmaster :: Int - , delta, frac :: Rational - , flipped :: Bool - } deriving (Show, Read) - -instance LayoutClass TilePrime Window where - description c | flipped c = "TilePrime Horizontal" - | otherwise = "TilePrime Vertical" - - pureMessage c m = fmap resize (fromMessage m) `mplus` - fmap incmastern (fromMessage m) - where - resize Shrink = c { frac = max 0 $ frac c - delta c } - resize Expand = c { frac = min 1 $ frac c + delta c } - incmastern (IncMasterN d) = c { nmaster = max 0 $ nmaster c + d } - - doLayout TilePrime { frac = f, nmaster = m, flipped = flp } rect s = do - let xs = W.integrate s - hints <- withDisplay $ \ disp -> io (mapM (getWMNormalHints disp) xs) - let xs' = zip xs hints - (leftXs, rightXs) = splitAt m xs' - (leftRect, rightRect) - | null rightXs = (rect, Rectangle 0 0 0 0) - | null leftXs = (Rectangle 0 0 0 0, rect) - | flp = splitVerticallyBy f rect - | otherwise = splitHorizontallyBy f rect - masters = fillWindows leftRect leftXs - slaves = fillWindows rightRect rightXs - return (masters ++ slaves, Nothing) - - where - fillWindows r xs = snd $ mapAccumL aux (r,n) xs - where n = fromIntegral (length xs) :: Rational - - aux (r,n) (x,hint) = ((rest,n-1),(x,r')) - where - (allocated, _) | flp = splitHorizontallyBy (recip n) r - | otherwise = splitVerticallyBy (recip n) r - - (w,h) = applySizeHints hint `underBorders` rect_D allocated - - r' = r { rect_width = w, rect_height = h } - - rest | flp = r { rect_x = rect_x r + toEnum (fromEnum w) - , rect_width = rect_width r - w } - | otherwise = r { rect_y = rect_y r + toEnum (fromEnum h) - , rect_height = rect_height r - h } - -rect_D :: Rectangle -> D -rect_D Rectangle { rect_width = w, rect_height = h } = (w,h) - --- | Transform a function on dimensions into one without regard for borders -underBorders :: (D -> D) -> D -> D -underBorders f = adjBorders 1 . f . adjBorders (-1) - --- | Modify dimensions by a multiple of the current borders -adjBorders :: Dimension -> D -> D -adjBorders mult (w,h) = (w+2*mult*borderWidth, h+2*mult*borderWidth) -- cgit v1.2.3