From e6bd0a3bde2d1b4d12808b12786a3be877c1d77a Mon Sep 17 00:00:00 2001 From: Simon Michael Date: Fri, 17 Oct 2014 16:47:26 -0700 Subject: [PATCH] extra/hledger-register-csv: accept -H/-A/-r (#206) hledger-register-csv.hs now accepts the same -H, -A and -r flags that register does (but not -w, which wouldn't make sense). Note: remember, when running add-ons with the hledger executable, most add-on command flags must be preceded by --. So it's: $ hledger register-csv -- -H --- extra/hledger-register-csv.hs | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) diff --git a/extra/hledger-register-csv.hs b/extra/hledger-register-csv.hs index 7bdcc7b65..e6464f0b5 100755 --- a/extra/hledger-register-csv.hs +++ b/extra/hledger-register-csv.hs @@ -16,12 +16,16 @@ argsmode :: Mode RawOpts argsmode = (defCommandMode ["register-csv"]) { modeHelp = "show matched postings and running total as CSV" ,modeGroupFlags = Group { - groupNamed = [ + groupUnnamed = [ -- copied from Register.hs: + flagNone ["historical","H"] (\opts -> setboolopt "historical" opts) "include prior postings in the running total" + ,flagNone ["average","A"] (\opts -> setboolopt "average" opts) "show a running average instead of the running total (implies --empty)" + ,flagNone ["related","r"] (\opts -> setboolopt "related" opts) "show postings' siblings instead" + ] + ,groupNamed = [ ("Input",inputflags) ,("Reporting",reportflags) ,("Misc",helpflags) ] - ,groupUnnamed = [] ,groupHidden = [] } }