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

boop

main
m455 2018-04-02 15:10:17 -04:00
parent dd399ff6e6
commit 6cb4bc3dc4
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
rodo.rkt
View File

@ -27,7 +27,7 @@
'incorrect-usage (string-append "> For usage type `" program-name " -h` or `" program-name " --help`") 'incorrect-usage (string-append "> For usage type `" program-name " -h` or `" program-name " --help`")
'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]") '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]")
'file-exists (string-append "> " program-file " file exists") 'file-exists-already (string-append "> " program-file " file already exists in " program-path)
'creating-file (string-append "> Creating a " program-file " file in your " program-path " directory...") 'creating-file (string-append "> Creating a " program-file " file in your " program-path " directory...")
'file-exists-now (string-append "> " program-path program-file " have been successfully created") 'file-exists-now (string-append "> " program-path program-file " have been successfully created")
@ -87,7 +87,7 @@
(define (todo-list-exist?) (define (todo-list-exist?)
(if (file-exists? (expand-user-path (string-append program-path program-file))) (if (file-exists? (expand-user-path (string-append program-path program-file)))
(d-hash-ref messages 'file-exists) (d-hash-ref messages 'file-exists-already)
(prompt-initialize 'file-not-found))) (prompt-initialize 'file-not-found)))
(define (main) (define (main)