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

added user message feedback for adding and removing items from lists

main
m455 2018-04-05 20:54:23 -04:00
parent cf7602a03d
commit 3f3d645f09
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
rodo.rkt
View File

@ -30,7 +30,7 @@
'item-added-suffix " to list\n" 'item-added-suffix " to list\n"
'item-removed-prefix "> Removed " 'item-removed-prefix "> Removed "
'item-removed-suffix "from list\n" 'item-removed-suffix " from list\n"
'terminating (string-append "> Exiting " program-name "...\n"))) 'terminating (string-append "> Exiting " program-name "...\n")))
@ -79,7 +79,9 @@
(d-hash-ref messages 'item-added-suffix)] (d-hash-ref messages 'item-added-suffix)]
[(and (equal? args-length 2) (equal? (vector-member "remove" args) 0)) [(and (equal? args-length 2) (equal? (vector-member "remove" args) 0))
(d-hash-ref messages 'item-removed-prefix)] (d-hash-ref messages 'item-removed-prefix)
(d-vector-ref args 1)
(d-hash-ref messages 'item-removed-suffix)]
[(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?)]