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

imp: areg: html output uses a hledger.css file if any, like balcmds

Browse Source
This commit is contained in:
Simon Michael 2024-09-29 22:12:57 -10:00
parent 4ef1db3725
commit b17f6730d8
1 changed files with 10 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
hledger/Hledger/Cli/Commands/Aregister.hs
View File

@ -134,12 +134,16 @@ accountTransactionsReportItemAsCsvRecord
-- | Render a register report as a HTML snippet.
accountTransactionsReportAsHTML :: CliOpts -> Query -> Query -> AccountTransactionsReport -> TL.Text
accountTransactionsReportAsHTML copts reportq thisacctq items =
L.renderText $ L.table_ (do L.thead_ (L.tr_ (do L.th_ "date"
L.th_ "description"
L.th_ "otheraccounts"
L.th_ "change"
L.th_ "balance"))
L.tbody_ (mconcat (map (htmlRow copts reportq thisacctq) items)))
L.renderText $ do
L.link_ [L.rel_ "stylesheet", href_ "hledger.css"]
L.table_ $ do
L.thead_ $ L.tr_ $ do
L.th_ "date"
L.th_ "description"
L.th_ "otheraccounts"
L.th_ "change"
L.th_ "balance"
L.tbody_ $ mconcat $ map (htmlRow copts reportq thisacctq) items
-- | Render one account register report line item as a HTML table row snippet.
htmlRow :: CliOpts -> Query -> Query -> AccountTransactionsReportItem -> L.Html ()