154 lines
5.1 KiB
Racket
154 lines
5.1 KiB
Racket
#lang racket/base
|
|
|
|
(require (prefix-in config: "config.rkt"))
|
|
|
|
(provide (all-defined-out))
|
|
|
|
(define messages
|
|
(hash
|
|
'show-help (string-append
|
|
"Usage\n"
|
|
"=====\n"
|
|
"If you are using the "
|
|
"<" config:initialize-command ">" " or "
|
|
"<" config:list-command ">" " commands, follow the structure below:\n"
|
|
config:program-name " <command>\n"
|
|
"\n"
|
|
|
|
"If you are using the "
|
|
"<" config:add-command ">" " or "
|
|
"<" config:remove-command ">" " commands, follow the structure below:\n"
|
|
config:program-name " <command> [argument]\n"
|
|
"\n"
|
|
|
|
"Commands\n"
|
|
"========\n"
|
|
|
|
"<" config:initialize-command ">" ":\n"
|
|
"Create a file in "
|
|
config:program-directory
|
|
config:program-file
|
|
" where your todo list will be stored\n"
|
|
"Example:\n"
|
|
config:program-name " "
|
|
config:initialize-command "\n"
|
|
"\n"
|
|
|
|
"<" config:list-command ">" ":\n"
|
|
"Displays items in the list\n"
|
|
"Example:\n"
|
|
config:program-name " "
|
|
config:list-command "\n"
|
|
"\n"
|
|
|
|
"<" config:add-command ">" " "
|
|
"[argument]:\n"
|
|
"Adds an item to the list\n"
|
|
"Example:\n"
|
|
config:program-name " "
|
|
config:add-command " "
|
|
"bread\n"
|
|
config:program-name " "
|
|
config:add-command " "
|
|
"this is an unquoted task\n"
|
|
config:program-name " "
|
|
config:add-command " "
|
|
"\"this is a quoted task which isn't any different from an unquoted task\"\n"
|
|
"\n"
|
|
|
|
"<" config:remove-command ">" " "
|
|
"[argument]:\n"
|
|
"Removes an item from the list\n"
|
|
"Example:\n"
|
|
config:program-name " " config:remove-command " " "1\n"
|
|
"\n"
|
|
|
|
"Note:\n"
|
|
"You may have to run "
|
|
"`" config:program-name " " config:list-command "`" " "
|
|
"see which number corresponds to which item in the list."
|
|
" In the example above, the first item was removed from the list\n"
|
|
"\n"
|
|
|
|
"Can't see the whole help message?\n"
|
|
"=================================\n"
|
|
"Try running "
|
|
"`" config:program-name " -h | less` to use the arrow keys "
|
|
"to scroll up and down through the help message, then when you "
|
|
"want to quit, just type `q` (without the grave accents)\n")
|
|
|
|
'empty-todo-list "> There is nothing in your list \n"
|
|
|
|
'show-usage (string-append
|
|
"> For usage type "
|
|
"`" config:program-name " -h`"
|
|
" or "
|
|
"`" config:program-name " --help`\n")
|
|
|
|
'creating (string-append
|
|
"> Creating "
|
|
config:program-file
|
|
" file in "
|
|
config:program-directory "\n")
|
|
|
|
'creation-error (string-append
|
|
"> Error: Could not create "
|
|
config:program-file
|
|
" in "
|
|
config:program-directory
|
|
".\n"
|
|
"> This may be due to directory permissions\n")
|
|
|
|
'file-already-exists (string-append
|
|
"> Error: "
|
|
config:program-name
|
|
" already exists in "
|
|
config:program-directory
|
|
config:program-file "\n")
|
|
|
|
'successfully-created (string-append
|
|
"> "
|
|
config:program-directory
|
|
config:program-file
|
|
" has been successfully created\n")
|
|
|
|
'file-not-found (string-append
|
|
"> Error: Could not find "
|
|
config:program-directory
|
|
config:program-file "\n")
|
|
|
|
'init-y/n (string-append
|
|
"> A "
|
|
config:program-file
|
|
" file will be created in the directory "
|
|
config:program-directory "\n"
|
|
"> Are you sure you want to continue? [y/n]\n")
|
|
|
|
'try-init (string-append
|
|
"> Try typing "
|
|
"`" config:program-name " init` "
|
|
"to set it up\n")
|
|
|
|
'terminating (string-append
|
|
"> Exiting "
|
|
config:program-name
|
|
"\n")
|
|
|
|
'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")))
|