;; Delete account

(lambda (uri)
  (let ((query (uri-query uri)))
    (serve-document-header (ext->mime "gmi"))
    (if (null? query)
        (print "No account specified.")
        (let* ((hash (symbol->string (caar query)))
               (account-file (make-pathname "accounts" hash)))
          (if (file-exists? account-file)
              (begin
                (delete-file account-file)
                (print "Garden successfully deleted."))
              (print "Attempted to delete non-existent garden."))))
    (print "\n=> /microbotany/ Return to μBotany")))