From 90d49b19c695e86c1e74d3719bbad3e78a5f584a Mon Sep 17 00:00:00 2001
From: "tim.thelion" <tim.thelion@gmail.com>
Date: Sun, 5 Aug 2007 01:57:30 +0200
Subject: rolodex
Cascading windows...
darcs-hash:20070804235730-c18d4-861e52378ba8a3a46382b797993b096b665b3b70.gz
---
Roledex.hs | 62 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
1 file changed, 62 insertions(+)
create mode 100644 Roledex.hs
diff --git a/Roledex.hs b/Roledex.hs
new file mode 100644
index 0000000..8dd5422
--- /dev/null
+++ b/Roledex.hs
@@ -0,0 +1,62 @@
+-----------------------------------------------------------------------------
+-- |
+-- Module : XMonadContrib.Roledex
+-- Copyright : (c) tim.thelion@gmail.com
+-- License : BSD Because this is dirived from Accordian which is licenced that way.
+-- The maintainer of Accordian is glasser@mit.edu
+--
+-- Maintainer : tim.thelion@gmail.com
+-- Stability : unstable
+-- Portability : unportable
+--
+-- Screenshot : www.timthelion.com/rolodex.png
+-- This is a compleatly pointless layout which acts like Microsoft's Flip 3D
+-----------------------------------------------------------------------------
+
+module XMonadContrib.Roledex (
+ -- * Usage
+ -- $usage
+ roledex) where
+
+import XMonad
+import Operations
+import qualified StackSet as W
+import Graphics.X11.Xlib
+import Data.Ratio
+import XMonadContrib.LayoutHelpers ( idModify )
+
+-- $usage
+-- > import XMonadContrib.Roledex
+-- > defaultLayouts = [ roledex ]
+
+roledex :: Eq a => Layout a
+roledex = Layout { doLayout = roledexLayout, modifyLayout = idModify }
+
+roledexLayout :: Eq a => Rectangle -> W.Stack a -> X ([(a, Rectangle)], Maybe (Layout 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) $ fst (splitVerticallyBy (2% 3) 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' _ 0 = 0
+div' n o = div n o
--
cgit v1.2.3