rodo/init.rkt

#lang racket/base

(require racket/file
         "config.rkt"
         "util.rkt"
         "messages.rkt"
         "io.rkt")

(provide (all-defined-out))

(define (initialize-file)
  (display-to-file
    "--Do not edit this file--\n"
    path
    #:mode 'text
    #:exists 'replace))

(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)
       (initialize-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))))