From cc7ba473ec98713cf9532045612323bc04acc11c Mon Sep 17 00:00:00 2001
From: Simon Michael <simon@joyful.com>
Date: Sun, 29 Sep 2024 21:22:38 -1000
Subject: [PATCH] imp: bal: html output will use a hledger.css file, like
 bs/cf/is

---
 hledger-lib/Hledger/Write/Html/Lucid.hs | 1 +
 hledger/Hledger/Cli/Commands/Balance.hs | 1 +
 2 files changed, 2 insertions(+)

diff --git a/hledger-lib/Hledger/Write/Html/Lucid.hs b/hledger-lib/Hledger/Write/Html/Lucid.hs
index 1e1215b0f..d7eed9a8d 100644
--- a/hledger-lib/Hledger/Write/Html/Lucid.hs
+++ b/hledger-lib/Hledger/Write/Html/Lucid.hs
@@ -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
 
diff --git a/hledger/Hledger/Cli/Commands/Balance.hs b/hledger/Hledger/Cli/Commands/Balance.hs
index dea47eee4..dd80da384 100644
--- a/hledger/Hledger/Cli/Commands/Balance.hs
+++ b/hledger/Hledger/Cli/Commands/Balance.hs
@@ -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]