1 ;; Account deletion confirmation
4 (let ((query (uri-query uri)))
6 (print "No account specified.")
8 (serve-document-header (ext->mime "gmi"))
9 (print "Are you sure you want to delete your garden? (This action is irreversible!)")
10 (print "\n=> " (uri->string (update-uri uri
11 path: '(/ "microbotany" "delete.scm")))
12 " Yes, delete my garden.")
13 (print "\n=> " (uri->string (update-uri uri
14 path: '(/ "microbotany" "view.scm")))
15 " No, take me back to my garden!")))))