scrolling functionality in Index mode

1 files changed, 6 insertions, 0 deletions

diff --git a/State.hs b/State.hs
index 57b6258..a3fbef0 100644
--- a/State.hs
+++ b/State.hs
@@ -40,6 +40,9 @@ data IndexState = IndexState {
     selectedRowIn   :: Int
   , selectedEmail   :: Message
   , selectedEmails  :: [(String, [Flag], String)]
+  , scrollRowIn     :: Int
+  , currentInLen    :: Int
+  , scrollBufferIn  :: [(String, [Flag], String)]
 }
 
 data ComposeState = ComposeState {
@@ -77,6 +80,9 @@ initialIndexState = IndexState {
     selectedRowIn  = 0
   , selectedEmail  = Message [] "Dummy email"
   , selectedEmails = []
+  , scrollRowIn    = 0
+  , currentInLen   = 0
+  , scrollBufferIn = []
 }
 
 initialComposeState = ComposeState {