107 lines
1.9 KiB
Racket
107 lines
1.9 KiB
Racket
#lang racket/base
|
|
|
|
(require "config.rkt")
|
|
|
|
(provide (all-defined-out))
|
|
|
|
(define messages
|
|
(hash
|
|
'show-usage
|
|
(string-append
|
|
"> For usage type "
|
|
"`" program-name " -h`"
|
|
" or "
|
|
"`" program-name " --help`\n")
|
|
|
|
'creating-folder
|
|
(string-append
|
|
"> creating a "
|
|
program-directory
|
|
" folder in "
|
|
program-path " ...\n")
|
|
|
|
'creating-file
|
|
(string-append
|
|
"> creating a "
|
|
program-file
|
|
" file in "
|
|
program-path
|
|
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")
|
|
|
|
'file-already-exists
|
|
(string-append
|
|
"> Error: "
|
|
program-name
|
|
" already exists in "
|
|
program-path
|
|
program-directory
|
|
program-file "\n")
|
|
|
|
'successfully-created
|
|
(string-append
|
|
"> "
|
|
program-path
|
|
program-directory
|
|
program-file
|
|
" has been successfully created\n")
|
|
|
|
'file-not-found
|
|
(string-append
|
|
"> Error: Could not find "
|
|
program-path
|
|
program-directory
|
|
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")
|
|
|
|
'try-init
|
|
(string-append
|
|
"> Try typing "
|
|
"`" program-name " init` "
|
|
"to set it up\n")
|
|
|
|
'terminating
|
|
(string-append
|
|
"> Exiting "
|
|
program-name
|
|
" ...\n")
|
|
|
|
'choose-y/n
|
|
"> Error: Please choose y or n\n"
|
|
|
|
'item-added-prefix
|
|
"> Added "
|
|
|
|
'item-added-suffix
|
|
" to list\n"
|
|
|
|
'item-removed-prefix
|
|
"> Removed "
|
|
|
|
'item-removed-suffix
|
|
" from list\n"))
|
|
|
|
(define y/n
|
|
(hash
|
|
'yes
|
|
'("yes" "Yes" "y" "Y")
|
|
|
|
'no
|
|
'("no" "No" "n" "N")))
|