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

made my hash list more readable

main
m455 2018-04-05 22:05:23 -04:00
parent 67960042d2
commit 099595600e
1 changed files with 12 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
rodo.rkt
View File

@ -62,24 +62,32 @@
'terminating (string-append "> Exiting " program-name " ...\n")))
;; some possible user-input related "mistakes" that will be accepted for input
;; some possible user-input related "mistakes" that
;; will be accepted for input
(define y/n
(hash
'yes '("yes" "Yes" "y" "Y")
'no '("no" "No" "n" "N")))
(define (open/create-file list-name)
(let ([path (expand-user-path (string-append program-path program-directory list-name))])
(let ([path (expand-user-path (string-append
program-path
program-directory
list-name))])
(let ([opened-file (open-output-file path
#:mode 'text
#:exists 'can-update)])
(close-output-port opened-file))))
(define (create-folder)
(make-directory (expand-user-path (string-append program-path program-directory))))
(make-directory (expand-user-path (string-append
program-path
program-directory))))
(define (check-for-folder)
(directory-exists? (expand-user-path (string-append program-path program-directory))))
(directory-exists? (expand-user-path (string-append
program-path
program-directory))))
;; prompt user for file initial file creation
(define (prompt-user chosen-message)