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

can now create files and check for them

main
m455 2018-04-06 10:34:40 -04:00
parent 4ec14ada08
commit 11d2404fdd
1 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
rodo.rkt
View File

@ -170,7 +170,10 @@
(prompt-user messages 'choose-y/n)]))) (prompt-user messages 'choose-y/n)])))
(define (add-item args) (define (add-item args)
(if (check-for-folder) (if
(and
(check-for-folder)
(check-for-file))
(begin (begin
(d-hash-ref messages 'item-added-prefix) (d-hash-ref messages 'item-added-prefix)
(d-vector-ref args 1) (d-vector-ref args 1)
@ -180,7 +183,10 @@
(d-hash-ref messages 'try-initializing)))) (d-hash-ref messages 'try-initializing))))
(define (remove-item args) (define (remove-item args)
(if (check-for-folder) (if
(and
(check-for-folder)
(check-for-file))
(begin (begin
(d-hash-ref messages 'item-removed-prefix) (d-hash-ref messages 'item-removed-prefix)
(d-vector-ref args 1) (d-vector-ref args 1)