jtdaugherty/brick
1
1
Fork 0
mirror of https://github.com/jtdaugherty/brick.git synced 2024-12-01 17:32:52 +03:00
Code Issues Projects Releases Wiki Activity

UI tweak

Browse Source
This commit is contained in:
Jonathan Daugherty 2015-05-09 14:11:09 -07:00
parent 70a137abe4
commit 3e65af58e9
1 changed files with 1 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
programs/Main.hs
View File

@ -20,9 +20,7 @@ drawUI st =
vBox [ "Top"
, hBorder '-'
, hBox [ " Edit: "
, vBox [ hLimit 20 $ edit (stEditor st) `withAttr` (cyan `on` blue)
, txt $ show (100 - (length $ editStr $ stEditor st)) ++ " chars left"
]
, hLimit 20 $ edit (stEditor st) `withAttr` (cyan `on` blue)
]
]