From 64a87d6b5f7e095b36a26ca9e2f6b7ec1cc4fd4a Mon Sep 17 00:00:00 2001 From: m455 Date: Tue, 13 Mar 2018 12:39:10 -0400 Subject: [PATCH] updated via script --- rodo.rkt | 12 ++++++++---- 1 file changed, 8 insertions(+), 4 deletions(-) diff --git a/rodo.rkt b/rodo.rkt index 223592b..f8a98bd 100755 --- a/rodo.rkt +++ b/rodo.rkt @@ -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")])))