tildetown/rodo
2
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

finished prefixing everything

Browse Source
This commit is contained in:
m455 2018-10-10 14:57:00 -04:00
parent 15709187f7
commit 24ed84d922
1 changed files with 114 additions and 114 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

228
messages.rkt
View File

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