help.scm

   1 (lambda (uri)
   2   (import (chicken file)
   3           (chicken pathname)
   4           (chicken string)
   5           uri-common)
   6   (let ((query (uri-query uri)))
   7     (if (null? query)
   8         (print "No account specified.")
   9         (begin
  10           (serve-document-header (ext->mime "gmi"))
  11           (print "# Caring for your plant\n\n"
  12                  "Growing a healthy plant is a big job!  Here are the essential points:\n"
  13                  "\n"
  14                  "* Water your seed at least once in the first 24hrs after planting.\n"
  15                  "* Water your plants every day, otherwise its growth may be stunted.̱\n"
  16                  "* Important: Plants that are not watered for 5 days will die!\n"
  17                  "\n"
  18                  "Heed these rules and your plant will thrive!\n"
  19                  "\n"
  20                  "=> " (uri->string
  21                         (update-uri uri path: '(/ "microbotany" "view.scm")))
  22                        " Return to your garden")))))