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

ui: use -t/-l short flags for --tree/--flat, like cli (#1286)

Browse Source
This commit is contained in:
Simon Michael 2020-07-17 14:40:00 -07:00
parent 3636875a5d
commit a3ae4d88f8
1 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
hledger-ui/Hledger/UI/UIOptions.hs
View File

@ -35,13 +35,12 @@ uiflags = [
-- "show balance change accumulated across periods (in multicolumn reports)" -- "show balance change accumulated across periods (in multicolumn reports)"
-- ,flagNone ["historical","H"] (setboolopt "historical") -- ,flagNone ["historical","H"] (setboolopt "historical")
-- "show historical ending balance in each period (includes postings before report start date)\n " -- "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)" -- ,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 ["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" -- ,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" -- ,flagNone ["no-elide"] (setboolopt "no-elide") "don't compress empty parent accounts on one line"
]
--uimode :: Mode RawOpts --uimode :: Mode RawOpts
uimode = (mode "hledger-ui" (setopt "command" "ui" def) uimode = (mode "hledger-ui" (setopt "command" "ui" def)