rodo/rodo.rkt

#! /usr/bin/env racket
#lang racket/base

(require json racket/vector)

(define program-name "rodo")
(define program-file ".rodo")
(define program-path "~/")

(define (d-hash-ref hash-list key)
  (displayln (hash-ref hash-list key)))

;; if no command-line arguments are called this will throw an error, even if the function is never called :(
;;(define (add-to-list)
;;  (let ([args (vector-ref (current-command-line-arguments) 1)])
;;    (string-append "> Added " args " to list")))

;;(define (remove-from-list)
;;  (let ([args (vector-ref (current-command-line-arguments) 1)])
;;    (string-append "> Removed " args " from list")))

;; define all messages for quick access

(define messages 
  (hash 
    'incorrect-usage (string-append "> For usage type `" program-name " -h` or `" program-name " --help`")
    'file-creating (string-append "> Creating a " program-file " file in your " program-path " directory...")
    'file-creation-error (string-append "> Error: Could not create " program-file " in your " program-path " directory.\n> This may be due to directory permissions")
    'file-already-exists (string-append "> " program-file " file already exists in " program-path)
    'file-successfully-created (string-append "> " program-path program-file " have been successfully created") 
    'file-not-found (string-append "> " program-file " has not been setup in your " program-path " directory\n> Would you like to set it up now? [y/n]")
    'item-added "> Added item to list" 
    'item-removed "> Added item to list"
    '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
                                         #:mode 'text
                                         #:exists 'can-update)])
      (close-output-port opened-file))))

;; prompt user for file initial file creation 
(define (prompt-user chosen-message)
  (d-hash-ref messages chosen-message)
  (display "> ")
  (let ([user-input (read-line)])
    (cond
      [(member user-input (hash-ref y/n 'yes))  
       (d-hash-ref messages 'file-creating)
       (open/create-file (string-append program-path program-file))
       (if (file-exists? (expand-user-path (string-append program-path program-file)))
         (d-hash-ref messages 'file-successfully-created)
         (d-hash-ref messages 'file-creation-error))]
      [(member user-input (hash-ref y/n 'no))  
       (d-hash-ref messages 'terminating)]

      [else 
        (prompt-user 'choose-y/n)])))

(define (check-args args)
  (let ([args-length (vector-length args)])
    (cond
      [(or (equal? args-length 0) (> args-length 2))
       (d-hash-ref messages 'incorrect-usage)]
      [(and (equal? args-length 2) (equal? (vector-member "add" args) 0))
       (d-hash-ref messages 'item-added)]
      [(and (equal? args-length 2) (equal? (vector-member "remove" args) 0))
       (d-hash-ref messages 'item-removed)]
      [(and (equal? args-length 1) (equal? (vector-member "init" args) 0))
       (todo-list-exist?)])))

;; does the file exist that holds the list(s?)
(define (todo-list-exist?)
  (if (file-exists? (expand-user-path (string-append program-path program-file)))
    (d-hash-ref messages 'file-already-exists)
    (prompt-user 'file-not-found)))

(define (main)
  (check-args (current-command-line-arguments)))

(main)