jtdaugherty/brick
1
1
Fork 0
mirror of https://github.com/jtdaugherty/brick.git synced 2024-10-05 20:19:12 +03:00
Code Issues Projects Releases Wiki Activity

BorderDemo: nit

Browse Source
This commit is contained in:
Jonathan Daugherty 2023-08-15 14:45:54 -07:00
parent 417571b9a1
commit f1e57e6b22
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
programs/BorderDemo.hs
View File

@ -72,8 +72,8 @@ mkBorderDemo (styleName, sty) =
titleAttr :: A.AttrName
titleAttr = A.attrName "title"
borderMappings :: [(A.AttrName, V.Attr)]
borderMappings =
attrs :: [(A.AttrName, V.Attr)]
attrs =
[ (B.borderAttr, V.yellow `on` V.black)
, (B.vBorderAttr, fg V.cyan)
, (B.hBorderAttr, fg V.magenta)
@ -82,7 +82,7 @@ borderMappings =
colorDemo :: Widget ()
colorDemo =
updateAttrMap (A.applyAttrMappings borderMappings) $
updateAttrMap (A.applyAttrMappings attrs) $
B.borderWithLabel (withAttr titleAttr $ str "title") $
hLimit 20 $
vLimit 5 $