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

refactor BalanceView

Browse Source
This commit is contained in:
Simon Michael 2017-07-24 22:56:55 +01:00
parent 9b9a1a7a30
commit 422e0923f1
3 changed files with 15 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -19,10 +19,11 @@ import Hledger
import Hledger.Cli.CliOptions import Hledger.Cli.CliOptions
import Hledger.Cli.BalanceView import Hledger.Cli.BalanceView
bsBV = BalanceView { balancesheetBV = BalanceView {
bvmode = "balancesheet", bvmode = "balancesheet",
bvaliases = ["bs"], bvaliases = ["bs"],
bvhelp = [here|This command displays a simple balance sheet, showing historical ending bvhelp = [here|
This command displays a simple balance sheet, showing historical ending
balances of asset and liability accounts (ignoring any report begin date). balances of asset and liability accounts (ignoring any report begin date).
It assumes that these accounts are under a top-level `asset` or `liability` It assumes that these accounts are under a top-level `asset` or `liability`
account (plural forms also allowed). account (plural forms also allowed).
@ -35,10 +36,10 @@ account (plural forms also allowed).
} }
balancesheetmode :: Mode RawOpts balancesheetmode :: Mode RawOpts
balancesheetmode = balanceviewmode bsBV balancesheetmode = balanceviewmode balancesheetBV
balancesheet :: CliOpts -> Journal -> IO () balancesheet :: CliOpts -> Journal -> IO ()
balancesheet = balanceviewReport bsBV balancesheet = balanceviewReport balancesheetBV
tests_Hledger_Cli_Balancesheet :: Test tests_Hledger_Cli_Balancesheet :: Test
tests_Hledger_Cli_Balancesheet = TestList tests_Hledger_Cli_Balancesheet = TestList

9
hledger/Hledger/Cli/Cashflow.hs
View File

@ -22,10 +22,11 @@ import Hledger
import Hledger.Cli.CliOptions import Hledger.Cli.CliOptions
import Hledger.Cli.BalanceView import Hledger.Cli.BalanceView
cfBV = BalanceView { cashflowBV = BalanceView {
bvmode = "cashflow", bvmode = "cashflow",
bvaliases = ["cf"], bvaliases = ["cf"],
bvhelp = [here|This command displays a simple cashflow statement, showing changes bvhelp = [here|
This command displays a simple cashflow statement, showing changes
in "cash" accounts. It assumes that these accounts are under a top-level in "cash" accounts. It assumes that these accounts are under a top-level
`asset` account and do not contain `receivable` or `A/R` in their name `asset` account and do not contain `receivable` or `A/R` in their name
(plural forms also allowed). (plural forms also allowed).
@ -36,10 +37,10 @@ in "cash" accounts. It assumes that these accounts are under a top-level
} }
cashflowmode :: Mode RawOpts cashflowmode :: Mode RawOpts
cashflowmode = balanceviewmode cfBV cashflowmode = balanceviewmode cashflowBV
cashflow :: CliOpts -> Journal -> IO () cashflow :: CliOpts -> Journal -> IO ()
cashflow = balanceviewReport cfBV cashflow = balanceviewReport cashflowBV
tests_Hledger_Cli_Cashflow :: Test tests_Hledger_Cli_Cashflow :: Test
tests_Hledger_Cli_Cashflow = TestList tests_Hledger_Cli_Cashflow = TestList

9
hledger/Hledger/Cli/Incomestatement.hs
View File

@ -19,10 +19,11 @@ import Hledger
import Hledger.Cli.CliOptions import Hledger.Cli.CliOptions
import Hledger.Cli.BalanceView import Hledger.Cli.BalanceView
isBV = BalanceView { incomestatementBV = BalanceView {
bvmode = "incomestatement", bvmode = "incomestatement",
bvaliases = ["is"], bvaliases = ["is"],
bvhelp = [here|This command displays a simple income statement, showing revenues bvhelp = [here|
This command displays a simple income statement, showing revenues
and expenses during a period. It assumes that these accounts are under a and expenses during a period. It assumes that these accounts are under a
top-level `revenue` or `income` or `expense` account (plural forms top-level `revenue` or `income` or `expense` account (plural forms
also allowed). also allowed).
@ -36,10 +37,10 @@ also allowed).
} }
incomestatementmode :: Mode RawOpts incomestatementmode :: Mode RawOpts
incomestatementmode = balanceviewmode isBV incomestatementmode = balanceviewmode incomestatementBV
incomestatement :: CliOpts -> Journal -> IO () incomestatement :: CliOpts -> Journal -> IO ()
incomestatement = balanceviewReport isBV incomestatement = balanceviewReport incomestatementBV
tests_Hledger_Cli_Incomestatement :: Test tests_Hledger_Cli_Incomestatement :: Test
tests_Hledger_Cli_Incomestatement = TestList tests_Hledger_Cli_Incomestatement = TestList