fix: web: Do not hide empty accounts if they have non-empty subaccounts. (#1237)

hledger-web/Hledger/Web/Widget/Common.hs

@@ -84,6 +84,8 @@ balanceReportAsHtml (journalR, registerR) here hideEmpty j q qopts (items, total
     l = ledgerFromJournal Any j
     indent a = preEscapedString $ concat $ replicate (2 + 2 * a) " "
     hasSubAccounts acct = maybe True (not . null . asubs) (ledgerAccount l acct)
+    isInterestingAccount acct = maybe False isInteresting $ ledgerAccount l acct
+      where isInteresting a = not (mixedAmountLooksZero (aebalance a)) || any isInteresting (asubs a)
     matchesAcctSelector acct = Just True == ((`matchesAccount` acct) <$> inAccountQuery qopts)
 
 accountQuery :: AccountName -> Text

hledger-web/templates/balance-report.hamlet

@@ -7,8 +7,8 @@
 $forall (acct, adisplay, aindent, abal) <- items
   <tr
      :matchesAcctSelector acct:.inacct
-     :mixedAmountLooksZero abal && hideEmpty:.hide>
-    <td .acct :mixedAmountLooksZero abal:.empty>
+     :hideEmpty && not (isInterestingAccount acct):.hide>
+    <td .acct :not (isInterestingAccount acct):.empty>
       <div .ff-wrapper>
         \#{indent aindent}
         <a.acct-name href="@?{(registerR, [("q", replaceInacct q $ accountQuery acct)])}"