From 05b03ea28bc2102cf7c03f022d7df87da1f774f1 Mon Sep 17 00:00:00 2001
From: m455 <jessemilk00@gmail.com>
Date: Mon, 16 Apr 2018 09:57:38 -0400
Subject: [PATCH] can now remove items without errors, but have to improve the
 process of removing and adding items later

---
 init.rkt |  4 ++--
 util.rkt | 43 +++++++++++++++++++++++--------------------
 2 files changed, 25 insertions(+), 22 deletions(-)

diff --git a/init.rkt b/init.rkt
index 529d40d..24ee935 100644
--- a/init.rkt
+++ b/init.rkt
@@ -9,8 +9,8 @@
 (provide (all-defined-out))
 
 (define (initialize-file)
-  (display-to-file 
-    "\n" 
+  (display-to-file
+    "\n"
     path
     #:mode 'text
     #:exists 'replace))
diff --git a/util.rkt b/util.rkt
index 7153c19..6acd9ee 100644
--- a/util.rkt
+++ b/util.rkt
@@ -24,6 +24,9 @@
          #:line-mode 'any)])
     todo-list))
 
+(define (list-empty? lst)
+  (empty? (rest (file->string-list lst))))
+
 (define (quote-item-in-list lst args)
   (display
     (string-append 
@@ -41,29 +44,32 @@
     string-append
     (map
       number->string
-      (range (length lst)))
-    lst))
+      (rest (range (length lst)))) 
+    (rest lst)))                 
 
 (define (indent-list)
   (lambda (lst)
     (string-append ". " lst)))
 
 (define (prettify-list)
-    (display
-      (string-join
-        (number-list (map (indent-list) (file->string-list path)))
-        "\n"
-        #:after-last "\n")))
+  (display
+    (string-join
+      (number-list (map (indent-list) (file->string-list path)))
+      "\n"
+      #:after-last "\n")))
 
 (define (show-list)
-  (if
-    (and
-      (check-for-folder)
-      (check-for-file))
-    (prettify-list)
-    (begin
+  (cond
+    [(and
+       (check-for-folder)
+       (check-for-file))
+     (if
+       (list-empty? path)
+       (d-hash-ref messages 'empty-todo-list)
+       (prettify-list))]
+    [else
       (d-hash-ref messages 'file-not-found)
-      (d-hash-ref messages 'try-init))))
+      (d-hash-ref messages 'try-init)]))
 
 (define (add-item-to-file args)
   (let ([args (string-append args "\n")])
@@ -89,8 +95,7 @@
 
 (define (remove-item-from-file args)
   (d-hash-ref messages 'item-removed-prefix)
-  (quote-item-in-list 
-    (file->string-list path) args)
+  (quote-item-in-list (file->string-list path) args)
   (d-hash-ref messages 'item-removed-suffix)
   (let ([new-list
           (remove (list-ref 
@@ -106,11 +111,9 @@
 
 (define (remove-item args)
   (cond
-    [(< (length (file->string-list path)) 1)
-     (d-hash-ref messages 'empty-(file->string-list path))]
+    [(list-empty? path)
+     (d-hash-ref messages 'empty-todo-list)]
     [(and
-       (number? (string->number (vector-ref args 1)))
-       (< (string->number (vector-ref args 1)) (vector-length args))
        (check-for-folder)
        (check-for-file))
      (remove-item-from-file (vector-ref args 1))]