simonmichael/hledger
1
1
Fork 0
mirror of https://github.com/simonmichael/hledger.git synced 2024-09-19 10:17:35 +03:00
Code Issues Projects Releases Wiki Activity

imp: accounts: clarify flag help; prioritise flags in order of help

Browse Source
This commit is contained in:
Simon Michael 2022-10-08 08:31:12 -10:00
parent 4ecc57461a
commit ca5847fc08
1 changed files with 8 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
hledger/Hledger/Cli/Commands/Accounts.hs
View File

@ -37,10 +37,10 @@ accountsmode = hledgerCommandMode
$(embedFileRelative "Hledger/Cli/Commands/Accounts.txt")
(flattreeflags False ++
[flagReq ["drop"] (\s opts -> Right $ setopt "drop" s opts) "N" "flat mode: omit N leading account name parts"
,flagNone ["used","u"] (setboolopt "used") "show only accounts used by transactions"
,flagNone ["declared","d"] (setboolopt "declared") "show only accounts declared by account directive"
,flagNone ["unused"] (setboolopt "unused") "show accounts declared but not used"
,flagNone ["undeclared"] (setboolopt "undeclared") "show accounts used but not declared"
,flagNone ["used","u"] (setboolopt "used") "show accounts used by transactions"
,flagNone ["declared","d"] (setboolopt "declared") "show accounts declared by account directive"
,flagNone ["unused"] (setboolopt "unused") "show only accounts declared but not used"
,flagNone ["undeclared"] (setboolopt "undeclared") "show only accounts used but not declared"
,flagNone ["find"] (setboolopt "find") "find the first account matched by the first command argument (a case-insensitive infix regexp or account name)"
,flagNone ["types"] (setboolopt "types") "also show account types when known"
,flagNone ["positions"] (setboolopt "positions") "also show where accounts were declared"
@ -89,11 +89,11 @@ accounts CliOpts{rawopts_=rawopts, reportspec_=ReportSpec{_rsQuery=query,_rsRepo
$ listofstringopt "args" rawopts
accts = dbg5 "accts to show" $ if
| find_ -> [matchedacct]
| undecl -> matchedundeclaredaccts
| unused -> matchedunusedaccts
| decl && not used -> matcheddeclaredaccts
| not decl && used -> matchedusedaccts
| decl && not used -> matcheddeclaredaccts
| unused -> matchedunusedaccts
| undecl -> matchedundeclaredaccts
| find_ -> [matchedacct]
| otherwise -> matcheddeclaredaccts ++ matchedusedaccts
-- 2. sort them by declaration order (then undeclared accounts alphabetically)