From 690777df9f7dd32616985e608f45d49d1ed20932 Mon Sep 17 00:00:00 2001 From: Jesse Laprade Date: Wed, 27 May 2020 13:32:10 -0400 Subject: [PATCH] blah --- src/messages.rkt | 88 ++++++++++++++++++++++++------------------------ 1 file changed, 44 insertions(+), 44 deletions(-) diff --git a/src/messages.rkt b/src/messages.rkt index 9a50a2b..54dde4a 100644 --- a/src/messages.rkt +++ b/src/messages.rkt @@ -19,76 +19,76 @@ (define messages (hash - 'show-help - (string-append - "NAME" newline - tab-half (format "~a" program-name) newline-double + 'show-help + (string-append + "NAME" newline + tab-half (format "~a" program-name) newline-double - "DESCRIPTION" newline - tab-half (format "~a is a todo-list program for the command line. ~a does not use any data formats, and cannot remove multiple items at once." program-name program-name) newline-double + "DESCRIPTION" newline + tab-half (format "~a is a todo-list program for the command line. ~a does not use any data formats, and cannot remove multiple items at once." program-name program-name) newline-double - "USAGE SYNTAX" newline - tab-half (format "~a [command] " program-name) newline-double + "USAGE SYNTAX" newline + tab-half (format "~a [command] " program-name) newline-double - "COMMANDS AVAILABLE" newline - tab-half initialize-command newline - tab-full (format "Creates a list file located at ~a" list-file) newline-double + "COMMANDS AVAILABLE" newline + tab-half initialize-command newline + tab-full (format "Creates a list file located at ~a" list-file) newline-double - tab-half list-command newline - tab-full "Displays items from your list" newline-double + tab-half list-command newline + tab-full "Displays items from your list" newline-double - tab-half add-command " " newline - tab-full "Adds an item to your list" newline-double + tab-half add-command " " newline + tab-full "Adds an item to your list" newline-double - tab-half remove-command " " newline - tab-full "Removes an item from your list" newline-double + tab-half remove-command " " newline + tab-full "Removes an item from your list" newline-double - "USAGE EXAMPLES" newline - tab-half initialize-command newline - tab-full (format "~a ~a" program-name initialize-command) newline-double + "USAGE EXAMPLES" newline + tab-half initialize-command newline + tab-full (format "~a ~a" program-name initialize-command) newline-double - tab-half list-command newline - tab-full (format "~a ~a" program-name list-command) newline-double + tab-half list-command newline + tab-full (format "~a ~a" program-name list-command) newline-double - tab-half add-command newline - tab-full (format "~a ~a this is an item without double quotation marks" program-name add-command) newline - tab-full (format "~a ~a \"this is an item surrounded by double quotation marks\"" program-name add-command) newline-double + tab-half add-command newline + tab-full (format "~a ~a this is an item without double quotation marks" program-name add-command) newline + tab-full (format "~a ~a \"this is an item surrounded by double quotation marks\"" program-name add-command) newline-double - tab-half remove-command newline - tab-full (format "~a ~a 2" program-name remove-commands) newline-double + tab-half remove-command newline + tab-full (format "~a ~a 2" program-name remove-commands) newline-double - "If you can't see the whole help message, then try running the following command: " newline - tab-half (format "~a ~a | less" program-name help-command)) newline) + "If you can't see the whole help message, then try running the following command: " newline + tab-half (format "~a ~a | less" program-name help-command) newline) - 'empty-list "> There is nothing in your list\n" + 'empty-list "> There is nothing in your list\n" - 'show-usage (format "> For usage type ~a -h\n" program-name) + 'show-usage (format "> For usage type ~a -h\n" program-name) - 'creating (format "> Creating a list at ~a...\n" list-file) + 'creating (format "> Creating a list at ~a...\n" list-file) - 'creation-error (format "> Error: Could not create a list file at ~a\n" list-file) + 'creation-error (format "> Error: Could not create a list file at ~a\n" list-file) - 'file-already-exists (format "> Error: A list file already exists at ~a\n" list-file) + 'file-already-exists (format "> Error: A list file already exists at ~a\n" list-file) - 'successfully-created (format "> Your list file was successfully created at ~a\n" list-file) + 'successfully-created (format "> Your list file was successfully created at ~a\n" list-file) - 'file-not-found (format "> Error: Could not find ~a\n" list-file) + 'file-not-found (format "> Error: Could not find ~a\n" list-file) - 'item-not-found "> Error: Could not find that item\n" + 'item-not-found "> Error: Could not find that item\n" - 'init-y/n (format "> A list file will be created at ~a\n> Are you sure you want to continue? [y/n]\n" list-file) + 'init-y/n (format "> A list file will be created at ~a\n> Are you sure you want to continue? [y/n]\n" list-file) - 'try-init (format "> Try typing the following to setup ~a:\n~a ~a\n" program-name program-name initialize-command) + 'try-init (format "> Try typing the following to setup ~a:\n~a ~a\n" program-name program-name initialize-command) - 'terminating (format "> Exited ~a\n" program-name) + 'terminating (format "> Exited ~a\n" program-name) - '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 "> Added \"~a\" to your list\n" + 'item-added "> Added \"~a\" to your list\n" - 'item-removed "> Removed \"~a\" from your list\n") + 'item-removed "> Removed \"~a\" from your list\n") (define y/n