updated help message format
m455
parent
06c068d9b6
commit
15b8f5c4e1
107
src/messages.rkt
107
src/messages.rkt
|
|
@ -7,93 +7,52 @@
|
|||
(define (indent string)
|
||||
(string-append "\t" string))
|
||||
|
||||
(define line-gap-single "\n")
|
||||
(define line-gap-double "\n\n")
|
||||
(define space " ")
|
||||
(define tab "\t")
|
||||
(define tab-double "\t\t")
|
||||
(define newline "\n")
|
||||
(define newline-double "\n\n")
|
||||
|
||||
(define messages
|
||||
(hash
|
||||
'show-help
|
||||
(string-append "rodo"
|
||||
line-gap-double
|
||||
(hash 'show-help (string-append
|
||||
"NAME" newline
|
||||
"====" newline
|
||||
"rodo" newline-double
|
||||
|
||||
"NAME"
|
||||
line-gap-single
|
||||
tab "rodo - A list-management tool"
|
||||
line-gap-double
|
||||
"DESCRIPTION" newline
|
||||
"===========" newline
|
||||
"rodo is a minimalistic list-management tool. It does not use any data formats, and cannot remove multiple items at once." newline-double
|
||||
|
||||
"SYNOPSIS"
|
||||
line-gap-single
|
||||
tab "rodo [command] <args>"
|
||||
line-gap-double
|
||||
"USAGE SYNTAX" newline
|
||||
"============" newline
|
||||
"rodo [command] <args>" newline-double
|
||||
|
||||
"DESCRIPTION"
|
||||
line-gap-single
|
||||
tab "rodo is a minimalistic list-management tool. It does not use any data formats, and cannot remove multiple items at once."
|
||||
line-gap-double
|
||||
tab (format "I made this tool to separate my hobby todos and my important todos. I do this by only using ~a to organize my hobby todos on the command line, and my important todos on a synced calendar elsewhere." config:program-name)
|
||||
line-gap-double
|
||||
"COMMANDS AVAILABLE" newline
|
||||
"==================" newline
|
||||
(car config:initialize-commands) " - " (format "Creates a list file located at ~a" config:list-file) newline-double
|
||||
|
||||
"COMMANDS"
|
||||
line-gap-single
|
||||
;; initialize-command
|
||||
tab (car config:initialize-commands)
|
||||
line-gap-single
|
||||
tab-double (format "Creates a list file located at ~a" config:list-file)
|
||||
line-gap-double
|
||||
(car config:list-commands) " - " "Displays items from your list" newline-double
|
||||
|
||||
;; list-command
|
||||
tab (car config:list-commands)
|
||||
line-gap-single
|
||||
tab-double "Displays items from your list"
|
||||
line-gap-double
|
||||
(car config:add-commands) " <args> - Adds an item to your list" newline-double
|
||||
|
||||
;; add-command
|
||||
tab (car config:add-commands) space "<args>"
|
||||
line-gap-single
|
||||
tab-double "Adds an item to your list"
|
||||
line-gap-double
|
||||
(car config:remove-commands) " <args> - Removes an item from your list" newline-double
|
||||
|
||||
;; remove-command
|
||||
tab (car config:remove-commands) space "<args>"
|
||||
line-gap-single
|
||||
tab-double"Removes an item from your list"
|
||||
line-gap-double
|
||||
"USAGE EXAMPLES" newline
|
||||
"==============" newline
|
||||
(car config:initialize-commands) " usage:" newline
|
||||
(format "~a ~a" config:program-name (car config:initialize-commands)) newline-double
|
||||
|
||||
"USAGE EXAMPLES"
|
||||
line-gap-single
|
||||
;; initialize-command
|
||||
tab (car config:initialize-commands)
|
||||
line-gap-single
|
||||
tab-double (format "~a ~a" config:program-name (car config:initialize-commands))
|
||||
line-gap-double
|
||||
(car config:list-commands) " usage:" newline
|
||||
(format "~a ~a" config:program-name (car config:list-commands)) newline-double
|
||||
|
||||
;; list-command
|
||||
tab (car config:list-commands)
|
||||
line-gap-single
|
||||
tab-double (format "~a ~a" config:program-name (car config:list-commands))
|
||||
line-gap-double
|
||||
(car config:add-commands) " usage:" newline
|
||||
(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
|
||||
|
||||
;; add-command
|
||||
tab (car config:add-commands)
|
||||
line-gap-single
|
||||
tab-double (format "~a ~a this is an item without double quotation marks" config:program-name (car config:add-commands))
|
||||
line-gap-single
|
||||
tab-double (format "~a ~a \"this is an item surrounded by double quotation marks\"" config:program-name (car config:add-commands))
|
||||
line-gap-double
|
||||
(car config:remove-commands) " usage:" newline
|
||||
(format "~a ~a 2" config:program-name (car config:remove-commands)) newline-double
|
||||
|
||||
;; remove-command
|
||||
tab (car config:remove-commands)
|
||||
line-gap-single
|
||||
tab-double (format "~a ~a 2" config:program-name (car config:remove-commands))
|
||||
line-gap-double
|
||||
|
||||
"Can't see the whole help message? Try running:"
|
||||
line-gap-single
|
||||
(format "~a ~a | less" config:program-name (car config:help-commands))
|
||||
line-gap-single)
|
||||
"Can't see the whole help message?" newline
|
||||
"=================================" 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"
|
||||
|
||||
|
|
|
|||
Loading…
Reference in New Issue