From: Tim Vaughan <plugd@thelambdalab.xyz>
Date: Fri, 29 May 2020 09:36:26 +0000 (+0200)
Subject: Added missing help file.
X-Git-Url: https://thelambdalab.xyz/gitweb/index.cgi?p=microbotany.git;a=commitdiff_plain;h=5ec203d9e7c983a2f05f7093720f6fd7fb160d9e

Added missing help file.
---

diff --git a/help.scm b/help.scm
new file mode 100755
index 0000000..991a71f
--- /dev/null
+++ b/help.scm
@@ -0,0 +1,22 @@
+(lambda (uri)
+  (import (chicken file)
+          (chicken pathname)
+          (chicken string)
+          uri-common)
+  (let ((query (uri-query uri)))
+    (if (null? query)
+        (print "No account specified.")
+        (begin
+          (serve-document-header (ext->mime "gmi"))
+          (print "# Caring for your plant\n\n"
+                 "Growing a healthy plant is a big job!  Here are the essential points:\n"
+                 "\n"
+                 "* Water your seed at least once in the first 24hrs after planting.\n"
+                 "* Water your plants every day, otherwise its growth may be stunted.̱\n"
+                 "* Important: Plants that are not watered for 5 days will die!\n"
+                 "\n"
+                 "Heed these rules and your plant will thrive!\n"
+                 "\n"
+                 "=> " (uri->string
+                        (update-uri uri path: '(/ "microbotany" "view.scm")))
+                       " Return to your garden")))))