rodo/rodo.rkt

47 lines
1.7 KiB
Racket
Raw Normal View History

2018-03-12 14:02:54 +00:00
#! /usr/bin/env racket
#lang racket/base
2018-03-13 02:19:16 +00:00
(define (display-hash hash-list key)
(displayln (hash-ref hash-list key)))
2018-03-16 13:53:12 +00:00
(define messages (hash
'incorrect-usage "For usage type `rodo -h` or `rodo --help`"
'file-not-found "rodo has not been setup in your home directory\nWould you like to set it up now? [y/n]"
'file-exists ".rodo file exists"
'creating-file "> Creating .rodo file in your home directory..."
'item-added "Item added"
'item-removed "Item removed"
'initializing "Initializing rodo in your home directory"
'terminating "Terminating rodo..."
'choose-y/n "Error: Please choose y or n"))
2018-03-12 14:02:54 +00:00
2018-03-16 13:53:12 +00:00
(define y/n (hash
'yes '("yes" "Yes" "y" "Y")
'no '("no" "No" "n" "N")))
(define (open/create-file path)
(let ([path (expand-user-path path)])
(open-output-file path
#:mode 'text
#:exists 'can-update)))
2018-03-13 16:39:10 +00:00
2018-03-13 02:19:16 +00:00
; just figuring out stuff here
(define (prompt-user prompt-message)
2018-03-16 13:53:12 +00:00
(display-hash messages prompt-message)
2018-03-13 02:19:16 +00:00
(let ([user-input (read-line)])
(cond
2018-03-16 13:53:12 +00:00
[(member user-input (hash-ref y/n 'yes))
(display-hash messages 'creating-file)
(open/create-file "~/.rodo")]
2018-03-16 13:53:12 +00:00
[(member user-input (hash-ref y/n 'no))
(display-hash messages 'terminating)]
2018-03-13 02:19:16 +00:00
[else
2018-03-16 13:53:12 +00:00
(display-hash messages 'choose-y/n)
(prompt-user 'file-not-found)])))
2018-03-13 02:19:16 +00:00
2018-03-12 14:02:54 +00:00
(define (todo-list-exist?)
(if (file-exists? (expand-user-path "~/.rodo"))
2018-03-16 13:53:12 +00:00
(display-hash messages 'file-exists)
(prompt-user 'file-not-found)))
2018-03-12 14:02:54 +00:00
2018-03-16 13:53:12 +00:00
(todo-list-exist?)