finished prefixing everything
parent
15709187f7
commit
24ed84d922
228
messages.rkt
228
messages.rkt
|
@ -1,145 +1,145 @@
|
|||
#lang racket/base
|
||||
|
||||
(require "config.rkt")
|
||||
(require (prefix-in config: "config.rkt"))
|
||||
|
||||
(provide (all-defined-out))
|
||||
|
||||
(define messages
|
||||
(hash
|
||||
'show-help
|
||||
(string-append
|
||||
"* " initialize-command ": "
|
||||
"initialize a file in "
|
||||
program-path
|
||||
program-directory
|
||||
program-file
|
||||
"\n"
|
||||
"\x09Example: "
|
||||
"rodo init\n\n"
|
||||
'show-help
|
||||
(string-append
|
||||
config:initialize-command ":\n"
|
||||
"initialize a file in "
|
||||
config:program-path
|
||||
config:program-directory
|
||||
config:program-file
|
||||
"\n"
|
||||
"Example: "
|
||||
"rodo init\n\n"
|
||||
|
||||
"* " list-command ": "
|
||||
"lists items on the list"
|
||||
"\n"
|
||||
"\x09Example: "
|
||||
"rodo ls\n\n"
|
||||
config:list-command ":\n"
|
||||
"lists items on the list"
|
||||
"\n"
|
||||
"Example: "
|
||||
"rodo ls\n\n"
|
||||
|
||||
"* " add-command ": "
|
||||
"adds an item to the list"
|
||||
"\n"
|
||||
"\x09Example: "
|
||||
"rodo add bread\n\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"
|
||||
config:add-command ":\n"
|
||||
"adds an item to the list"
|
||||
"\n"
|
||||
"Example: "
|
||||
"rodo add bread\n\n"
|
||||
"Note: For multi-word items you will need to\n"
|
||||
"surround your item in double quotes as so:\n"
|
||||
"rodo add \"go to the bank\"\n\n"
|
||||
|
||||
"* " remove-command ": "
|
||||
"removes an item from the list\n"
|
||||
"\x09Example: "
|
||||
"rodo rm 1\n"
|
||||
"\x09Note: You may have to run `rodo ls` to see which\n"
|
||||
"\x09number corresponds to which item to remove it.\n")
|
||||
config:remove-command ":\n"
|
||||
"removes an item from the list\n"
|
||||
"Example: "
|
||||
"rodo rm 1\n\n"
|
||||
"Note: You may have to run `rodo ls` to see which\n"
|
||||
"number corresponds to which item to remove it.\n")
|
||||
|
||||
'empty-todo-list
|
||||
"> There is nothing in your list \n"
|
||||
'empty-todo-list
|
||||
"> There is nothing in your list \n"
|
||||
|
||||
'show-usage
|
||||
(string-append
|
||||
"> For usage type "
|
||||
"`" program-name " -h`"
|
||||
" or "
|
||||
"`" program-name " --help`\n")
|
||||
'show-usage
|
||||
(string-append
|
||||
"> For usage type "
|
||||
"`" config:program-name " -h`"
|
||||
" or "
|
||||
"`" config:program-name " --help`\n")
|
||||
|
||||
'creating-folder
|
||||
(string-append
|
||||
"> creating a "
|
||||
program-directory
|
||||
" folder in "
|
||||
program-path " ...\n")
|
||||
'creating-folder
|
||||
(string-append
|
||||
"> creating a "
|
||||
config:program-directory
|
||||
" folder in "
|
||||
config:program-path " ...\n")
|
||||
|
||||
'creating-file
|
||||
(string-append
|
||||
"> creating a "
|
||||
program-file
|
||||
" file in "
|
||||
program-path
|
||||
program-directory " ...\n")
|
||||
'creating-file
|
||||
(string-append
|
||||
"> creating a "
|
||||
config:program-file
|
||||
" file in "
|
||||
config:program-path
|
||||
config:program-directory " ...\n")
|
||||
|
||||
'creation-error
|
||||
(string-append
|
||||
"> Error: Could not create "
|
||||
program-file
|
||||
" in "
|
||||
program-directory
|
||||
program-path ".\n"
|
||||
"> This may be due to directory permissions\n")
|
||||
'creation-error
|
||||
(string-append
|
||||
"> Error: Could not create "
|
||||
config:program-file
|
||||
" in "
|
||||
config:program-directory
|
||||
config:program-path ".\n"
|
||||
"> This may be due to directory permissions\n")
|
||||
|
||||
'file-already-exists
|
||||
(string-append
|
||||
"> Error: "
|
||||
program-name
|
||||
" already exists in "
|
||||
program-path
|
||||
program-directory
|
||||
program-file "\n")
|
||||
'file-already-exists
|
||||
(string-append
|
||||
"> Error: "
|
||||
config:program-name
|
||||
" already exists in "
|
||||
config:program-path
|
||||
config:program-directory
|
||||
config:program-file "\n")
|
||||
|
||||
'successfully-created
|
||||
(string-append
|
||||
"> "
|
||||
program-path
|
||||
program-directory
|
||||
program-file
|
||||
" has been successfully created\n")
|
||||
'successfully-created
|
||||
(string-append
|
||||
"> "
|
||||
config:program-path
|
||||
config:program-directory
|
||||
config:program-file
|
||||
" has been successfully created\n")
|
||||
|
||||
'file-not-found
|
||||
(string-append
|
||||
"> Error: Could not find "
|
||||
program-path
|
||||
program-directory
|
||||
program-file "\n")
|
||||
'file-not-found
|
||||
(string-append
|
||||
"> Error: Could not find "
|
||||
config:program-path
|
||||
config:program-directory
|
||||
config:program-file "\n")
|
||||
|
||||
'init-y/n
|
||||
(string-append
|
||||
"> A "
|
||||
program-file
|
||||
" file will be created in "
|
||||
program-path
|
||||
program-directory "\n"
|
||||
"> Are you sure you want to continue? [y/n]\n")
|
||||
'init-y/n
|
||||
(string-append
|
||||
"> A "
|
||||
config:program-file
|
||||
" file will be created in "
|
||||
config:program-path
|
||||
config:program-directory "\n"
|
||||
"> Are you sure you want to continue? [y/n]\n")
|
||||
|
||||
'try-init
|
||||
(string-append
|
||||
"> Try typing "
|
||||
"`" program-name " init` "
|
||||
"to set it up\n")
|
||||
'try-init
|
||||
(string-append
|
||||
"> Try typing "
|
||||
"`" config:program-name " init` "
|
||||
"to set it up\n")
|
||||
|
||||
'terminating
|
||||
(string-append
|
||||
"> Exiting "
|
||||
program-name
|
||||
" ...\n")
|
||||
'terminating
|
||||
(string-append
|
||||
"> Exiting "
|
||||
config:program-name
|
||||
" ...\n")
|
||||
|
||||
'choose-y/n
|
||||
"> Error: Please choose y or n\n"
|
||||
'choose-y/n
|
||||
"> Error: Please choose y or n\n"
|
||||
|
||||
'not-in-list
|
||||
"> Error: Item does not exist\n"
|
||||
'not-in-list
|
||||
"> Error: Item does not exist\n"
|
||||
|
||||
'item-added-prefix
|
||||
"> Added "
|
||||
'item-added-prefix
|
||||
"> Added "
|
||||
|
||||
'item-added-suffix
|
||||
" to list\n"
|
||||
'item-added-suffix
|
||||
" to list\n"
|
||||
|
||||
'item-removed-prefix
|
||||
"> Removed "
|
||||
'item-removed-prefix
|
||||
"> Removed "
|
||||
|
||||
'item-removed-suffix
|
||||
" from list\n"))
|
||||
'item-removed-suffix
|
||||
" from list\n"))
|
||||
|
||||
(define y/n
|
||||
(hash
|
||||
'yes
|
||||
'("yes" "Yes" "y" "Y")
|
||||
'yes
|
||||
'("yes" "Yes" "y" "Y")
|
||||
|
||||
'no
|
||||
'("no" "No" "n" "N")))
|
||||
'no
|
||||
'("no" "No" "n" "N")))
|
||||
|
|
Loading…
Reference in New Issue