From a3ae4d88f8aaad4bb9674b572708a3860b3ec604 Mon Sep 17 00:00:00 2001 From: Simon Michael Date: Fri, 17 Jul 2020 14:40:00 -0700 Subject: [PATCH] ui: use -t/-l short flags for --tree/--flat, like cli (#1286) --- hledger-ui/Hledger/UI/UIOptions.hs | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) diff --git a/hledger-ui/Hledger/UI/UIOptions.hs b/hledger-ui/Hledger/UI/UIOptions.hs index e1826a29a..3e42dced8 100644 --- a/hledger-ui/Hledger/UI/UIOptions.hs +++ b/hledger-ui/Hledger/UI/UIOptions.hs @@ -35,13 +35,12 @@ uiflags = [ -- "show balance change accumulated across periods (in multicolumn reports)" -- ,flagNone ["historical","H"] (setboolopt "historical") -- "show historical ending balance in each period (includes postings before report start date)\n " - ,flagNone ["flat","F"] (setboolopt "flat") "show accounts as a list (default)" - ,flagNone ["tree","T"] (setboolopt "tree") "show accounts as a tree" + ] + ++ flattreeflags False -- ,flagNone ["present"] (setboolopt "present") "exclude transactions dated later than today (default)" -- ,flagReq ["drop"] (\s opts -> Right $ setopt "drop" s opts) "N" "with --flat, omit this many leading account name components" -- ,flagReq ["format"] (\s opts -> Right $ setopt "format" s opts) "FORMATSTR" "use this custom line format" -- ,flagNone ["no-elide"] (setboolopt "no-elide") "don't compress empty parent accounts on one line" - ] --uimode :: Mode RawOpts uimode = (mode "hledger-ui" (setopt "command" "ui" def)