141 lines
5.3 KiB
Racket
141 lines
5.3 KiB
Racket
#lang racket/base
|
|
|
|
(require (prefix-in config: "config.rkt"))
|
|
|
|
(provide (all-defined-out))
|
|
|
|
(define newline "\n")
|
|
|
|
(define messages
|
|
(hash
|
|
'show-help
|
|
(string-append "\n"
|
|
"Conventions used in this help message\n"
|
|
"====================================="
|
|
"\n\n"
|
|
"[command] - [command]s should be replaced by a command from the Command section below without the surrounding \"[\" and \"]\"s."
|
|
"\n\n"
|
|
"<argument> - <argument>s should be replaced by user input without the surrounding \"<\" and \">\"s."
|
|
"\n\n"
|
|
"Command descriptions\n"
|
|
"===================="
|
|
"\n\n"
|
|
|
|
;; initialize-command
|
|
(format "~a" (car config:initialize-command))
|
|
"\n\n"
|
|
"\t"
|
|
(format "Creates a list in ~a." config:list-file)
|
|
"\n\n"
|
|
|
|
;; list-command
|
|
(format "~a" (car config:list-command))
|
|
"\n\n"
|
|
"\t"
|
|
"Displays items in your list."
|
|
"\n\n"
|
|
|
|
;; add-command
|
|
(format "~a" (car config:add-command))
|
|
"\n\n"
|
|
"\t"
|
|
"Adds an item to your list."
|
|
"\n\n"
|
|
|
|
;; remove-command
|
|
(format "~a" (car config:remove-command))
|
|
"\n\n"
|
|
"\t"
|
|
"Removes an item from your list."
|
|
"\n\n"
|
|
|
|
"Usage examples\n"
|
|
"=============="
|
|
"\n\n"
|
|
;; initialize-command
|
|
(format "~a" (car config:initialize-command))
|
|
"\n\n"
|
|
"\t"
|
|
(format "~a ~a" config:program-name (car config:initialize-command))
|
|
"\n\n"
|
|
|
|
;; list-command
|
|
(format "~a" (car config:list-command))
|
|
"\n\n"
|
|
"\t"
|
|
(format "~a ~a" config:program-name (car config:list-command))
|
|
"\n\n"
|
|
|
|
;; add-command
|
|
(format "~a" (car config:add-command))
|
|
"\n\n"
|
|
"\t"
|
|
(format "~a ~a this is an item without double quotation marks" config:program-name (car config:add-command))
|
|
"\n\n"
|
|
"\t"
|
|
(format "~a ~a \"this is an item surrounded by double quotation marks\"" config:program-name (car config:add-command))
|
|
"\n\n"
|
|
"\t"
|
|
"Note: Grave accents (`) and single quotation marks (\') cannot be used with this command."
|
|
"\n\n"
|
|
|
|
;; remove-command
|
|
(format "~a" (car config:remove-command))
|
|
"\n\n"
|
|
"\t"
|
|
(format "~a ~a 2" config:program-name (car config:remove-command))
|
|
"\n\n"
|
|
"\t"
|
|
"Note: The example above will remove the third item from your list, because the list starts at zero."
|
|
"\n\n"
|
|
|
|
"Can't see the whole help message?\n"
|
|
"================================="
|
|
"\n\n"
|
|
"\t"
|
|
(format "Try running \"~a -h | less\" (without the double quotation marks), so you can use the arrow keys to scroll up and down." config:program-name)
|
|
"\n\n"
|
|
"\t"
|
|
"When you want to quit, type \"q\" (without the double quotation marks)."
|
|
"\n\n")
|
|
|
|
'empty-list "> There is nothing in your list.\n"
|
|
|
|
'show-usage (format "> For usage type \"~a -h\" (without the double quotation marks).\n" config:program-name)
|
|
|
|
'creating (format "> Creating a list in ~a...\n" config:list-file)
|
|
|
|
'creation-error (format "> Error: Could not create a list file in ~a.\n" config:list-file)
|
|
|
|
'file-already-exists (format "> Error: A list file already exists in ~a.\n" config:list-file)
|
|
|
|
'successfully-created (format "> Your list file was successfully created in ~a.\n" config:list-file)
|
|
|
|
'file-not-found (format "> Error: Could not find ~a.\n" config:list-file)
|
|
|
|
'item-not-found "> Error: Could not find that item.\n"
|
|
|
|
'init-y/n (format (string-append "> A list file will be created in ~a.\n"
|
|
"> Are you sure you want to continue? [y/n].\n")
|
|
config:list-file)
|
|
|
|
'try-init (format "> Try typing \"~a ~a\" to set it up (without the double quotation marks).\n"
|
|
config:program-name (car config:initialize-command))
|
|
|
|
'terminating (format "> Exited ~a.\n" config:program-name)
|
|
|
|
'choose-y/n "> Error: Please choose y or n\n"
|
|
|
|
'not-in-list "> Error: Item does not exist\n"
|
|
|
|
'item-added-prefix "> Added "
|
|
|
|
'item-added-suffix " to list\n"
|
|
|
|
'item-removed-prefix "> Removed "
|
|
|
|
'item-removed-suffix " from list\n"))
|
|
|
|
(define y/n (hash 'yes '("yes" "Yes" "y" "Y")
|
|
'no '("no" "No" "n" "N")))
|