tildetown
/
rodo
2
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

updated via script

main
m455 2018-03-13 12:39:10 -04:00
parent a8c55c6f71
commit 64a87d6b5f
1 changed files with 8 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
rodo.rkt
View File

@ -5,19 +5,23 @@
(displayln (hash-ref hash-list key)))
(define message (hash
'help-messages "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]"
'incorrect-usage-msg "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"
'item-added "Item added"
'item-removed "item removed"
'item-removed "Item removed"
'initializing "Initializing rodo in your home directory"))
(define y-n (hash
'yes '("yes" "Yes" "y" "Y")
'no '("no" "No" "n" "N")))
; just figuring out stuff here
(define (prompt-user prompt-message)
(display-hash message prompt-message)
(let ([user-input (read-line)])
(cond
[(member user-input '("yes" "Yes" "y" "Y"))
[(member user-input (hash-ref y-n 'yes))
(displayln "You chose yes")]
[else
(displayln "you chose something else")])))