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

BorderDemo: nit

Browse Source
This commit is contained in:
Jonathan Daugherty 2023-08-15 14:43:36 -07:00
parent 339ce5243c
commit 417571b9a1
1 changed files with 10 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
programs/BorderDemo.hs
View File

@ -16,12 +16,12 @@ import Brick.Types
( Widget
)
import Brick.Widgets.Core
( (<=>)
, (<+>)
( (<+>)
, withAttr
, vLimit
, hLimit
, hBox
, vBox
, updateAttrMap
, withBorderStyle
, txt
@ -91,13 +91,14 @@ colorDemo =
ui :: Widget ()
ui =
hBox borderDemos
<=> B.hBorder
<=> colorDemo
<=> B.hBorderWithLabel (str "horizontal border label")
<=> (C.center (str "Left of vertical border")
<+> B.vBorder
<+> C.center (str "Right of vertical border"))
vBox [ hBox borderDemos
, B.hBorder
, colorDemo
, B.hBorderWithLabel (str "horizontal border label")
, (C.center (str "Left of vertical border")
<+> B.vBorder
<+> C.center (str "Right of vertical border"))
]
main :: IO ()
main = M.simpleMain ui