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