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