imp: bal: html output will use a hledger.css file, like bs/cf/is

This commit is contained in:
Simon Michael 2024-09-29 21:22:38 -10:00
parent 5565f11c73
commit cc7ba473ec
2 changed files with 2 additions and 0 deletions

View File

@ -25,6 +25,7 @@ type Html = Html.Html ()
printHtml :: (Lines border) => [[Cell border Html]] -> Html
printHtml table = do
Html.link_ [Html.rel_ "stylesheet", Html.href_ "hledger.css"]
Html.style_ Attr.tableStylesheet
Html.table_ $ traverse_ formatRow table

View File

@ -821,6 +821,7 @@ multiBalanceReportAsHtml ropts mbr =
let
(headingsrow,bodyrows,mtotalsrows) = multiBalanceReportHtmlRows ropts mbr
in do
link_ [rel_ "stylesheet", href_ "hledger.css"]
style_ tableStylesheet
table_ $ mconcat $
[headingsrow]