diff options
author | Don Stewart <dons@cse.unsw.edu.au> | 2007-03-11 11:26:53 +0100 |
---|---|---|
committer | Don Stewart <dons@cse.unsw.edu.au> | 2007-03-11 11:26:53 +0100 |
commit | 0204fb97b9b78fb01ff3c2aeaf8cb1030c0b069d (patch) | |
tree | 0a223da2144bc238ee8bd0e062dc3d1e19b31599 /XMonad.hs | |
parent | 6b1bbdee9dd5645cb4f01b9a362bbf95ea5faeca (diff) | |
download | metatile-0204fb97b9b78fb01ff3c2aeaf8cb1030c0b069d.tar metatile-0204fb97b9b78fb01ff3c2aeaf8cb1030c0b069d.zip |
general refactor, and call xerrorhandler to ignore certain undetectable issues
darcs-hash:20070311102653-9c5c1-de74160d207f006000afc640dc9745d1b20ce05b
Diffstat (limited to 'XMonad.hs')
-rw-r--r-- | XMonad.hs | 9 |
1 files changed, 6 insertions, 3 deletions
@@ -23,14 +23,17 @@ import StackSet (StackSet) import Control.Monad.State import System.IO import System.Process (runCommand) -import Graphics.X11.Xlib (Display,Window) +import Graphics.X11.Xlib -- | XState, the window manager state. -- Just the display, width, height and a window list data XState = XState { display :: Display - , screenWidth :: {-# UNPACK #-} !Int - , screenHeight :: {-# UNPACK #-} !Int + , screen :: {-# UNPACK #-} !ScreenNumber + , theRoot :: {-# UNPACK #-} !Window + , wmdelete :: {-# UNPACK #-} !Atom + , wmprotocols :: {-# UNPACK #-} !Atom + , dimensions :: {-# UNPACK #-} !(Int,Int) , workspace :: {-# UNPACK #-} !WorkSpace -- ^ workspace list } |