finished prefixing everything
This commit is contained in:
		
							parent
							
								
									15709187f7
								
							
						
					
					
						commit
						24ed84d922
					
				
							
								
								
									
										228
									
								
								messages.rkt
									
									
									
									
									
								
							
							
						
						
									
										228
									
								
								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")))
 | 
			
		||||
 | 
			
		||||
		Loading…
	
	
			
			x
			
			
		
	
		Reference in New Issue
	
	Block a user