1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
|
-- This module is part of Lazymail, a Haskell email client.
--
-- Copyright (C) 2013 Raúl Benencia <rul@kalgan.cc>
--
-- This program is free software: you can redistribute it and/or modify
-- it under the terms of the GNU General Public License as published by
-- the Free Software Foundation, either version 3 of the License, or
-- (at your option) any later version.
--
-- This program is distributed in the hope that it will be useful,
-- but WITHOUT ANY WARRANTY; without even the implied warranty of
-- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-- GNU General Public License for more details.
--
-- You should have received a copy of the GNU General Public License
-- along with this program. If not, see <http://www.gnu.org/licenses/>.
--
-- | The top level application state, and operations on that value.
--
module State where
import Text.ParserCombinators.Parsec.Rfc2822(Message, GenericMessage(..))
import UI.NCurses(ColorID(..), defaultColorID)
import Network.Email.Mailbox(Flag(..), Flags)
data Mode = MaildirMode | IndexMode | EmailMode
data MState = MState {
selectedRow :: Integer
, mode :: Mode
, initPath :: String
, scrRows :: Integer
, scrColumns :: Integer
, curRow :: Integer
, colPadding :: Integer
, selectedColorID :: ColorID
, selectedEmail :: Message
, selectedEmails :: [(String, [Flag], String)]
, selectedMD :: String
, detectedMDs :: [String]
, exitRequested :: Bool
}
initState = MState {
selectedRow = 0
, mode = MaildirMode
, initPath = ""
, scrRows = (-1)
, scrColumns = (-1)
, curRow = 0
, colPadding = 0
, selectedColorID = defaultColorID
, selectedEmail = Message [] "Dummy email"
, selectedEmails = []
, selectedMD = ""
, detectedMDs = []
, exitRequested = False
}
incCurRow st = st { curRow = (curRow st) + 1 }
incSelectedRow st | selectedRow st < fromIntegral limit = st { selectedRow = (selectedRow st) + 1 }
| otherwise = st
where
limit = case (mode st) of
MaildirMode -> (length $ detectedMDs st ) - 1
IndexMode -> (length $ selectedEmails st) - 1
_ -> fromIntegral $ scrRows st
decSelectedRow st | selectedRow st > 0 = st { selectedRow = (selectedRow st) - 1 }
| otherwise = st
|
