Compose mode

1 files changed, 20 insertions, 1 deletions

diff --git a/src/Lazymail/State.hs b/src/Lazymail/State.hs
index 1323118..bf1e3c2 100644
--- a/src/Lazymail/State.hs
+++ b/src/Lazymail/State.hs
@@ -29,6 +29,7 @@ initialState = LazymailState {
   , indexState    = initialIndexState
   , composeState  = initialComposeState
   , emailState    = initialEmailState
+  , inputState    = initialInputState                  
   , colorStyle    = initialColorStyle
 }
 
@@ -59,7 +60,18 @@ initialEmailState = EmailState {
 }
 
 initialComposeState = ComposeState {
-    composition = Nothing
+    composeFields = initialComposeFields
+  , bodyFileName  = Nothing
+  , bodyReady     = False
+}
+
+initialComposeFields = ComposeFields {
+    fromField    = Nothing
+  , toField      = Nothing
+  , ccField      = Nothing
+  , bccField     = Nothing
+  , subjectField = Nothing
+  , replyToField = Nothing
 }
 
 initialColorStyle = ColorStyle {
@@ -70,6 +82,13 @@ initialColorStyle = ColorStyle {
   , newEmailColorID  = defaultColorID
 }
 
+initialInputState    =  InputState {
+    inputRequested   = False
+  , prompt           = Nothing
+  , currentInput     = ""
+  , postInputActions = return ()
+}
+
 scrColsAsInteger st = toInteger $ screenColumns st
 scrRowsAsInteger st = toInteger $ screenRows st
 curRowAsInteger  st = toInteger $ currentRow st