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

str: right-pad short lines in multi-line text strings

Browse Source
This commit is contained in:
Jonathan Daugherty 2015-07-03 15:49:13 -07:00
parent 19221e6a6f
commit df28848f3f
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/Brick/Widgets/Internal.hs
View File

@ -219,7 +219,11 @@ str s =
-- behavior of empty strings (they have imageHeight 1)
[] -> return $ def & image .~ (V.string (c^.attr) "")
[one] -> return $ def & image .~ (V.string (c^.attr) one)
multiple -> return $ def & image .~ (V.vertCat $ V.string (c^.attr) <$> multiple)
multiple ->
let maxLength = maximum $ length <$> multiple
lineImgs = lineImg <$> multiple
lineImg lStr = V.string (c^.attr) (lStr ++ replicate (maxLength - length lStr) ' ')
in return $ def & image .~ (V.vertCat lineImgs)
txt :: T.Text -> Widget
txt = str . T.unpack