From 5a8b5ed0828fe209dfd7e6477de2e57371d38d62 Mon Sep 17 00:00:00 2001
From: Simon Michael <simon@joyful.com>
Date: Fri, 21 Mar 2014 17:34:58 -0700
Subject: [PATCH] balancesheet: support --flat and --drop, like balance

---
 hledger/Hledger/Cli/Balancesheet.hs | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/hledger/Hledger/Cli/Balancesheet.hs b/hledger/Hledger/Cli/Balancesheet.hs
index dea632c10..d7ae2c82e 100644
--- 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]
     }