;; Account deletion confirmation

(lambda (uri)
  (let ((query (uri-query uri)))
    (if (null? query)
        (print "No account specified.")
        (begin
          (serve-document-header (ext->mime "gmi"))
          (print "Are you sure you want to delete your garden?  (This action is irreversible!)")
          (print "\n=> " (uri->string (update-uri uri
                                                 path: '(/ "microbotany" "delete.scm")))
                 " Yes, delete my garden.")
          (print "\n=> " (uri->string (update-uri uri
                                                 path: '(/ "microbotany" "view.scm")))
                 " No, take me back to my garden!")))))