help.scm

   1 (lambda (uri)
   2   (let ((query (uri-query uri)))
   3     (if (null? query)
   4         (print "No account specified.")
   5         (begin
   6           (serve-document-header (ext->mime "gmi"))
   7           (print "# Caring for your plant\n\n"
   8                  "Growing a healthy plant is a big job!  Here are the important bits:\n"
   9                  "\n"
  10                  "* Water your seed at least once in the first 24hrs after planting.\n"
  11                  "* To keep your plant growing nicely, be sure to water it every day.\n"
  12                  "* Important: Plants that are not watered for 5 days will die!\n"
  13                  "\n"
  14                  "Heed these rules and your plant will thrive!\n"
  15                  "\n"
  16                  "=> " (uri->string
  17                         (update-uri uri path: '(/ "microbotany" "view.scm")))
  18                        " Return to your garden")))))