35 lines
954 B
Haskell
35 lines
954 B
Haskell
import Brick
|
|
import qualified Brick.Widgets.Edit as E
|
|
import qualified Graphics.Vty as V
|
|
|
|
data Name = Text deriving (Ord, Show, Eq)
|
|
type St = E.Editor Name
|
|
|
|
initialState :: St
|
|
initialState = E.editor Text (str . unlines) Nothing ""
|
|
|
|
drawUI :: St -> [Widget Name]
|
|
drawUI st = [E.renderEditor True st]
|
|
|
|
appCursor :: St -> [CursorLocation Name] -> Maybe (CursorLocation Name)
|
|
appCursor st c = Just (head c)
|
|
|
|
appEvent :: St -> V.Event -> EventM Name (Next St)
|
|
appEvent st ev =
|
|
case ev of
|
|
V.EvKey V.KEsc [] -> halt st
|
|
_ -> continue =<< E.handleEditorEvent ev st
|
|
|
|
theApp :: App St V.Event Name
|
|
theApp =
|
|
App { appDraw = drawUI
|
|
, appChooseCursor = appCursor
|
|
, appHandleEvent = appEvent
|
|
, appStartEvent = return
|
|
, appAttrMap = const (attrMap V.defAttr [ ])
|
|
, appLiftVtyEvent = id
|
|
}
|
|
|
|
main = do
|
|
st <- defaultMain theApp initialState
|
|
putStrLn $ unlines $ E.getEditContents $ st
|