Colorful header

1 files changed, 2 insertions, 0 deletions

diff --git a/State.hs b/State.hs
index d047c06..80d562a 100644
--- a/State.hs
+++ b/State.hs
@@ -57,6 +57,7 @@ data ColorStyle = ColorStyle {
     baseColorID      :: ColorID
   , selectionColorID :: ColorID
   , statusBarColorID :: ColorID
+  , headerColorID    :: ColorID    
 }
 
 initialState = LazymailState {
@@ -100,6 +101,7 @@ initialColorStyle = ColorStyle {
     baseColorID      = defaultColorID
   , selectionColorID = defaultColorID
   , statusBarColorID = defaultColorID
+  , headerColorID    = defaultColorID                       
 }
 
 scrColsAsInteger st = toInteger $ screenColumns st