simonmichael/hledger
1
1
Fork 0
mirror of https://github.com/simonmichael/hledger.git synced 2025-01-07 19:28:26 +03:00
Code Issues Projects Releases Wiki Activity

lib: Expose textConcatBottomPadded.

Browse Source
This commit is contained in:
Stephen Morgan 2021-01-13 17:14:09 +11:00 committed by Simon Michael
parent 217bfc5e74
commit 5d664fc528
1 changed files with 6 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
hledger-lib/Hledger/Utils/Text.hs
View File

@ -34,7 +34,7 @@ module Hledger.Utils.Text
formatText,
-- -- * multi-line layout
textConcatTopPadded,
-- concatBottomPadded,
textConcatBottomPadded,
-- concatOneLine,
-- vConcatLeftAligned,
-- vConcatRightAligned,
@ -201,18 +201,11 @@ textConcatTopPadded :: [Text] -> Text
textConcatTopPadded = TL.toStrict . renderRow def{tableBorders=False, borderSpaces=False}
. Group NoLine . map (Header . textCell BottomLeft)
-- -- | Join several multi-line strings as side-by-side rectangular strings of the same height, bottom-padded.
-- -- Treats wide characters as double width.
-- concatBottomPadded :: [String] -> String
-- concatBottomPadded strs = intercalate "\n" $ map concat $ transpose padded
-- where
-- lss = map lines strs
-- h = maximum $ map length lss
-- ypad ls = ls ++ replicate (difforzero h (length ls)) ""
-- xpad ls = map (padRightWide w) ls where w | null ls = 0
-- | otherwise = maximum $ map strWidth ls
-- padded = map (xpad . ypad) lss
-- | Join several multi-line strings as side-by-side rectangular strings of the same height, bottom-padded.
-- Treats wide characters as double width.
textConcatBottomPadded :: [Text] -> Text
textConcatBottomPadded = TL.toStrict . renderRow def{tableBorders=False, borderSpaces=False}
. Group NoLine . map (Header . textCell TopLeft)
-- -- | Join multi-line strings horizontally, after compressing each of
-- -- them to a single line with a comma and space between each original line.