rodo/messages.rkt

#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")))