simonmichael/hledger
1
1
Fork 0
mirror of https://github.com/simonmichael/hledger.git synced 2024-12-27 04:13:11 +03:00
Code Issues Projects Releases Wiki Activity

balancesheet: don't bother showing equity, it won't be useful for most of us

Browse Source
This commit is contained in:
Simon Michael 2013-07-23 16:47:54 -07:00
parent d46ddb1d71
commit e4c76acb12
2 changed files with 3 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
MANUAL.md
View File

@ -729,8 +729,8 @@ currently assumes that you have top-level accounts named `income` (or
This command displays a simple
[balance sheet](http://en.wikipedia.org/wiki/Balance_sheet). It currently
assumes that you have top-level accounts named `asset`, `liability` and
`equity` (plural forms also allowed.)
assumes that you have top-level accounts named `asset` and `liability`
(plural forms also allowed.)
#### cashflow

5
hledger/Hledger/Cli/Balancesheet.hs
View File

@ -27,16 +27,13 @@ balancesheet CliOpts{reportopts_=ropts} j = do
let q = queryFromOpts d (withoutBeginDate ropts)
assetreport@(_,assets) = accountsReport ropts (And [q, journalAssetAccountQuery j]) j
liabilityreport@(_,liabilities) = accountsReport ropts (And [q, journalLiabilityAccountQuery j]) j
equityreport@(_,equity) = accountsReport ropts (And [q, journalEquityAccountQuery j]) j
total = assets + liabilities + equity
total = assets + liabilities
LT.putStr $ [lt|Balance Sheet
Assets:
#{unlines $ accountsReportAsText ropts assetreport}
Liabilities:
#{unlines $ accountsReportAsText ropts liabilityreport}
Equity:
#{unlines $ accountsReportAsText ropts equityreport}
Total:
--------------------