131 lines
5.0 KiB
Racket
131 lines
5.0 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"
|
|
(format "If you want to use the ~a or ~a commands, follow the structure below:\n"
|
|
config:initialize-command
|
|
config:list-command)
|
|
(format "~a <command>\n\n"
|
|
config:program-name)
|
|
|
|
(format "If you want to use the ~a or ~a commands, follow the structure below:\n"
|
|
config:add-command
|
|
config:remove-command)
|
|
(format "~a <command> [argument]\n\n" config:program-name)
|
|
|
|
"Note: Replace <command> with one of the Commands below without the surrounding \"<\" and \">\".\n\n"
|
|
|
|
"Commands\n"
|
|
"========\n"
|
|
(format "This section describes the commands available for ~a.\n\n" config:program-name)
|
|
(format "Note: The commands mentioned in this section should replace the \"<command>\" filler text found in the Usage section above.\n\n")
|
|
|
|
;; init
|
|
(format "~a\n" config:initialize-command)
|
|
"====\n"
|
|
(format "Creates ~a in ~a. This is where your todo list will be stored.\n\n"
|
|
config:list-file
|
|
config:program-directory)
|
|
|
|
"Example:\n"
|
|
(format "~a ~a\n\n" config:program-name config:initialize-command)
|
|
|
|
;; ls
|
|
(format "~a\n" config:list-command)
|
|
"====\n"
|
|
"Displays items in your todo list.\n\n"
|
|
|
|
"Example:\n"
|
|
(format "~a ~a\n\n" config:program-name config:list-command)
|
|
|
|
(format "~a [argument(s)]\n" config:add-command)
|
|
"=================\n"
|
|
"Adds an item to the list.\n\n"
|
|
|
|
"Examples:\n"
|
|
(format "~a ~a this is an unquoted item\n" config:program-name config:add-command)
|
|
(format "~a ~a \"this is a quoted item\"\n\n" config:program-name config:add-command)
|
|
|
|
(format "~a [argument]\n" config:remove-command)
|
|
"=============\n"
|
|
"Removes an item from the list.\n\n"
|
|
|
|
"Example:\n"
|
|
(format "~a ~a 1\n\n" config:program-name config:remove-command)
|
|
|
|
(format "Note: You may have to run `~a ~a` to see which number corresponds to which item in your todo list."
|
|
config:program-name
|
|
config:list-command)
|
|
" "
|
|
"In the example above, the first item was removed from the todo list.\n\n"
|
|
|
|
"Can't see the whole help message?\n"
|
|
"=================================\n"
|
|
(format "Try running `~a -h | less` so you can use the arrow keys to scroll up and down."
|
|
config:program-name)
|
|
" "
|
|
"When you want to quit, type `q` (without the grave accents).\n")
|
|
|
|
'empty-todo-list "> There is nothing in your list.\n"
|
|
|
|
'show-usage (format "> For usage type `~a -h` or `~a --help`.\n"
|
|
config:program-name
|
|
config:program-name)
|
|
|
|
'creating (format "> Creating ~a in ~a.\n"
|
|
config:list-file
|
|
config:program-directory)
|
|
|
|
'creation-error (string-append
|
|
(format "> Error: Could not create a(n) ~a in ~a.\n"
|
|
config:list-file
|
|
config:program-directory)
|
|
"> This might be due to directory permissions.\n")
|
|
|
|
'file-already-exists (format "> Error: ~a already exists in ~a~a.\n"
|
|
config:program-name
|
|
config:program-directory
|
|
config:list-file)
|
|
|
|
'successfully-created (format "> ~a has been successfully created in ~a.\n"
|
|
config:program-directory
|
|
config:list-file)
|
|
|
|
'file-not-found (format "> Error: Could not find ~a~a\n"
|
|
config:program-directory
|
|
config:list-file)
|
|
|
|
'init-y/n (string-append
|
|
(format "> ~a will be created in ~a.\n"
|
|
config:list-file
|
|
config:program-directory)
|
|
"> Are you sure you want to continue? [y/n]\n")
|
|
|
|
'try-init (format "> Try typing `~a ~a` to set it up (without the grave accents).\n"
|
|
config:program-name
|
|
config:initialize-command)
|
|
|
|
'terminating (format "> Exiting ~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")))
|