From 27bfaaee40e3c9b06a932a0ce1affe6e2bcbdc64 Mon Sep 17 00:00:00 2001
From: m455 <jessemilk00@gmail.com>
Date: Mon, 2 Apr 2018 11:37:33 -0400
Subject: [PATCH] i dont remember what i did in this one

---
 rodo.rkt | 35 ++++++++++++++++++++++++++++++++---
 1 file changed, 32 insertions(+), 3 deletions(-)

diff --git a/rodo.rkt b/rodo.rkt
index 55a9462..3b2bed9 100755
--- a/rodo.rkt
+++ b/rodo.rkt
@@ -1,30 +1,42 @@
 #! /usr/bin/env racket
 #lang racket/base
+(require json)
 
+;; set the name of the program here
 (define program-name "rodo")
 
+;; set which path the program will live in
 (define program-path "~/.")
 
+;; because I don't want to type `(display (hash-ref...` over and over again
 (define (displayln-hash-ref hash-list key)
   (displayln (hash-ref hash-list key)))
 
+;; define all messages for quick access
 (define messages 
   (hash 
     'incorrect-usage (string-append "> For usage type `" program-name " -h` or `" program-name " --help`")
     'file-not-found (string-append "> " program-name " has not been setup in your home directory\n> Would you like to set it up now? [y/n]")
     'file-exists (string-append "> ." program-name " file exists")
     'creating-file (string-append "> Creating ." program-name " file in your home directory...")
-    'item-added "> Item added"
-    'item-removed "> Item removed"
+    
+    ;; temporary thing
+    'item-added (string-append "> Added ") 
+
+    ;; todo change `item` to command-line argument for add and remove
+    ;; 'item-added (string-append "> Added " (vector-ref (current-command-line-arguments) 1)) 
+    ;; 'item-removed "> Item removed" ;; todo change `item` to command-line argument
     'initializing (string-append "> Initializing " program-name " in your home directory")
-    'terminating (string-append "> Terminating " program-name "...")
+    'terminating (string-append "> Exiting " program-name "...")
     'choose-y/n "> Error: Please choose y or n"))
 
+;; some possible user-input related "mistakes" that will be accepted for input
 (define y/n 
   (hash
     'yes '("yes" "Yes" "y" "Y")
     'no '("no" "No" "n" "N")))
 
+;; yet again, less typing for opening a file
 (define (open/create-file path)
   (let ([path (expand-user-path path)])
     (let ([opened-file (open-output-file path
@@ -32,6 +44,7 @@
                                          #:exists 'can-update)])
       (close-output-port opened-file))))
 
+;; talk with user if something goes wrong/right 
 (define (prompt-user prompt-message)
   (displayln-hash-ref messages prompt-message)
   (display "> ")
@@ -46,9 +59,25 @@
         (displayln-hash-ref messages 'choose-y/n)
         (prompt-user 'file-not-found)])))
 
+(define (add-to-list args)
+  ;; (let ([item (vector-ref args 1)])
+  (displayln-hash-ref messages 'item-added))
+
+(define (check-args args)
+  (vector-length (args)))
+
 (define (todo-list-exist?)
   (if (file-exists? (expand-user-path (string-append program-path program-name)))
     (displayln-hash-ref messages 'file-exists)
     (prompt-user 'file-not-found)))
 
+;; todo get command-line args
+#|(define (todo-list-exist?)
+    (if (file-exists? (expand-user-path (string-append program-path program-name)))
+      (begin
+        (displayln-hash-ref messages 'file-exists)
+        (add-to-list (current-command-line-arguments)))
+      (prompt-user 'file-not-found)))
+|#
+
 (todo-list-exist?)