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

imp:print: alphabetise flags, mostly

Browse Source
This commit is contained in:
Simon Michael 2025-09-09 12:15:44 +01:00
parent 3a1e30255c
commit ed5cf569b5
1 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
hledger/Hledger/Cli/Commands/Print.hs
View File

@ -48,17 +48,17 @@ import Hledger.Write.Beancount (commodityToBeancount, tagsToBeancountMetadata)
printmode = hledgerCommandMode printmode = hledgerCommandMode
$(embedFileRelative "Hledger/Cli/Commands/Print.txt") $(embedFileRelative "Hledger/Cli/Commands/Print.txt")
([flagNone ["explicit","x"] (setboolopt "explicit") ([
"show all amounts explicitly" flagNone ["explicit","x"] (setboolopt "explicit") "show all amounts explicitly"
,roundFlag
,flagNone ["invert"] (setboolopt "invert") "display all amounts with reversed sign" ,flagNone ["invert"] (setboolopt "invert") "display all amounts with reversed sign"
,flagNone ["new"] (setboolopt "new") ,flagNone ["location"] (setboolopt "location") "add tags showing file paths and line numbers"
"show only newer-dated transactions added in each file since last run"
,let arg = "DESC" in ,let arg = "DESC" in
flagReq ["match","m"] (\s opts -> Right $ setopt "match" s opts) arg flagReq ["match","m"] (\s opts -> Right $ setopt "match" s opts) arg
("fuzzy search for one recent transaction with description closest to "++arg) ("fuzzy search for one recent transaction with description closest to "++arg)
,flagReq ["base-url"] (\s opts -> Right $ setopt "base-url" s opts) "URLPREFIX" "in html output, generate links to hledger-web, with this prefix. (Usually the base url shown by hledger-web; can also be relative.)" ,flagNone ["new"] (setboolopt "new") "show only newer-dated transactions added in each file since last run"
,flagNone ["location"] (setboolopt "location") "add tags showing file paths and line numbers" ,roundFlag
,flagReq ["base-url"] (\s opts -> Right $ setopt "base-url" s opts) "URLPREFIX"
"in html output, generate links to hledger-web, with this prefix. (Usually the base url shown by hledger-web; can also be relative.)"
,outputFormatFlag ["txt","beancount","csv","tsv","html","fods","json","sql"] ,outputFormatFlag ["txt","beancount","csv","tsv","html","fods","json","sql"]
,outputFileFlag ,outputFileFlag
]) ])