mirror of
https://github.com/jtdaugherty/brick.git
synced 2024-12-12 12:23:21 +03:00
64 lines
1.5 KiB
Haskell
64 lines
1.5 KiB
Haskell
{-# LANGUAGE OverloadedStrings #-}
|
|
{-# LANGUAGE TemplateHaskell #-}
|
|
module Main where
|
|
|
|
import Control.Lens
|
|
import Control.Monad (void, forever)
|
|
import Control.Concurrent (newChan, writeChan, threadDelay, forkIO)
|
|
import Data.Default
|
|
import Data.Monoid
|
|
import Graphics.Vty hiding (translate)
|
|
|
|
import Brick.Main
|
|
import Brick.Widgets.Core
|
|
|
|
data St =
|
|
St { _stLastVtyEvent :: Maybe Event
|
|
, _stCounter :: Int
|
|
}
|
|
|
|
makeLenses ''St
|
|
|
|
data CustomEvent = VtyEvent Event
|
|
| Counter
|
|
|
|
drawUI :: St -> [Widget]
|
|
drawUI st = [a]
|
|
where
|
|
a = (str $ "Last Vty event: " <> (show $ st^.stLastVtyEvent))
|
|
<=>
|
|
(str $ "Counter value is: " <> (show $ st^.stCounter))
|
|
|
|
appEvent :: St -> CustomEvent -> EventM (Next St)
|
|
appEvent st e =
|
|
case e of
|
|
VtyEvent (EvKey KEsc []) -> halt st
|
|
VtyEvent ev -> continue $ st & stLastVtyEvent .~ (Just ev)
|
|
Counter -> continue $ st & stCounter %~ (+1)
|
|
|
|
initialState :: St
|
|
initialState =
|
|
St { _stLastVtyEvent = Nothing
|
|
, _stCounter = 0
|
|
}
|
|
|
|
theApp :: App St CustomEvent
|
|
theApp =
|
|
App { appDraw = drawUI
|
|
, appChooseCursor = showFirstCursor
|
|
, appHandleEvent = appEvent
|
|
, appStartEvent = return
|
|
, appAttrMap = def
|
|
, appMakeVtyEvent = VtyEvent
|
|
}
|
|
|
|
main :: IO ()
|
|
main = do
|
|
chan <- newChan
|
|
|
|
forkIO $ forever $ do
|
|
writeChan chan Counter
|
|
threadDelay 1000000
|
|
|
|
void $ customMain (mkVty def) chan theApp initialState
|