From bcc30385051e1e967f5bf1f1ef1ba8bf05519d36 Mon Sep 17 00:00:00 2001
From: m455 <jessemilk00@gmail.com>
Date: Mon, 9 Apr 2018 19:40:47 -0400
Subject: [PATCH] cleaning up show-list function

---
 rodo.rkt | 35 ++++++++++++++++++++---------------
 1 file changed, 20 insertions(+), 15 deletions(-)

diff --git a/rodo.rkt b/rodo.rkt
index 59909a5..8bf49ea 100755
--- a/rodo.rkt
+++ b/rodo.rkt
@@ -118,24 +118,29 @@
     'no 
     '("no" "No" "n" "N")))
 
+(define (create-bullets)
+  (lambda (lst)
+    (string-append
+      bullet
+      " "
+      lst)))
+
 (define (show-list)
-  (let ([path
-          (expand-user-path
-            (string-append
-              program-path
-              program-directory
-              program-file))])
-    (let ([todo-items 
-            (file->lines path
-                         #:mode 'text
-                         #:line-mode 'linefeed)])
+  (let 
+    ([path
+       (expand-user-path
+         (string-append
+           program-path
+           program-directory
+           program-file))])
+    (let 
+      ([todo-items 
+         (file->lines path
+                      #:mode 'text
+                      #:line-mode 'linefeed)])
       (display
         (string-join
-          (map (lambda (lst)
-                 (string-append
-                   bullet
-                   " "
-                   lst))
+          (map (create-bullets) 
                todo-items) "\n")))))
 
 (define (add-item-to-file item)