balancesheet: support --flat and --drop, like balance

2014-03-21 17:34:58 -07:00 · 2014-03-21 17:34:58 -07:00 · 5a8b5ed082
commit 5a8b5ed082
parent 2d1e0d7cd4
1 changed files with 4 additions and 1 deletions
--- a/hledger/Hledger/Cli/Balancesheet.hs
+++ b/hledger/Hledger/Cli/Balancesheet.hs
@ -24,7 +24,10 @@ import Hledger.Cli.Balance
 balancesheetmode = (defCommandMode $ ["balancesheet"]++aliases) {
  modeHelp = "show a balance sheet" `withAliases` aliases
 ,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 = []
    ,groupNamed = [generalflagsgroup1]
    }