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

i finally figured out how to close files in racket

Browse Source
This commit is contained in:
m455 2018-03-19 16:56:52 -04:00
parent 2bf06764ff
commit 35f28df5d3
1 changed files with 9 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
rodo.rkt
View File

@ -1,7 +1,7 @@
#! /usr/bin/env racket
#lang racket/base
(define (display-hash hash-list key)
(define (displayln-hash-ref hash-list key)
(displayln (hash-ref hash-list key)))
(define messages (hash
@ -21,26 +21,27 @@
(define (open/create-file path)
(let ([path (expand-user-path path)])
(open-output-file path
(let ([opened-file (open-output-file path
#:mode 'text
#:exists 'can-update)))
#:exists 'can-update)])
(close-output-port opened-file))))
(define (prompt-user prompt-message)
(display-hash messages prompt-message)
(displayln-hash-ref messages prompt-message)
(let ([user-input (read-line)])
(cond
[(member user-input (hash-ref y/n 'yes))
(display-hash messages 'creating-file)
(displayln-hash-ref messages 'creating-file)
(open/create-file "~/.rodo")]
[(member user-input (hash-ref y/n 'no))
(display-hash messages 'terminating)]
(displayln-hash-ref messages 'terminating)]
[else
(display-hash messages 'choose-y/n)
(displayln-hash-ref messages 'choose-y/n)
(prompt-user 'file-not-found)])))
(define (todo-list-exist?)
(if (file-exists? (expand-user-path "~/.rodo"))
(display-hash messages 'file-exists)
(displayln-hash-ref messages 'file-exists)
(prompt-user 'file-not-found)))
(todo-list-exist?)