added user message feedback for adding and removing items from lists
parent
cf7602a03d
commit
3f3d645f09
4
rodo.rkt
4
rodo.rkt
|
@ -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?)]
|
||||||
|
|
Loading…
Reference in New Issue