gdritter repos bytor / master src / Bytor / Main.hs
master

Tree @master (Download .tar.gz)

Main.hs @master 

103e3fb
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 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
module Bytor.Main where

import qualified Brick as B
import qualified Control.Concurrent.Chan as Chan
import qualified Data.Default as Def
import           Data.Monoid (mempty)
import qualified Graphics.Vty as Vty
import qualified Network.Courriel.Parse as Courriel

import Data.Attoparsec.ByteString (IResult(..))

import           Bytor.Draw
import           Bytor.Event
import           Bytor.Types

app :: B.App State Event Cursor
app = B.App
  { B.appDraw         = \ st -> drawMain st -- [B.txt (_stMessage st)]
  , B.appChooseCursor = B.showFirstCursor
  , B.appHandleEvent  = handleEvent
  , B.appStartEvent   = return
  , B.appAttrMap      = \ _ -> B.attrMap mempty []
  }


main :: IO ()
main = do
  rs <- Courriel.readBox "/home/gdritter/.mail/INBOX/cur"
  mapM_ print [ Courriel.getSubject em | (_, Right em) <- rs ]
  -- eventChan <- Chan.newChan
  -- _ <- B.customMain (Vty.mkVty Def.def) (Just eventChan) app emptyState
  return ()