jtdaugherty/brick
1
1
Fork 0
mirror of https://github.com/jtdaugherty/brick.git synced 2024-11-22 23:15:59 +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

15
programs/BorderDemo.hs
View File

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