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

register: update --width help

Browse Source
This commit is contained in:
Simon Michael 2015-03-27 08:02:37 -07:00
parent aaff402824
commit b8974c4bcc
1 changed files with 12 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
hledger/Hledger/Cli/Register.hs
View File

@ -1,3 +1,4 @@
{-# LANGUAGE CPP #-}
{-| {-|
A ledger-compatible @register@ command. A ledger-compatible @register@ command.
@ -31,8 +32,17 @@ registermode = (defCommandMode $ ["register"] ++ aliases) {
flagNone ["historical","H"] (\opts -> setboolopt "historical" opts) "include prior postings in the running total" flagNone ["historical","H"] (\opts -> setboolopt "historical" opts) "include prior postings in the running total"
,flagNone ["average","A"] (\opts -> setboolopt "average" opts) "show a running average instead of the running total (implies --empty)" ,flagNone ["average","A"] (\opts -> setboolopt "average" opts) "show a running average instead of the running total (implies --empty)"
,flagNone ["related","r"] (\opts -> setboolopt "related" opts) "show postings' siblings instead" ,flagNone ["related","r"] (\opts -> setboolopt "related" opts) "show postings' siblings instead"
,flagReq ["width","w"] (\s opts -> Right $ setopt "width" s opts) "N" "set output width (default: 80)" ,flagReq ["width","w"] (\s opts -> Right $ setopt "width" s opts) "N"
] (unlines
["set output width (default:"
#ifdef mingw32_HOST_OS
,(show defaultWidth)
#else
,"terminal width"
#endif
,"or COLUMNS. -wN,M sets description width as well)"
])
]
++ outputflags ++ outputflags
,groupHidden = [] ,groupHidden = []
,groupNamed = [generalflagsgroup1] ,groupNamed = [generalflagsgroup1]