jtdaugherty/brick
1
1
Fork 0
mirror of https://github.com/jtdaugherty/brick.git synced 2024-11-30 06:02:02 +03:00
Code Issues Projects Releases Wiki Activity

Simplify edit demo application state

Browse Source
This commit is contained in:
Jonathan Daugherty 2015-06-28 13:24:36 -07:00
parent 34e14bf1dd
commit 6c762fb95b
1 changed files with 14 additions and 23 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

37
programs/EditDemo.hs
View File

@ -1,5 +1,4 @@
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE TemplateHaskell #-}
module Main where
import Control.Lens
@ -14,35 +13,27 @@ import Brick.Widgets.Edit
import Brick.AttrMap
import Brick.Util
data St =
St { _stEditor :: Editor
}
makeLenses ''St
drawUI :: St -> [Widget]
drawUI st = [ui]
drawUI :: Editor -> [Widget]
drawUI e = [ui]
where
ui = center $ ("Input: " <+> (hLimit 30 $ renderEditor $ st^.stEditor))
ui = center $ ("Input: " <+> (hLimit 30 $ renderEditor e))
appEvent :: Event -> St -> EventM (Next St)
appEvent e st =
case e of
EvKey KEsc [] -> halt st
EvKey KEnter [] -> halt st
ev -> continue $ st & stEditor %~ (handleEvent ev)
appEvent :: Event -> Editor -> EventM (Next Editor)
appEvent ev e =
case ev of
EvKey KEsc [] -> halt e
EvKey KEnter [] -> halt e
_ -> continue $ handleEvent ev e
initialState :: St
initialState =
St { _stEditor = editor (Name "edit") str ""
}
initialState :: Editor
initialState = editor (Name "edit") str ""
theMap :: AttrMap
theMap = attrMap defAttr
[ (editAttr, white `on` blue)
]
theApp :: App St Event
theApp :: App Editor Event
theApp =
App { appDraw = drawUI
, appChooseCursor = showFirstCursor
@ -53,5 +44,5 @@ theApp =
main :: IO ()
main = do
st <- defaultMain theApp initialState
putStrLn $ "You entered: " <> (st^.stEditor.editContentsL)
e <- defaultMain theApp initialState
putStrLn $ "You entered: " <> (e^.editContentsL)