New project tree structure

1 files changed, 0 insertions, 126 deletions

diff --git a/State.hs b/State.hs
deleted file mode 100644
index 5c3112f..0000000
--- a/State.hs
+++ /dev/null
@@ -1,126 +0,0 @@
-{- Lazymail state, and operations on it.
- -
- - Copyright 2013 Raúl Benencia <rul@kalgan.cc>
- -
- - Licensed under the GNU GPL version 3 or higher
- -
- -}
-
-module State where
-
-import Codec.MIME.Type(MIMEValue, nullMIMEValue)
-import Text.ParserCombinators.Parsec.Rfc2822(Message, GenericMessage(..))
-import UI.NCurses(ColorID(..), defaultColorID)
-import Network.Email.Mailbox(Flag(..), Flags)
-import System.FilePath
-
-import Types
-
-initialState = LazymailState {
-    mode          = MaildirMode
-  , basePath      = ""
-  , screenRows    = 0
-  , screenColumns = 0
-  , currentRow    = 0
-  , columnPadding = 0
-  , exitRequested = False
-  , statusBar     = True
-  , maildirState  = initialMaildirState
-  , indexState    = initialIndexState
-  , composeState  = initialComposeState
-  , emailState    = initialEmailState
-  , colorStyle    = initialColorStyle
-}
-
-initialMaildirState = MaildirState {
-    selectedRowMD   = 0
-  , selectedMD      = ""
-  , detectedMDs     = []
-  , scrollRowMD     = 0
-  , scrollBufferMD  = []
-  , triggerUpdateMD = False
-}
-
-initialIndexState = IndexState {
-    selectedRowIn      = 0
-  , selectedEmailPath  = ""
-  , selectedEmails     = []
-  , scrollRowIn        = 0
-  , currentInLen       = 0
-  , scrollBufferIn     = []
-  , triggerUpdateIn    = False
-}
-
-initialEmailState = EmailState {
-    scrollRowEm    = 0
-  , bodyStartRow  = 0
-  , emailLines     = []
-  , currentEmail   = nullMIMEValue
-}
-
-initialComposeState = ComposeState {
-    composition = Nothing
-}
-
-initialColorStyle = ColorStyle {
-    baseColorID      = defaultColorID
-  , selectionColorID = defaultColorID
-  , statusBarColorID = defaultColorID
-  , headerColorID    = defaultColorID
-  , newEmailColorID  = defaultColorID
-}
-
-scrColsAsInteger st = toInteger $ screenColumns st
-scrRowsAsInteger st = toInteger $ screenRows st
-curRowAsInteger  st = toInteger $ currentRow st
-colPadAsInteger  st = toInteger $ columnPadding st
-
-
-incrementSelectedRow st | (selectedRow st) < limit =
-  case (mode st) of
-    MaildirMode ->
-      let
-        sr = (selectedRowMD . maildirState) st
-        maildirState' = (maildirState st) { selectedRowMD = sr + 1 }
-      in
-       st { maildirState = maildirState' }
-    IndexMode ->
-      let
-        sr = (selectedRowIn . indexState) st
-        indexState' = (indexState st) { selectedRowIn = sr + 1 }
-      in
-       st { indexState = indexState' }
-    _ -> st
-                        | otherwise = st
-  where
-    scrRows = screenRows st
-    curInLen = length $ selectedEmails . indexState $ st
-    curMDLen = length $ detectedMDs . maildirState $ st
-    limit' = case (mode st) of
-      MaildirMode -> if curMDLen < scrRows then curMDLen - 1 else scrRows
-      IndexMode   -> if curInLen < scrRows then curInLen - 1 else scrRows
-    limit = if (statusBar st) && (limit' == scrRows)
-            then fromIntegral $ limit' - 2
-            else fromIntegral limit'
-
-decrementSelectedRow st | (selectedRow st) > 0 =
-  case (mode st) of
-    MaildirMode ->
-      let
-        sr = (selectedRowMD . maildirState) st
-        maildirState' = (maildirState st) { selectedRowMD = sr - 1 }
-      in
-       st { maildirState = maildirState' }
-    IndexMode ->
-      let
-        sr = (selectedRowIn . indexState) st
-        indexState' = (indexState st) { selectedRowIn = sr - 1 }
-      in
-       st { indexState = indexState' }
-    _ -> st
-                        | otherwise = st
-
-selectedRow st = case (mode st) of
-      MaildirMode -> selectedRowMD . maildirState $ st
-      IndexMode   -> selectedRowIn . indexState   $ st
-