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

updated the help message format

main
Jesse Laprade 2020-05-27 13:13:13 -04:00
parent d81be7d605
commit 28c5477eb7
1 changed files with 48 additions and 47 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

53
src/messages.rkt
View File

@ -7,52 +7,53 @@
(define (indent string) (define (indent string)
(string-append "\t" string)) (string-append "\t" string))
(define tab-full "\t")
(define tab-half " ")
(define newline "\n") (define newline "\n")
(define newline-double "\n\n") (define newline-double "\n\n")
(define messages (define messages
(hash 'show-help (string-append (hash
'show-help
(string-append
"NAME" newline "NAME" newline
"====" newline tab-half (format "~a" config:program-name) newline-double
(format "~a" config:program-name) newline-double
"DESCRIPTION" newline "DESCRIPTION" newline
"===========" newline tab-half (format "~a is a todo-list program for the command line. ~a does not use any data formats, and cannot remove multiple items at once." config:program-name config:program-name) newline-double
(format "~a is a todo-list program for the command line. ~a does not use any data formats, and cannot remove multiple items at once." config:program-name config:program-name) newline-double
"USAGE SYNTAX" newline "USAGE SYNTAX" newline
"============" newline tab-half (format "~a [command] <args>" config:program-name) newline-double
(format "~a [command] <args>" config:program-name) newline-double
"COMMANDS AVAILABLE" newline "COMMANDS AVAILABLE" newline
"==================" newline tab-half (car config:initialize-commands) newline
(car config:initialize-commands) " - " (format "Creates a list file located at ~a" config:list-file) newline-double tab-full (format "Creates a list file located at ~a" config:list-file) newline-double
(car config:list-commands) " - " "Displays items from your list" newline-double tab-half (car config:list-commands) newline
tab-full "Displays items from your list" newline-double
(car config:add-commands) " <args> - Adds an item to your list" newline-double tab-half (car config:add-commands) " <args>" newline
tab-full "Adds an item to your list" newline-double
(car config:remove-commands) " <args> - Removes an item from your list" newline-double tab-half (car config:remove-commands) " <args>" newline
tab-full "Removes an item from your list" newline-double
"USAGE EXAMPLES" newline "USAGE EXAMPLES" newline
"==============" newline tab-half (car config:initialize-commands) newline
(car config:initialize-commands) " usage:" newline tab-full (format "~a ~a" config:program-name (car config:initialize-commands)) newline-double
(format "~a ~a" config:program-name (car config:initialize-commands)) newline-double
(car config:list-commands) " usage:" newline tab-half (car config:list-commands) newline
(format "~a ~a" config:program-name (car config:list-commands)) newline-double tab-full (format "~a ~a" config:program-name (car config:list-commands)) newline-double
(car config:add-commands) " usage:" newline tab-half (car config:add-commands) newline
(format "~a ~a this is an item without double quotation marks" config:program-name (car config:add-commands)) newline tab-full (format "~a ~a this is an item without double quotation marks" config:program-name (car config:add-commands)) newline
(format "~a ~a \"this is an item surrounded by double quotation marks\"" config:program-name (car config:add-commands)) newline-double tab-full (format "~a ~a \"this is an item surrounded by double quotation marks\"" config:program-name (car config:add-commands)) newline-double
(car config:remove-commands) " usage:" newline tab-half (car config:remove-commands) newline
(format "~a ~a 2" config:program-name (car config:remove-commands)) newline-double tab-full (format "~a ~a 2" config:program-name (car config:remove-commands)) newline-double
"Can't see the whole help message?" newline "If you can't see the whole help message, then try running the following command: " newline
"=================================" newline tab-half (format "~a ~a | less" config:program-name (car config:help-commands)) newline)
"Try running the command below:" newline
(format "~a ~a | less" config:program-name (car config:help-commands)) newline)
'empty-list "> There is nothing in your list\n" 'empty-list "> There is nothing in your list\n"