From fc7a8483f4a66a3f47bbb335574a399df64d62e0 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Ra=C3=BAl=20Benencia?= <rul@kalgan.cc>
Date: Tue, 3 Sep 2013 12:29:47 -0300
Subject: Color in new emails

---
 Types.hs | 19 ++++++++++++++++++-
 1 file changed, 18 insertions(+), 1 deletion(-)

(limited to 'Types.hs')

diff --git a/Types.hs b/Types.hs
index 4a7cc89..86ca334 100644
--- a/Types.hs
+++ b/Types.hs
@@ -27,11 +27,12 @@ data LazymailConfig = LazymailConfig {
   , selectionColor     :: (Color, Color)
   , statusBarColor     :: (Color, Color)
   , headerColor        :: (Color, Color)
+  , newEmailColor      :: (Color, Color)
   , showStatusBar      :: Bool
   , initialPath        :: FilePath
   , filterMaildirsHook :: [FilePath] -> IO [FilePath]
   , indexDateFormat    :: String
-  , headersToShow      :: [String]  
+  , headersToShow      :: [String]
 }
 
 data Email = Email {
@@ -47,6 +48,21 @@ instance Ord Email where
   (Email _ d1 _) `compare` (Email _ d2 _) = d1 `compare` d2
 
 data Mode = MaildirMode | IndexMode | EmailMode | ComposeMode
+                                                  deriving (Show, Eq)
+
+type Maildir = FilePath
+
+data Flag = NEW
+          | SEEN
+          | ANSWERED
+          | FLAGGED
+          | DELETED
+          | DRAFT
+          | FORWARDED
+          | OTHERFLAG String
+            deriving (Eq)
+
+type Flags = [Flag]
 
 data LazymailState = LazymailState {
     mode            :: Mode
@@ -97,4 +113,5 @@ data ColorStyle = ColorStyle {
   , selectionColorID :: ColorID
   , statusBarColorID :: ColorID
   , headerColorID    :: ColorID
+  , newEmailColorID  :: ColorID
 }
-- 
cgit v1.2.3