#lang racket/base (require (prefix-in config: "config.rkt")) (provide (all-defined-out)) (define messages (hash '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" config:list-command ":\n" "lists items on the list" "\n" "Example: " "rodo ls\n\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" 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" 'show-usage (string-append "> For usage type " "`" config:program-name " -h`" " or " "`" config:program-name " --help`\n") 'creating-folder (string-append "> creating a " config:program-directory " folder in " config:program-path " ...\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 " 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: " config:program-name " already exists in " config:program-path config:program-directory config:program-file "\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 " config:program-path config:program-directory config:program-file "\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 " "`" config:program-name " init` " "to set it up\n") 'terminating (string-append "> Exiting " config:program-name " ...\n") 'choose-y/n "> Error: Please choose y or n\n" 'not-in-list "> Error: Item does not exist\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")))