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

changed some parameter names

main
m455 2018-04-02 22:10:59 -04:00
parent 69d94542b2
commit 7eccb1f7f7
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
rodo.rkt
View File

@ -10,6 +10,7 @@
(define (d-hash-ref hash-list key) (define (d-hash-ref hash-list key)
(displayln (hash-ref hash-list key))) (displayln (hash-ref hash-list key)))
;; if no command-line arguments are called this will throw an error, even if the function is never called :(
;;(define (add-to-list) ;;(define (add-to-list)
;; (let ([args (vector-ref (current-command-line-arguments) 1)]) ;; (let ([args (vector-ref (current-command-line-arguments) 1)])
;; (string-append "> Added " args " to list"))) ;; (string-append "> Added " args " to list")))
@ -50,7 +51,7 @@
#:exists 'can-update)]) #:exists 'can-update)])
(close-output-port opened-file)))) (close-output-port opened-file))))
;; talk with user if something goes wrong/right ;; prompt user for file initial file creation
(define (prompt-user chosen-message) (define (prompt-user chosen-message)
(d-hash-ref messages chosen-message) (d-hash-ref messages chosen-message)
(display "> ") (display "> ")
@ -62,8 +63,10 @@
(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-successfully-created) (d-hash-ref messages 'file-successfully-created)
(d-hash-ref messages 'file-creation-error))] (d-hash-ref messages 'file-creation-error))]
[(member user-input (hash-ref y/n 'no)) [(member user-input (hash-ref y/n 'no))
(d-hash-ref messages 'terminating)] (d-hash-ref messages 'terminating)]
[else [else
(prompt-user 'choose-y/n)]))) (prompt-user 'choose-y/n)])))
@ -82,6 +85,7 @@
[(and (equal? args-length 1) (equal? (vector-member "init" args) 0)) [(and (equal? args-length 1) (equal? (vector-member "init" args) 0))
(todo-list-exist?)]))) (todo-list-exist?)])))
;; does the file exist that holds the list(s?)
(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-already-exists) (d-hash-ref messages 'file-already-exists)