tildetown
/
rodo
2
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

made rodo's help message easier to read

main
Jesse Laprade 2020-06-15 17:57:56 -04:00
parent 7c7bdf15d4
commit 7e3ed3e25d
1 changed files with 22 additions and 28 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

50
src/messages.rkt
View File

@ -4,8 +4,8 @@
(provide (all-defined-out)) (provide (all-defined-out))
(define tab-full "\t") (define hyphen " - ")
(define tab-half " ") (define indent " ")
(define newline "\n") (define newline "\n")
(define newline-double "\n\n") (define newline-double "\n\n")
@ -14,54 +14,48 @@
'show-help 'show-help
(string-append (string-append
"NAME" newline "NAME" newline
tab-half (format "~a" program-name) newline-double indent (format "~a" program-name)
newline-double
"DESCRIPTION" newline "DESCRIPTION" newline
tab-half (format (string-append "~a is a todo-list program for the command line. " indent (format (string-append "~a is a todo-list program for the command line. "
"~a does not use any data formats, and cannot " "~a does not use any data formats, and cannot "
"remove multiple items at once.") program-name program-name) "remove multiple items at once.")
program-name program-name)
newline-double newline-double
"USAGE SYNTAX" newline "USAGE" newline
tab-half (format "~a [command] <args>" program-name) indent (format "~a [command] [<args>]" program-name)
newline-double newline-double
"COMMANDS AVAILABLE" newline "COMMANDS" newline
tab-half initialize-command newline indent initialize-command hyphen (format "Creates a list file located at ~a" program-file)
tab-full (format "Creates a list file located at ~a" program-file)
newline-double newline-double
tab-half list-command newline indent list-command hyphen "Displays items from your todo list"
tab-full "Displays items from your todo list"
newline-double newline-double
tab-half add-command " <\"A quoted string\">" newline indent add-command " \"A quoted string\"" hyphen "Adds an item to your todo list"
tab-full "Adds an item to your todo list"
newline-double newline-double
tab-half remove-command " <number>" newline indent remove-command " <number>" hyphen "Removes an item from your todo list"
tab-full "Removes an item from your todo list"
newline-double newline-double
"USAGE EXAMPLES" newline "USAGE EXAMPLES" newline
tab-half initialize-command newline indent (format "~a ~a" program-name initialize-command)
tab-full (format "~a ~a" program-name initialize-command) newline
newline-double
tab-half list-command newline indent (format "~a ~a" program-name list-command)
tab-full (format "~a ~a" program-name list-command) newline
newline-double
tab-half add-command newline indent (format "~a ~a \"Go for a walk\"" program-name add-command)
tab-full (format "~a ~a \"Go for a walk\"" program-name add-command) newline
newline-double
tab-half remove-command newline indent (format "~a ~a 2" program-name remove-command)
tab-full (format "~a ~a 2" program-name remove-command)
newline-double newline-double
"If you can't see the whole help message, then try running the following command: " newline "If you can't see the whole help message, then try running the following command: " newline
(format "~a ~a | less" program-name help-command) newline) (format "~a ~a | less" program-name help-command))
'empty-list "> There is nothing in your todo list" 'empty-list "> There is nothing in your todo list"
'show-usage (format "> For usage type the following command:\n~a ~a" program-name help-command) 'show-usage (format "> For usage type the following command:\n~a ~a" program-name help-command)