slaesvuo/hledger
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

cli: Commands.Print.transactionToSpreadsheet: vertically merge common index, date, description and other cells

Browse Source
This commit is contained in:
Henning Thielemann 2024-10-19 00:35:50 +02:00 committed by Simon Michael
parent 8b391e2a07
commit cc58ac7bf5
1 changed files with 15 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
hledger/Hledger/Cli/Commands/Print.hs
View File

@ -240,8 +240,7 @@ transactionToSpreadsheet ::
AmountFormat -> Maybe Text -> [Text] -> AmountFormat -> Maybe Text -> [Text] ->
Transaction -> [[Spr.Cell Spr.NumLines Text]] Transaction -> [[Spr.Cell Spr.NumLines Text]]
transactionToSpreadsheet fmt baseUrl query t = transactionToSpreadsheet fmt baseUrl query t =
map addRowSpanHeader (idx:d:d2:status:code:description:comment:[])
(\p -> idx:d:d2:status:code:description:comment:p)
(postingToSpreadsheet fmt baseUrl query =<< tpostings t) (postingToSpreadsheet fmt baseUrl query =<< tpostings t)
where where
cell = Spr.defaultCell cell = Spr.defaultCell
@ -255,6 +254,20 @@ transactionToSpreadsheet fmt baseUrl query t =
code = cell $ tcode t code = cell $ tcode t
comment = cell $ T.strip $ tcomment t comment = cell $ T.strip $ tcomment t
addRowSpanHeader ::
[Spr.Cell border text] ->
[[Spr.Cell border text]] -> [[Spr.Cell border text]]
addRowSpanHeader common rows =
case rows of
[] -> []
[row] -> [common++row]
_ ->
let setSpan spn cell = cell{Spr.cellSpan = spn} in
zipWith (++)
(map (setSpan $ Spr.SpanVertical $ length rows) common :
repeat (map (setSpan Spr.Covered) common))
rows
postingToSpreadsheet :: postingToSpreadsheet ::
(Spr.Lines border) => (Spr.Lines border) =>
AmountFormat -> Maybe Text -> [Text] -> AmountFormat -> Maybe Text -> [Text] ->