From 7ec2d9b39eb3ca3331e22be3d415c1ef8047bffc Mon Sep 17 00:00:00 2001 From: Spencer Janssen Date: Tue, 20 Mar 2007 08:18:12 +0100 Subject: Initial tiling support. darcs-hash:20070320071812-a5988-5f091f18a418d6aaf940b800530e0c6a7c4bc312 --- XMonad.hs | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) (limited to 'XMonad.hs') 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) -- cgit v1.2.3