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

;web: ensure sidebar accounts are in tree mode, fixing a regression

Browse Source
This commit is contained in:
Simon Michael 2020-07-31 18:02:38 -07:00
parent 2ba7bb0428
commit 7df9a40750
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
hledger-web/Hledger/Web/Foundation.hs
View File

@ -119,8 +119,10 @@ instance Yesod App where
hideEmptyAccts <- (== Just "1") . lookup "hideemptyaccts" . reqCookies <$> getRequest hideEmptyAccts <- (== Just "1") . lookup "hideemptyaccts" . reqCookies <$> getRequest
let ropts = reportopts_ (cliopts_ opts) let ropts = reportopts_ (cliopts_ opts)
-- flip the default for items with zero amounts, show them by default ropts' = ropts
ropts' = ropts { empty_ = not (empty_ ropts) } {accountlistmode_ = ALTree -- force tree mode for sidebar
,empty_ = not (empty_ ropts) -- show zero items by default
}
accounts = accounts =
balanceReportAsHtml (JournalR, RegisterR) here hideEmptyAccts j q qopts $ balanceReportAsHtml (JournalR, RegisterR) here hideEmptyAccts j q qopts $
balanceReport ropts' m j balanceReport ropts' m j