From e41dd5091f597e2252deb9ecbde900eda7c15614 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Ra=C3=BAl=20Benencia?= <rul@kalgan.cc>
Date: Tue, 3 Sep 2013 00:00:50 -0300
Subject: Sorted index mode

---
 Types.hs | 95 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++------
 1 file changed, 86 insertions(+), 9 deletions(-)

(limited to 'Types.hs')

diff --git a/Types.hs b/Types.hs
index 4fe658e..82005e2 100644
--- a/Types.hs
+++ b/Types.hs
@@ -5,18 +5,95 @@
  - Licensed under the GNU GPL version 3 or higher
  -}
 
-module Types
-       (
-         LazymailUpdate
-       , LazymailCurses
-       ) where
+module Types where
 
+import Codec.MIME.Type(MIMEValue(..))
 import Control.Monad.Reader(ReaderT)
 import Control.Monad.State(StateT)
-import UI.NCurses(Curses, Update)
-
-import Config (LazymailConfig)
-import State (LazymailState)
+import Data.DateTime(DateTime)
+import System.FilePath(FilePath)
+import UI.NCurses(Curses, Update, Color(..), ColorID)
 
 type LazymailUpdate = ReaderT LazymailConfig (StateT LazymailState Update)
 type LazymailCurses = ReaderT LazymailConfig (StateT LazymailState Curses)
+
+{- Lazymail monad is a ReaderT around a StateT with IO at the bottom of the
+ - stack.
+ -}
+type Lazymail = ReaderT LazymailConfig (StateT LazymailState IO)
+
+data LazymailConfig = LazymailConfig {
+    baseColor          :: (Color, Color) -- (foreground, background)
+  , selectionColor     :: (Color, Color)
+  , statusBarColor     :: (Color, Color)
+  , headerColor        :: (Color, Color)
+  , showStatusBar      :: Bool
+  , initialPath        :: FilePath
+  , filterMaildirsHook :: [FilePath] -> IO [FilePath]
+  , indexDateFormat    :: String
+}
+
+data Email = Email {
+    emailValue :: MIMEValue
+  , emailDate  :: DateTime
+  , emailPath  :: FilePath
+}
+
+instance Eq Email where
+  (Email _ _ fp1) == (Email _ _ fp2) = fp1 == fp2
+
+instance Ord Email where
+  (Email _ d1 _) `compare` (Email _ d2 _) = d1 `compare` d2
+
+data Mode = MaildirMode | IndexMode | EmailMode | ComposeMode
+
+data LazymailState = LazymailState {
+    mode            :: Mode
+  , basePath        :: FilePath
+  , screenRows      :: Int
+  , screenColumns   :: Int
+  , currentRow      :: Int
+  , columnPadding   :: Int
+  , exitRequested   :: Bool
+  , statusBar       :: Bool
+  , maildirState    :: MaildirState
+  , indexState      :: IndexState
+  , emailState      :: EmailState
+  , composeState    :: ComposeState
+  , colorStyle      :: ColorStyle
+}
+
+data MaildirState = MaildirState {
+    selectedRowMD   :: Int
+  , selectedMD      :: String
+  , detectedMDs     :: [(FilePath, String)]
+  , scrollRowMD     :: Int
+  , scrollBufferMD  :: [(FilePath, String)]
+}
+
+data IndexState = IndexState {
+    selectedRowIn     :: Int
+  , selectedEmailPath :: FilePath
+  , selectedEmails    :: [Email]
+  , scrollRowIn       :: Int
+  , currentInLen      :: Int
+  , scrollBufferIn    :: [(FilePath, String)]
+}
+
+data ComposeState = ComposeState {
+    composition     :: Maybe String
+}
+
+data EmailState = EmailState {
+    scrollRowEm    :: Int
+  , bodyStartRow   :: Int
+  , emailLines     :: [String]
+  , currentEmail   :: MIMEValue
+}
+
+data ColorStyle = ColorStyle {
+    baseColorID      :: ColorID
+  , selectionColorID :: ColorID
+  , statusBarColorID :: ColorID
+  , headerColorID    :: ColorID
+}
-- 
cgit v1.2.3