configurable border colors

This also fixes a bug where xmonad was assuming a 24-bit display, and just
using, eg, 0xff0000 as an index into a colormap without querying the X server
to determine the proper pixel value for "red".

darcs-hash:20070430043859-b9aa7-9467ff583ec95144e5baa088e4b1536a725e7bc6.gz

1 files changed, 2 insertions, 0 deletions

diff --git a/XMonad.hs b/XMonad.hs
index df0f1e8..93265a8 100644
--- a/XMonad.hs
+++ b/XMonad.hs
@@ -46,6 +46,8 @@ data XState = XState
     , defaultLayoutDesc :: !LayoutDesc                     -- ^ default layout
     , layoutDescs       :: !(M.Map WorkspaceId LayoutDesc) -- ^ mapping of workspaces 
                                                            -- to descriptions of their layouts
+    , normalBorder      :: !Color                         -- ^ border color of unfocused windows
+    , focusedBorder     :: !Color                         -- ^ border color of the focused window
     }
 
 type WindowSet = StackSet WorkspaceId ScreenId Window