Hierarchify

darcs-hash:20071101201059-a5988-fc1f1262bec1b69e13ba18ae7cefeafc8c4471d4.gz

1 files changed, 0 insertions, 70 deletions

diff --git a/Roledex.hs b/Roledex.hs
deleted file mode 100644
index 66c58ba..0000000
--- a/Roledex.hs
+++ /dev/null
@@ -1,70 +0,0 @@
-{-# LANGUAGE FlexibleInstances, MultiParamTypeClasses, TypeSynonymInstances #-}
-
------------------------------------------------------------------------------
--- |
--- Module      :  XMonadContrib.Roledex
--- Copyright   :  (c) tim.thelion@gmail.com
--- License     :  BSD
---
--- Maintainer  :  tim.thelion@gmail.com
--- Stability   :  unstable
--- Portability :  unportable
---
--- Screenshot  :  <http://www.timthelion.com/rolodex.png>
---
--- This is a completely pointless layout which acts like Microsoft's Flip 3D
------------------------------------------------------------------------------
-
-module XMonadContrib.Roledex (
-    -- * Usage
-    -- $usage
-    Roledex(Roledex)) where
-
-import XMonad
-import XMonad.Layouts
-import qualified XMonad.StackSet as W
-import Graphics.X11.Xlib
-import Data.Ratio
-
--- $usage
---
--- > import XMonadContrib.Roledex 
--- > layouts = [ Layout Roledex ]
-
--- %import XMonadContrib.Roledex
--- %layout , Layout Roledex
-
-data Roledex a = Roledex deriving ( Show, Read )
-
-instance LayoutClass Roledex Window where
-    doLayout _ = roledexLayout
-
-roledexLayout :: Eq a => Rectangle -> W.Stack a -> X ([(a, Rectangle)], Maybe (Roledex a))
-roledexLayout sc ws = return ([(W.focus ws, mainPane)] ++
-                              (zip ups tops) ++
-                              (reverse (zip dns bottoms))
-                               ,Nothing)
- where ups    = W.up ws
-       dns    = W.down ws
-       c = length ups + length dns
-       rect = fst $ splitHorizontallyBy (2%3 :: Ratio Int) $ fst (splitVerticallyBy (2%3 :: Ratio Int) sc) 
-       gw = div' (w - rw) (fromIntegral c) 
-            where
-            (Rectangle _ _ w _) = sc
-            (Rectangle _ _ rw _) = rect
-       gh = div' (h - rh) (fromIntegral c)
-            where
-            (Rectangle _ _ _ h) = sc
-            (Rectangle _ _ _ rh) = rect
-       mainPane = mrect (gw * fromIntegral c) (gh * fromIntegral c) rect 
-       mrect  mx my (Rectangle x y w h) = Rectangle (x + (fromIntegral mx)) (y + (fromIntegral my)) w h
-       tops    = map f $ cd c (length dns)
-       bottoms = map f $ [0..(length dns)]
-       f n = mrect (gw * (fromIntegral n)) (gh * (fromIntegral n)) rect
-       cd n m = if n > m 
-                then (n - 1) : (cd (n-1) m)
-                else []
-
-div' :: Integral a => a -> a -> a
-div' _ 0 = 0
-div' n o = div n o