Hierarchify

darcs-hash:20071101201059-a5988-fc1f1262bec1b69e13ba18ae7cefeafc8c4471d4.gz

1 files changed, 0 insertions, 61 deletions

diff --git a/TwoPane.hs b/TwoPane.hs
deleted file mode 100644
index 2dc266f..0000000
--- a/TwoPane.hs
+++ /dev/null
@@ -1,61 +0,0 @@
-{-# LANGUAGE FlexibleInstances, MultiParamTypeClasses #-}
-
------------------------------------------------------------------------------
--- |
--- Module      :  XMonadContrib.TwoPane
--- Copyright   :  (c) Spencer Janssen <sjanssen@cse.unl.edu>
--- License     :  BSD3-style (see LICENSE)
--- 
--- Maintainer  :  Spencer Janssen <sjanssen@cse.unl.edu>
--- Stability   :  unstable
--- Portability :  unportable
---
--- A layout that splits the screen horizontally and shows two windows.  The
--- left window is always the master window, and the right is either the
--- currently focused window or the second window in layout order.
---
------------------------------------------------------------------------------
-
-module XMonadContrib.TwoPane (
-                              -- * Usage
-                              -- $usage
-                              TwoPane (..)
-                             ) where
-
-import XMonad
-import XMonad.Layouts ( Resize(..), splitHorizontallyBy )
-import XMonad.StackSet ( focus, up, down)
-
--- $usage
---
--- You can use this module with the following in your Config.hs file:
---
--- > import XMonadContrib.TwoPane
---
---  and add, to the list of layouts:
---
--- > , (Layout $ TwoPane 0.03 0.5)
-
--- %import XMonadContrib.TwoPane
--- %layout , (Layout $ TwoPane 0.03 0.5)
-
-data TwoPane a = 
-    TwoPane Rational Rational 
-    deriving ( Show, Read )
-
-instance LayoutClass TwoPane a where
-    doLayout (TwoPane _ split) r s = return (arrange r s,Nothing)
-        where
-          arrange rect st = case reverse (up st) of
-                              (master:_) -> [(master,left),(focus st,right)]
-                              [] -> case down st of
-                                      (next:_) -> [(focus st,left),(next,right)]
-                                      [] -> [(focus st, rect)]
-              where (left, right) = splitHorizontallyBy split rect
-
-    handleMessage (TwoPane delta split) x = 
-        return $ case fromMessage x of
-                   Just Shrink -> Just (TwoPane delta (split - delta))
-                   Just Expand -> Just (TwoPane delta (split + delta))
-                   _           -> Nothing
-