Initial tiling support.

darcs-hash:20070320071812-a5988-5f091f18a418d6aaf940b800530e0c6a7c4bc312

1 files changed, 6 insertions, 2 deletions

diff --git a/XMonad.hs b/XMonad.hs
index 0895999..f18460c 100644
--- a/XMonad.hs
+++ b/XMonad.hs
@@ -15,8 +15,8 @@
 --
 
 module XMonad (
-    X, WorkSpace, XState(..), runX,
-    io, withDisplay, isRoot,
+    X, WorkSpace, XState(..), Layout(..),
+    runX, io, withDisplay, isRoot,
     spawn, trace, whenJust
   ) where
 
@@ -43,10 +43,14 @@ data XState = XState
     , wmprotocols   :: {-# UNPACK #-} !Atom
     , dimensions    :: {-# UNPACK #-} !(Int,Int)
     , workspace     :: {-# UNPACK #-} !WorkSpace      -- ^ workspace list
+    , layout        :: {-# UNPACK #-} !Layout
     }
 
 type WorkSpace = StackSet Window
 
+-- | The different layout modes
+data Layout = Full | Tile
+
 -- | The X monad, a StateT transformer over IO encapuslating the window
 -- manager state
 newtype X a = X (StateT XState IO a)