simonmichael/hledger
1
1
Fork 0
mirror of https://github.com/simonmichael/hledger.git synced 2024-12-29 13:22:27 +03:00
Code Issues Projects Releases Wiki Activity

imp: close: reorder/clean options more (#2020)

Browse Source
This commit is contained in:
Simon Michael 2023-04-05 11:02:35 -10:00
parent 19ea31dd61
commit 3660118575
1 changed files with 9 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
hledger/Hledger/Cli/Commands/Close.hs
View File

@ -29,16 +29,16 @@ defcloseacct = "equity:opening/closing balances"
closemode = hledgerCommandMode
$(embedFileRelative "Hledger/Cli/Commands/Close.txt")
[flagNone ["open"] (setboolopt "open") "show opening transaction instead of closing (ALE by default)"
,flagNone ["migrate"] (setboolopt "migrate") "show closing and opening transactions (ALE by default)"
,flagNone ["retain"] (setboolopt "retain") "show retain earnings transaction (RX by default)"
,flagReq ["close-desc"] (\s opts -> Right $ setopt "close-desc" s opts) "DESC" "closing transaction's description"
,flagReq ["open-desc"] (\s opts -> Right $ setopt "open-desc" s opts) "DESC" "opening transaction's description"
,flagReq ["close-acct"] (\s opts -> Right $ setopt "close-acct" s opts) "ACCT" "account to close to"
,flagReq ["open-acct"] (\s opts -> Right $ setopt "open-acct" s opts) "ACCT" "account to open from"
[flagNone ["open"] (setboolopt "open") "show an opening transaction (for ALE accounts by default)"
,flagNone ["migrate"] (setboolopt "migrate") "show both closing and opening transactions (for ALE accounts by default)"
,flagNone ["retain"] (setboolopt "retain") "show a retain earnings transaction (for RX accounts by default)"
,flagNone ["show-costs"] (setboolopt "show-costs") "show balances with different costs separately"
,flagNone ["interleaved"] (setboolopt "interleaved") "show source and destination postings together"
,flagNone ["explicit","x"] (setboolopt "explicit") "show all amounts explicitly"
,flagNone ["interleaved"] (setboolopt "interleaved") "keep source and destination postings adjacent"
,flagNone ["show-costs"] (setboolopt "show-costs") "keep balances with different costs separate"
,flagReq ["close-desc"] (\s opts -> Right $ setopt "close-desc" s opts) "DESC" "set closing transaction's description"
,flagReq ["open-desc"] (\s opts -> Right $ setopt "open-desc" s opts) "DESC" "set opening transaction's description"
,flagReq ["close-acct"] (\s opts -> Right $ setopt "close-acct" s opts) "ACCT" "set account to close to"
,flagReq ["open-acct"] (\s opts -> Right $ setopt "open-acct" s opts) "ACCT" "set account to open from"
]
[generalflagsgroup1]
(hiddenflags