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

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

Browse Source
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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
hledger-lib/Hledger/Write/Html/Lucid.hs
View File

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

1
hledger/Hledger/Cli/Commands/Balance.hs
View File

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