From 9ad0eef69baea9784affe1ea31fa520cace2ba13 Mon Sep 17 00:00:00 2001
From: Stephen Morgan <morgan.stephen99@gmail.com>
Date: Wed, 13 Jan 2021 16:21:13 +1100
Subject: [PATCH] lib: Update textConcatTopPadded to use Tabular.AsciiWide,
 same as concatTopPadded.

---
 hledger-lib/Hledger/Utils/Text.hs | 12 +++---------
 1 file changed, 3 insertions(+), 9 deletions(-)

diff --git a/hledger-lib/Hledger/Utils/Text.hs b/hledger-lib/Hledger/Utils/Text.hs
index 4bb97ec35..9b6049712 100644
--- a/hledger-lib/Hledger/Utils/Text.hs
+++ b/hledger-lib/Hledger/Utils/Text.hs
@@ -195,15 +195,9 @@ textUnbracket s
 -- | Join several multi-line strings as side-by-side rectangular strings of the same height, top-padded.
 -- Treats wide characters as double width.
 textConcatTopPadded :: [Text] -> Text
-textConcatTopPadded ts = T.intercalate "\n" $ map T.concat $ transpose padded
-    where
-      lss = map T.lines ts :: [[Text]]
-      h = maximum $ map length lss
-      ypad ls = replicate (difforzero h (length ls)) "" ++ ls
-      xpad ls = map (textPadLeftWide w) ls
-        where w | null ls = 0
-                | otherwise = maximum $ map textWidth ls
-      padded = map (xpad . ypad) lss :: [[Text]]
+textConcatTopPadded = TL.toStrict . renderRow def{tableBorders=False, borderSpaces=False}
+                    . Group NoLine . map (Header . cell)
+  where cell = alignCell BottomLeft
 
 -- -- | Join several multi-line strings as side-by-side rectangular strings of the same height, bottom-padded.
 -- -- Treats wide characters as double width.