jtdaugherty/brick
1
1
Fork 0
mirror of https://github.com/jtdaugherty/brick.git synced 2025-01-07 14:36:59 +03:00
Code Issues Projects Releases Wiki Activity

Make demo UI a little more interesting

Browse Source
This commit is contained in:
Jonathan Daugherty 2015-05-18 21:18:51 -07:00
parent 9d3367e46a
commit c9c4b611fb
1 changed files with 18 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
programs/Main.hs
View File

@ -33,18 +33,29 @@ data St =
makeLenses ''St
kw :: Attr
kw = fg blue
drawUI :: St -> [Prim St]
drawUI st = [a]
where
(bsName, bs) = styles !! (st^.stBorderStyle)
a = centered $
borderedWithLabel bs bsName $
(VLimit 1 $ HLimit 25 $ UseAttr (cyan `on` blue) $
With stEditor drawEditor)
<<=
hBorder bs
=>>
(VLimit 10 $ HLimit 25 $ With stList drawList)
(borderedWithLabel bs bsName $
(HLimit 25 (
(VLimit 1 $ UseAttr (cyan `on` blue) $ With stEditor drawEditor)
<<=
hBorder bs
=>>
(VLimit 10 $ With stList drawList)
)))
<<=
(((UseAttr kw "Enter") <+> " adds a list item")
<=>
((UseAttr kw "+") <+> " changes border styles")
<=>
((UseAttr kw "Arrow keys") <+> " navigate the list")
)
appEvent :: Event -> St -> IO St
appEvent e st =