rodo/messages.rkt

141 lines
2.7 KiB
Racket
Raw Normal View History

#lang racket/base
2018-04-12 18:25:19 +00:00
(require "config.rkt")
2018-04-12 18:25:19 +00:00
(provide (all-defined-out))
2018-04-12 18:25:19 +00:00
(define messages
(hash
2018-04-13 05:02:48 +00:00
'show-help
(string-append
"* " initialize-command ": "
"initialize a file in "
program-path
program-directory
program-file
"\n"
"\x09Example: "
"rodo init\n\n"
"* " list-command ": "
"lists items on the list"
"\n"
"\x09Example: "
"rodo rm 1\n\n"
"* " add-command ": "
"adds an item to the list"
"\n"
"\x09Note: For multi-word items you will need to\n"
"\x09surround your item in double quotes as so:\n"
"\x09rodo add \"go to the bank\"\n"
"\x09Example: "
"rodo add bread\n\n"
"* " remove-command ": "
"removes an item from the list\n"
"\x09Note: You may have to run `rodo ls` to see which\n"
"\x09number corresponds to which item to remove it.\n"
"\x09Example: "
"rodo rm 1\n")
2018-04-12 18:25:19 +00:00
'show-usage
(string-append
"> For usage type "
"`" program-name " -h`"
" or "
"`" program-name " --help`\n")
2018-04-12 18:25:19 +00:00
'creating-folder
(string-append
"> creating a "
program-directory
" folder in "
program-path " ...\n")
2018-04-12 18:25:19 +00:00
'creating-file
(string-append
"> creating a "
program-file
" file in "
program-path
program-directory " ...\n")
2018-04-12 18:25:19 +00:00
'creation-error
(string-append
2018-04-12 18:25:19 +00:00
"> Error: Could not create "
program-file
" in "
2018-04-12 18:25:19 +00:00
program-directory
program-path ".\n"
"> This may be due to directory permissions\n")
2018-04-12 18:25:19 +00:00
'file-already-exists
(string-append
"> Error: "
program-name
" already exists in "
program-path
program-directory
program-file "\n")
2018-04-12 18:25:19 +00:00
'successfully-created
(string-append
"> "
program-path
program-directory
program-file
2018-04-12 18:25:19 +00:00
" has been successfully created\n")
2018-04-12 18:25:19 +00:00
'file-not-found
(string-append
"> Error: Could not find "
program-path
program-directory
program-file "\n")
2018-04-12 18:25:19 +00:00
'init-y/n
(string-append
"> A "
2018-04-12 18:25:19 +00:00
program-file
" file will be created in "
program-path
program-directory "\n"
"> Are you sure you want to continue? [y/n]\n")
2018-04-12 18:25:19 +00:00
'try-init
(string-append
"> Try typing "
"`" program-name " init` "
"to set it up\n")
2018-04-12 18:25:19 +00:00
'terminating
(string-append
"> Exiting "
program-name
" ...\n")
'choose-y/n
"> Error: Please choose y or n\n"
2018-04-12 18:25:19 +00:00
'item-added-prefix
"> Added "
2018-04-12 18:25:19 +00:00
'item-added-suffix
" to list\n"
2018-04-12 18:25:19 +00:00
'item-removed-prefix
"> Removed "
2018-04-12 18:25:19 +00:00
'item-removed-suffix
" from list\n"))
2018-04-12 18:25:19 +00:00
(define y/n
(hash
2018-04-12 18:25:19 +00:00
'yes
'("yes" "Yes" "y" "Y")
2018-04-12 18:25:19 +00:00
'no
'("no" "No" "n" "N")))