diff options
author | Jason Creighton <jcreigh@gmail.com> | 2007-03-18 00:49:04 +0100 |
---|---|---|
committer | Jason Creighton <jcreigh@gmail.com> | 2007-03-18 00:49:04 +0100 |
commit | b30fe4409e50f05f90d050da8dc372e23c60edde (patch) | |
tree | d4c4759fde1bc0c5cf7827a46def25c22d5b4fff /XMonad.hs | |
parent | ba0ef429ec9086f7e3efdd31b72f9bd346b9000e (diff) | |
download | xmonad-b30fe4409e50f05f90d050da8dc372e23c60edde.tar.gz xmonad-b30fe4409e50f05f90d050da8dc372e23c60edde.tar.xz xmonad-b30fe4409e50f05f90d050da8dc372e23c60edde.zip |
basic xinerama support (depends on Graphics.X11.Xinerama in X11-extras)
darcs-hash:20070317234904-b9aa7-ef29cf597970298a24d770ec789f83638390d22a.gz
Diffstat (limited to 'XMonad.hs')
-rw-r--r-- | XMonad.hs | 9 |
1 files changed, 8 insertions, 1 deletions
@@ -15,7 +15,7 @@ -- module XMonad ( - X, WorkSpace, XState(..),runX, + X, WorkSpace, XState(..), runX, io, withDisplay, isRoot, spawn, trace, whenJust ) where @@ -28,11 +28,18 @@ import System.Posix.Process (executeFile, forkProcess, getProcessStatus) import System.Exit import Graphics.X11.Xlib +import Graphics.X11.Xinerama + +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 , screen :: {-# UNPACK #-} !ScreenNumber + , xineScreens :: {-# UNPACK #-} ![XineramaScreenInfo] + -- a mapping of workspaces to xinerama screen numbers + , wsOnScreen :: {-# UNPACK #-} !(M.Map Int Int) , theRoot :: {-# UNPACK #-} !Window , wmdelete :: {-# UNPACK #-} !Atom , wmprotocols :: {-# UNPACK #-} !Atom |