From 8047a2944772231008e3cc5f5768add9f680a59e Mon Sep 17 00:00:00 2001
From: Spencer Janssen <sjanssen@cse.unl.edu>
Date: Mon, 9 Apr 2007 09:34:14 +0200
Subject: Document XState fields

darcs-hash:20070409073414-a5988-cad31b0c3b3272413e0f3b1721d3b6997e448f30.gz
---
 XMonad.hs | 24 +++++++++++-------------
 1 file changed, 11 insertions(+), 13 deletions(-)

diff --git a/XMonad.hs b/XMonad.hs
index 9c983e6..2ab1d70 100644
--- a/XMonad.hs
+++ b/XMonad.hs
@@ -33,21 +33,19 @@ import qualified Data.Map as M
 -- | XState, the window manager state.
 -- Just the display, width, height and a window list
 data XState = XState
-    { display           :: Display
+    { display           :: Display                 -- ^ the X11 display
     , screen            :: !ScreenNumber
 
-    , xineScreens       :: ![Rectangle]
-    -- a mapping of workspaces to xinerama screen numbers
-
-    , wsOnScreen        :: !(M.Map Int Int)
-    , theRoot           :: !Window
-    , wmdelete          :: !Atom
-    , wmprotocols       :: !Atom
-    , dimensions        :: !(Int,Int)
-    , workspace         :: !WorkSpace      -- ^ workspace list
-    , defaultLayoutDesc :: !LayoutDesc
-    , layoutDescs       :: !(M.Map Int LayoutDesc)
-    -- ^ mapping of workspaces to descriptions of their layouts
+    , xineScreens       :: ![Rectangle]            -- ^ dimensions of each screen
+
+    , wsOnScreen        :: !(M.Map Int Int)        -- ^ mapping of workspaces to xinerama screen numbers
+    , theRoot           :: !Window                 -- ^ the root window
+    , wmdelete          :: !Atom                   -- ^ window deletion atom
+    , wmprotocols       :: !Atom                   -- ^ wm protocols atom
+    , dimensions        :: !(Int,Int)              -- ^ dimensions of the screen, used for hiding windows
+    , workspace         :: !WorkSpace              -- ^ workspace list
+    , defaultLayoutDesc :: !LayoutDesc             -- ^ default layout
+    , layoutDescs       :: !(M.Map Int LayoutDesc) -- ^ mapping of workspaces to descriptions of their layouts
     }
 
 type WorkSpace = StackSet Window
-- 
cgit v1.2.3