From f7823deebc269e4677b24ced45e8a596592c4fd4 Mon Sep 17 00:00:00 2001
From: m455 <jessemilk00@gmail.com>
Date: Tue, 10 Apr 2018 12:53:34 -0400
Subject: [PATCH] splitting functions into different files

---
 config.rkt   |  12 ++++++
 messages.rkt | 105 +++++++++++++++++++++++++++++++++++++++++++++++
 rodo.rkt     | 114 ++-------------------------------------------------
 3 files changed, 120 insertions(+), 111 deletions(-)
 create mode 100644 config.rkt
 create mode 100644 messages.rkt

diff --git a/config.rkt b/config.rkt
new file mode 100644
index 0000000..e94491e
--- /dev/null
+++ b/config.rkt
@@ -0,0 +1,12 @@
+#lang racket/base
+(provide (all-defined-out))
+
+(define program-name "rodo")
+(define program-directory ".rodo/")
+(define program-path "~/")
+(define program-file "todo-list")
+(define remove-command "rm")
+(define add-command "add")
+(define list-command "ls")
+(define initialize-command "init")
+
diff --git a/messages.rkt b/messages.rkt
new file mode 100644
index 0000000..b0132e0
--- /dev/null
+++ b/messages.rkt
@@ -0,0 +1,105 @@
+#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")))
+
diff --git a/rodo.rkt b/rodo.rkt
index 3a4cdb3..354d55b 100755
--- a/rodo.rkt
+++ b/rodo.rkt
@@ -4,16 +4,9 @@
 (require racket/vector 
          racket/file
          racket/string
-         racket/list)
-
-(define program-name "rodo")
-(define program-directory ".rodo/")
-(define program-path "~/")
-(define program-file "todo-list")
-(define remove-command "rm")
-(define add-command "add")
-(define list-command "ls")
-(define initialize-command "init")
+         racket/list
+         "config.rkt"
+         "messages.rkt")
 
 (define (d-hash-ref hash-list key)
   (display (hash-ref hash-list key)))
@@ -21,107 +14,6 @@
 (define (d-vector-ref args key)
   (display (vector-ref args key)))
 
-(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")))
-
 (define (check-for-file)
   (file-exists?
     (expand-user-path