made my hash list more readable
parent
ee0e0507ae
commit
67960042d2
40
rodo.rkt
40
rodo.rkt
|
@ -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 "
|
||||||
|
|
Loading…
Reference in New Issue