made my hash list more readable

main
m455 2018-04-05 22:02:21 -04:00
parent ee0e0507ae
commit 67960042d2
1 changed files with 34 additions and 6 deletions

View File

@ -15,15 +15,43 @@
(define messages (define messages
(hash (hash
'incorrect-usage (string-append "> For usage type `" program-name " -h` or `" program-name " --help`\n") 'incorrect-usage (string-append
"> For usage type "
"`" program-name " -h`"
" or "
"`" program-name " --help`\n")
'creating (string-append "> Creating a " program-directory " folder in " program-path "...\n") 'creating (string-append
'creation-error (string-append "> Error: Could not create " program-directory " in " program-path ".\n> This may be due to directory permissions\n") "> Creating a "
program-directory
" folder in "
program-path " ...\n")
'already-exists (string-append "> " program-directory " folder already exists in " program-path "\n") 'creation-error (string-append
'successfully-created (string-append "> " program-path program-directory " has been successfully created\n") "> Error: Could not create "
program-directory
" in "
program-path ".\n"
"> This may be due to directory permissions\n")
'already-exists (string-append
"> "
program-directory
" folder already exists in "
program-path "\n")
'successfully-created (string-append
"> "
program-path program-directory
" has been successfully created\n")
'not-found (string-append
"> "
program-directory
" has not been setup in "
program-path
"\n> Would you like to set it up now? [y/n]\n")
'not-found (string-append "> " program-directory " has not been setup in " program-path "\n> Would you like to set it up now? [y/n]\n")
'choose-y/n "> Error: Please choose y or n\n" 'choose-y/n "> Error: Please choose y or n\n"
'item-added-prefix "> Added " 'item-added-prefix "> Added "