ilyakooo0/reflex-vty
1
0
Fork 0
mirror of https://github.com/ilyakooo0/reflex-vty.git synced 2024-11-26 23:36:31 +03:00
Code Issues Projects Releases Wiki Activity

Wrapping: Don't try to wrap if width is <1

Browse Source
This commit is contained in:
Ali Abrar 2018-11-03 15:00:28 -04:00
parent cc3df47591
commit 03f748031e
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
src/Reflex/Vty/Widget.hs
View File

@ -443,6 +443,7 @@ wrapText maxWidth attrs = V.vertCat
. T.split (=='\n')
wrapWithOffset :: Int -> Int -> Text -> [Text]
wrapWithOffset maxWidth _ _ | maxWidth <= 0 = []
wrapWithOffset maxWidth n xs =
let (firstLine, rest) = T.splitAt (maxWidth - n) xs
in firstLine : (fmap (T.take maxWidth) . takeWhile (not . T.null) . iterate (T.drop maxWidth) $ rest)