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

help cleanups

Browse Source
This commit is contained in:
Simon Michael 2009-01-25 08:44:14 +00:00
parent 1a8ba720fd
commit 991d3ce909
1 changed files with 9 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
Options.hs
View File

@ -19,9 +19,10 @@ timeprogname = "hours"
timelogpath = "~/.timelog" timelogpath = "~/.timelog"
timelogenvvar = "TIMELOG" timelogenvvar = "TIMELOG"
usagehdr = usagehdr = printf (
"Usage: "++progname++" [OPTION] COMMAND [ACCTPATTERNS] [-- DESCPATTERNS]\n" ++ "Usage: one of\n" ++
"or: "++timeprogname++" [OPTIONS] [PERIOD [COMMAND [PATTERNS]]]\n" ++ " %s [OPTIONS] COMMAND [ACCTPATTERNS] [-- DESCPATTERNS]\n" ++
" %s [OPTIONS] [PERIOD [COMMAND [PATTERNS]]]\n" ++
"\n" ++ "\n" ++
"Commands (can be abbreviated):\n" ++ "Commands (can be abbreviated):\n" ++
" balance - show account balances\n" ++ " balance - show account balances\n" ++
@ -38,19 +39,21 @@ usagehdr =
#endif #endif
"\n" ++ "\n" ++
"Options (before command, unless using --options-anywhere):" "Options (before command, unless using --options-anywhere):"
) progname timeprogname
usageftr = usageftr = printf (
"\n" ++ "\n" ++
"All dates can be y/m/d or ledger-style smart dates like \"last month\".\n" ++ "All dates can be y/m/d or ledger-style smart dates like \"last month\".\n" ++
"\n" ++ "\n" ++
"Account and description patterns are regular expressions which filter by\n" ++ "Account and description patterns are regular expressions which filter by\n" ++
"account name and entry description. Prefix a pattern with - to negate it,\n" ++ "account name and entry description. Prefix a pattern with - to negate it,\n" ++
"and separate account and description patterns with --.\n" ++ "and separate account and description patterns with --.\n" ++
"(With --options-anywhere, use ^ and ^^. \""++timeprogname++"\" implies --options-anywhere.)\n" ++ "(With --options-anywhere, use ^ and ^^. \"%s\" implies --options-anywhere.)\n" ++
"\n" ++ "\n" ++
"Also: "++progname++" [-v] test [TESTPATTERNS] to run self-tests.\n" ++ "Also: %s [-v] test [TESTPATTERNS] to run self-tests.\n" ++
"\n" "\n"
) timeprogname progname
usage = usageInfo usagehdr options ++ usageftr usage = usageInfo usagehdr options ++ usageftr