From 24ed84d92234ef0d362c01962cc78507ae664907 Mon Sep 17 00:00:00 2001 From: m455 Date: Wed, 10 Oct 2018 14:57:00 -0400 Subject: [PATCH] finished prefixing everything --- messages.rkt | 228 +++++++++++++++++++++++++-------------------------- 1 file changed, 114 insertions(+), 114 deletions(-) diff --git a/messages.rkt b/messages.rkt index 297c8ef..cfc1f78 100644 --- a/messages.rkt +++ b/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")))