diff options
Diffstat (limited to 'TwoPane.hs')
-rw-r--r-- | TwoPane.hs | 61 |
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 - |