jtdaugherty/brick
1
1
Fork 0
mirror of https://github.com/jtdaugherty/brick.git synced 2025-01-08 15:08:46 +03:00
Code Issues Projects Releases Wiki Activity

Update UI

Browse Source
This commit is contained in:
Jonathan Daugherty 2015-05-18 21:52:26 -07:00
parent 54f26d9ba5
commit 5a75e0a7b5
1 changed files with 16 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

31
programs/Main.hs
View File

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