updated via script

README.md

@@ -12,4 +12,3 @@ You can try it out while it's being developed (**note: it requires that you have
 `./rodo add "go to the bank"` -> add "go to the bank" to the list
 
 `./rodo ls` -> list your todo list items
-

args.rkt

@@ -0,0 +1,37 @@
+#lang racket/base
+
+(require racket/vector
+         "config.rkt"
+         "todo-file.rkt"
+         "init.rkt"
+         "list-hash.rkt"
+         "messages.rkt")
+
+(provide (all-defined-out))
+
+(define (check-args args)
+  (let
+    ([args-length (vector-length args)])
+    (cond
+      [(and
+         (equal? args-length 1)
+         (equal? (vector-member list-command args) 0))
+       (show-list)]
+
+      [(and
+         (equal? args-length 2)
+         (equal? (vector-member add-command args) 0))
+       (add-item args)]
+
+      [(and
+         (equal? args-length 2)
+         (equal? (vector-member remove-command args) 0))
+       (remove-item args)]
+
+      [(and
+         (equal? args-length 1)
+         (equal? (vector-member initialize-command args) 0))
+       (initialize)]
+
+      [else
+        (d-hash-ref messages 'show-usage)])))

config.rkt

@@ -1,4 +1,5 @@
 #lang racket/base
+
 (provide (all-defined-out))
 
 (define program-name "rodo")
@@ -9,4 +10,3 @@
 (define add-command "add")
 (define list-command "ls")
 (define initialize-command "init")
-

init.rkt

@@ -0,0 +1,38 @@
+#lang racket/base
+
+(require "config.rkt"
+         "list-hash.rkt"
+         "messages.rkt"
+         "io.rkt")
+
+(provide (all-defined-out))
+
+(define (init-prompt hash-list key)
+  (d-hash-ref hash-list key)
+  (display "> ")
+  (let
+    ([user-input (read-line)])
+    (cond
+      [(member user-input (hash-ref y/n 'yes))
+       (d-hash-ref messages 'creating-folder)
+       (d-hash-ref messages 'creating-file)
+       (create-folder)
+       (create-file)
+       (if
+         (and
+           (check-for-folder)
+           (check-for-file))
+         (d-hash-ref messages 'successfully-created)
+         (d-hash-ref messages 'creation-error))]
+
+      [(member user-input (hash-ref y/n 'no))
+       (d-hash-ref messages 'terminating)]
+
+      [else
+        (init-prompt messages 'choose-y/n)])))
+
+(define (initialize)
+  (if (check-for-file)
+    (d-hash-ref messages 'file-already-exists)
+    (begin
+      (init-prompt messages 'init-y/n))))

io.rkt

@@ -0,0 +1,43 @@
+#lang racket/base
+
+(require "config.rkt")
+
+(provide (all-defined-out))
+
+(define (check-for-file)
+  (file-exists?
+    (expand-user-path
+      (string-append
+        program-path
+        program-directory
+        program-file))))
+
+(define (create-file)
+  (let
+    ([path
+       (expand-user-path
+         (string-append
+           program-path
+           program-directory
+           program-file))])
+    (let
+      ([opened-file
+         (open-output-file
+           path
+           #:mode 'text
+           #:exists 'can-update)])
+      (close-output-port opened-file))))
+
+(define (check-for-folder)
+  (directory-exists?
+    (expand-user-path
+      (string-append
+        program-path
+        program-directory))))
+
+(define (create-folder)
+  (make-directory
+    (expand-user-path
+      (string-append
+        program-path
+        program-directory))))

list-hash.rkt

@@ -0,0 +1,11 @@
+#lang racket/base
+
+(require "config.rkt")
+
+(provide (all-defined-out))
+
+(define (d-hash-ref hash-list key)
+  (display (hash-ref hash-list key)))
+
+(define (d-vector-ref args key)
+  (display (vector-ref args key)))

messages.rkt

@@ -1,5 +1,7 @@
 #lang racket/base
+
 (require "config.rkt")
+
 (provide (all-defined-out))
 
 (define messages
@@ -102,4 +104,3 @@
 
     'no
     '("no" "No" "n" "N")))
-

rodo.rkt

@@ -1,196 +1,7 @@
 #! /usr/bin/env racket
 #lang racket/base
 
-(require racket/vector 
-         racket/file
-         racket/string
-         racket/list
-         "config.rkt"
-         "messages.rkt")
-
-(define (d-hash-ref hash-list key)
-  (display (hash-ref hash-list key)))
-
-(define (d-vector-ref args key)
-  (display (vector-ref args key)))
-
-(define (check-for-file)
-  (file-exists?
-    (expand-user-path
-      (string-append
-        program-path
-        program-directory
-        program-file))))
-
-(define (create-file)
-  (let 
-    ([path 
-       (expand-user-path 
-         (string-append 
-           program-path 
-           program-directory
-           program-file))])
-    (let 
-      ([opened-file 
-         (open-output-file 
-           path
-           #:mode 'text
-           #:exists 'can-update)])
-      (close-output-port opened-file))))
-
-(define (check-for-folder)
-  (directory-exists? 
-    (expand-user-path 
-      (string-append 
-        program-path 
-        program-directory))))
-
-(define (create-folder)
-  (make-directory 
-    (expand-user-path 
-      (string-append 
-        program-path 
-        program-directory))))
-
-(define (make-numbered lst)
-  (map
-   string-append
-   (map
-    number->string
-        (range (length lst)))
-   lst))
-
-(define (add-spaces)
-  (lambda (lst)
-    (string-append ". " lst)))
-
-(define (show-list-from-file)
-  (let 
-    ([path
-       (expand-user-path
-         (string-append
-           program-path
-           program-directory
-           program-file))])
-    (let 
-      ([todo-list 
-         (file->lines path
-                      #:mode 'text
-                      #:line-mode 'linefeed)])
-      (display
-        (string-join
-          (make-numbered (map (add-spaces) todo-list)) 
-          "\n"
-          #:after-last "\n")))))
-
-(define (show-list)
-  (if 
-    (and
-      (check-for-folder)
-      (check-for-file))
-    (show-list-from-file)
-    (begin
-      (d-hash-ref messages 'file-not-found)
-      (d-hash-ref messages 'try-init))))
-
-(define (add-item-to-file item)
-  (let ([item (string-append item "\n")])
-    (let
-      ([path
-         (expand-user-path
-           (string-append
-             program-path
-             program-directory
-             program-file))])
-      (display-to-file item 
-                       path
-                       #:mode 'text
-                       #:exists 'append))))
-
-(define (add-item args)
-  (if 
-    (and
-      (check-for-folder)
-      (check-for-file))
-    (begin
-      (add-item-to-file (vector-ref args 1))
-      (d-hash-ref messages 'item-added-prefix) 
-      (d-vector-ref args 1) 
-      (d-hash-ref messages 'item-added-suffix))
-    (begin
-      (d-hash-ref messages 'file-not-found)
-      (d-hash-ref messages 'try-init))))
-
-(define (remove-item args)
-  (if 
-    (and
-      (check-for-folder)
-      (check-for-file))
-    (begin
-      ;; TODO (remove-item-from-file (vector-ref args 1))
-      (d-hash-ref messages 'item-removed-prefix) 
-      (d-vector-ref args 1) 
-      (d-hash-ref messages 'item-removed-suffix))
-    (begin
-      (d-hash-ref messages 'file-not-found)
-      (d-hash-ref messages 'try-init))))
-
-(define (check-args args)
-  (let 
-    ([args-length (vector-length args)])
-    (cond
-      [(and 
-         (equal? args-length 1) 
-         (equal? (vector-member list-command args) 0))
-       (show-list)]
-
-      [(and 
-         (equal? args-length 2) 
-         (equal? (vector-member add-command args) 0))
-       (add-item args)]
-
-      [(and 
-         (equal? args-length 2) 
-         (equal? (vector-member remove-command args) 0))
-       (remove-item args)]
-
-      [(and 
-         (equal? args-length 1) 
-         (equal? (vector-member initialize-command args) 0))
-       (initialize)]
-
-      [else 
-        (d-hash-ref messages 'show-usage)])))
-
-(define (init-prompt hash-list key)
-  (d-hash-ref hash-list key)
-  (display "> ")
-  (let 
-    ([user-input (read-line)])
-    (cond
-      [(member user-input (hash-ref y/n 'yes))  
-       (d-hash-ref messages 'creating-folder)
-       (d-hash-ref messages 'creating-file)
-       (create-folder)
-       (create-file)
-       (if 
-         (and 
-           (check-for-folder) 
-           (check-for-file))
-         (d-hash-ref messages 'successfully-created)
-         (d-hash-ref messages 'creation-error))]
-
-      [(member user-input (hash-ref y/n 'no))  
-       (d-hash-ref messages 'terminating)]
-
-      [else 
-        (init-prompt messages 'choose-y/n)])))
-
-(define (initialize)
-  (if (check-for-file)
-    (d-hash-ref messages 'file-already-exists)
-    (begin
-      (init-prompt messages 'init-y/n))))
+(require "args.rkt")
 
 (define (main)
   (check-args (current-command-line-arguments)))

todo-file.rkt

@@ -0,0 +1,94 @@
+#lang racket/base
+
+(require racket/list
+         racket/file
+         racket/string
+         "config.rkt"
+         "io.rkt"
+         "list-hash.rkt"
+         "messages.rkt")
+
+(provide (all-defined-out))
+
+(define (make-numbered lst)
+  (map
+    string-append
+    (map
+      number->string
+      (range (length lst)))
+    lst))
+
+(define (add-spaces)
+  (lambda (lst)
+    (string-append ". " lst)))
+
+(define (show-list-from-file)
+  (let
+    ([path
+       (expand-user-path
+         (string-append
+           program-path
+           program-directory
+           program-file))])
+    (let
+      ([todo-list
+         (file->lines path
+                      #:mode 'text
+                      #:line-mode 'linefeed)])
+      (display
+        (string-join
+          (make-numbered (map (add-spaces) todo-list))
+          "\n"
+          #:after-last "\n")))))
+
+(define (show-list)
+  (if
+    (and
+      (check-for-folder)
+      (check-for-file))
+    (show-list-from-file)
+    (begin
+      (d-hash-ref messages 'file-not-found)
+      (d-hash-ref messages 'try-init))))
+
+(define (add-item-to-file item)
+  (let ([item (string-append item "\n")])
+    (let
+      ([path
+         (expand-user-path
+           (string-append
+             program-path
+             program-directory
+             program-file))])
+      (display-to-file item
+                       path
+                       #:mode 'text
+                       #:exists 'append))))
+
+(define (add-item args)
+  (if
+    (and
+      (check-for-folder)
+      (check-for-file))
+    (begin
+      (add-item-to-file (vector-ref args 1))
+      (d-hash-ref messages 'item-added-prefix)
+      (d-vector-ref args 1)
+      (d-hash-ref messages 'item-added-suffix))
+    (begin
+      (d-hash-ref messages 'file-not-found)
+      (d-hash-ref messages 'try-init))))
+
+(define (remove-item args)
+  (if
+    (and
+      (check-for-folder)
+      (check-for-file))
+    (begin
+      ;; TODO (remove-item-from-file (vector-ref args 1))
+      (d-hash-ref messages 'item-removed-prefix)
+      (d-vector-ref args 1)
+      (d-hash-ref messages 'item-removed-suffix))
+    (begin
+      (d-hash-ref messages 'file-not-found)
+      (d-hash-ref messages 'try-init))))