slaesvuo/hledger
1
0
Fork 0
Code Issues Pull Requests Actions Packages 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 This command displays a simple
[balance sheet](http://en.wikipedia.org/wiki/Balance_sheet). It currently [balance sheet](http://en.wikipedia.org/wiki/Balance_sheet). It currently
assumes that you have top-level accounts named `asset`, `liability` and assumes that you have top-level accounts named `asset` and `liability`
`equity` (plural forms also allowed.) (plural forms also allowed.)
#### cashflow #### 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) let q = queryFromOpts d (withoutBeginDate ropts)
assetreport@(_,assets) = accountsReport ropts (And [q, journalAssetAccountQuery j]) j assetreport@(_,assets) = accountsReport ropts (And [q, journalAssetAccountQuery j]) j
liabilityreport@(_,liabilities) = accountsReport ropts (And [q, journalLiabilityAccountQuery j]) j liabilityreport@(_,liabilities) = accountsReport ropts (And [q, journalLiabilityAccountQuery j]) j
equityreport@(_,equity) = accountsReport ropts (And [q, journalEquityAccountQuery j]) j total = assets + liabilities
total = assets + liabilities + equity
LT.putStr $ [lt|Balance Sheet LT.putStr $ [lt|Balance Sheet
Assets: Assets:
#{unlines $ accountsReportAsText ropts assetreport} #{unlines $ accountsReportAsText ropts assetreport}
Liabilities: Liabilities:
#{unlines $ accountsReportAsText ropts liabilityreport} #{unlines $ accountsReportAsText ropts liabilityreport}
Equity:
#{unlines $ accountsReportAsText ropts equityreport}
Total: Total:
-------------------- --------------------