Hierarchify

darcs-hash:20071101201059-a5988-fc1f1262bec1b69e13ba18ae7cefeafc8c4471d4.gz

1 files changed, 0 insertions, 84 deletions

diff --git a/LayoutScreens.hs b/LayoutScreens.hs
deleted file mode 100644
index 10e1fc9..0000000
--- a/LayoutScreens.hs
+++ /dev/null
@@ -1,84 +0,0 @@
-{-# LANGUAGE FlexibleContexts, FlexibleInstances, MultiParamTypeClasses #-}
-
------------------------------------------------------------------------------
--- |
--- Module      :  XMonadContrib.LayoutScreens
--- Copyright   :  (c) David Roundy <droundy@darcs.net>
--- License     :  BSD3-style (see LICENSE)
---
--- Maintainer  :  David Roundy <droundy@darcs.net>
--- Stability   :  unstable
--- Portability :  unportable
---
------------------------------------------------------------------------------
-
-module XMonadContrib.LayoutScreens (
-                                    -- * Usage
-                                    -- $usage
-                                    layoutScreens, fixedLayout
-                                   ) where
-
-import Control.Monad.Reader ( asks )
-
-import XMonad
-import qualified XMonad.StackSet as W
-import qualified XMonad.Operations as O
-import Graphics.X11.Xlib
-import Graphics.X11.Xlib.Extras
-
--- $usage
--- This module allows you to pretend that you have more than one screen by
--- dividing a single screen into multiple screens that xmonad will treat as
--- separate screens.  This should definitely be useful for testing the
--- behavior of xmonad under Xinerama, and it's possible that it'd also be
--- handy for use as an actual user interface, if you've got a very large
--- screen and long for greater flexibility (e.g. being able to see your
--- email window at all times, a crude mimic of sticky windows).
---
--- You can use this module with the following in your Config.hs file:
--- 
--- > import XMonadContrib.LayoutScreens
---
--- >   , ((modMask .|. shiftMask, xK_space), layoutScreens 2 (TwoPane 0.5 0.5))
--- >   , ((controlMask .|. modMask .|. shiftMask, xK_space), rescreen)
---
--- Another example use would be to handle a scenario where xrandr didn't
--- work properly (e.g. a VNC X server in my case) and you want to be able
--- to resize your screen (e.g. to match the size of a remote VNC client):
--- 
--- > import XMonadContrib.LayoutScreens
---
--- >   , ((modMask .|. shiftMask, xK_space),
--- >        layoutScreens 1 (fixedLayout $ Rectangle 0 0 1024 768))
--- >   , ((controlMask .|. modMask .|. shiftMask, xK_space), rescreen)
-
--- %import XMonadContrib.LayoutScreens
--- %keybind , ((modMask .|. shiftMask, xK_space), layoutScreens 2 (twoPane 0.5 0.5))
--- %keybind , ((controlMask .|. modMask .|. shiftMask, xK_space), rescreen)
-
-layoutScreens :: LayoutClass l Int => Int -> l Int -> X ()
-layoutScreens nscr _ | nscr < 1 = trace $ "Can't layoutScreens with only " ++ show nscr ++ " screens."
-layoutScreens nscr l =
-    do rtrect <- asks theRoot >>= getWindowRectangle
-       (wss, _) <- doLayout l rtrect W.Stack { W.focus=1, W.up=[],W.down=[1..nscr-1] }
-       O.windows $ \ws@(W.StackSet { W.current = v, W.visible = vs, W.hidden = hs }) ->
-           let (x:xs, ys) = splitAt nscr $ map W.workspace (v:vs) ++ hs
-               gaps = map (statusGap . W.screenDetail) $ v:vs
-               (s:ss, g:gg) = (map snd wss, take nscr $ gaps ++ repeat (head gaps))
-           in  ws { W.current = W.Screen x 0 (SD s g)
-                  , W.visible = zipWith3 W.Screen xs [1 ..] $ zipWith SD ss gg
-                  , W.hidden  = ys }
-
-getWindowRectangle :: Window -> X Rectangle
-getWindowRectangle w = withDisplay $ \d ->
-    do a <- io $ getWindowAttributes d w
-       return $ Rectangle (fromIntegral $ wa_x a)     (fromIntegral $ wa_y a)
-                          (fromIntegral $ wa_width a) (fromIntegral $ wa_height a)
-
-data FixedLayout a = FixedLayout [Rectangle] deriving (Read,Show)
-
-instance LayoutClass FixedLayout a where
-    doLayout (FixedLayout rs) _ s = return (zip (W.integrate s) rs, Nothing)
-
-fixedLayout :: [Rectangle] -> FixedLayout a
-fixedLayout = FixedLayout