From 133c0d7cbcc5dcca2214bf532dd47d1ad86a4a17 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Ra=C3=BAl=20Benencia?= <rul@kalgan.cc>
Date: Sun, 25 Aug 2013 23:11:18 -0300
Subject: scrolling functionality in Index mode

---
 State.hs | 6 ++++++
 1 file changed, 6 insertions(+)

(limited to 'State.hs')

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 {
-- 
cgit v1.2.3