From 5ec203d9e7c983a2f05f7093720f6fd7fb160d9e Mon Sep 17 00:00:00 2001 From: Tim Vaughan Date: Fri, 29 May 2020 11:36:26 +0200 Subject: [PATCH] Added missing help file. --- help.scm | 22 ++++++++++++++++++++++ 1 file changed, 22 insertions(+) create mode 100755 help.scm 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"))))) -- 2.20.1