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

incomestatement, cashflow: support --flat and --drop as well

Browse Source
This commit is contained in:
Simon Michael 2014-03-21 17:41:22 -07:00
parent 5a8b5ed082
commit d815cca069
2 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -27,7 +27,10 @@ import Hledger.Cli.Balance
cashflowmode = (defCommandMode ["cashflow","cf"]) { cashflowmode = (defCommandMode ["cashflow","cf"]) {
modeHelp = "show a cashflow statement" `withAliases` ["cf"] modeHelp = "show a cashflow statement" `withAliases` ["cf"]
,modeGroupFlags = Group { ,modeGroupFlags = Group {
groupUnnamed = [] groupUnnamed = [
flagNone ["flat"] (\opts -> setboolopt "flat" opts) "show full account names, unindented"
,flagReq ["drop"] (\s opts -> Right $ setopt "drop" s opts) "N" "with --flat, omit this many leading account name components"
]
,groupHidden = [] ,groupHidden = []
,groupNamed = [generalflagsgroup1] ,groupNamed = [generalflagsgroup1]
} }

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

@ -24,7 +24,10 @@ import Hledger.Cli.Balance
incomestatementmode = (defCommandMode $ ["incomestatement"]++aliases) { incomestatementmode = (defCommandMode $ ["incomestatement"]++aliases) {
modeHelp = "show an income statement" `withAliases` aliases modeHelp = "show an income statement" `withAliases` aliases
,modeGroupFlags = Group { ,modeGroupFlags = Group {
groupUnnamed = [] groupUnnamed = [
flagNone ["flat"] (\opts -> setboolopt "flat" opts) "show full account names, unindented"
,flagReq ["drop"] (\s opts -> Right $ setopt "drop" s opts) "N" "with --flat, omit this many leading account name components"
]
,groupHidden = [] ,groupHidden = []
,groupNamed = [generalflagsgroup1] ,groupNamed = [generalflagsgroup1]
} }