03f7480 · reflex-vty · git.iko.soy

git.iko.soy/reflex-vty

on develop help sign in

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

03f7480Ali Abrar8 years ago

src/Reflex/Vty/Widget.hs+1

@@ -443,6 +443,7 @@ wrapText maxWidth attrs = V.vertCat

443 . T.split (=='\n')

444

445wrapWithOffset :: Int -> Int -> Text -> [Text]

446+wrapWithOffset maxWidth _ _ | maxWidth <= 0 = []

446wrapWithOffset maxWidth n xs =

447wrapWithOffset maxWidth n xs =

447 let (firstLine, rest) = T.splitAt (maxWidth - n) xs

448 let (firstLine, rest) = T.splitAt (maxWidth - n) xs

448 in firstLine : (fmap (T.take maxWidth) . takeWhile (not . T.null) . iterate (T.drop maxWidth) $ rest)

449 in firstLine : (fmap (T.take maxWidth) . takeWhile (not . T.null) . iterate (T.drop maxWidth) $ rest)