X-Git-Url: https://thelambdalab.xyz/gitweb/index.cgi?a=blobdiff_plain;ds=sidebyside;f=view.scm;h=155b71fbfa9ba5305cf4b5646bd82f8e24d938e1;hb=8c6e2d8351ab1e4485ed41b121a0f02ef08eb415;hp=83706b40a5eba035478b5525cd91514ce4c082e9;hpb=603c9be4154b10f0c7d07a402d3f684dd1fd6b46;p=microbotany.git

diff --git a/view.scm b/view.scm
index 83706b4..155b71f 100755
--- a/view.scm
+++ b/view.scm
@@ -2,10 +2,7 @@
 ;;
 
 (lambda (uri)
-  (import
-    (chicken condition)
-    (chicken file)
-    uri-common)
+  (import (chicken io))
   (for-each eval (with-input-from-file "garden.scm" read-list))
   (serve-document-header (ext->mime "gmi"))
   (let ((query (uri-query uri)))
@@ -21,12 +18,12 @@
 
                 (print "# " user "'s garden\n")
                 (if (> visits 1)
-                    (begin
-                      (print "Welcome back, " user "!\n")
-                      (print "You have visited your garden " visits " times.\n"))
+                    (print "Welcome back, " user "!\n")
                     (begin
                       (print "Welcome to your new garden, " user "!\n"
-                             "\nTo visit and chieck on your garden, you'll need to use this link:\n"
+                             "\n"
+                             "## !!Important!!\n\n"
+                             "To visit and check on your garden, you'll need to use this link:\n"
                              (uri->string uri) "\n"
                              "Remember to bookmark it to keep it safe!\n")))
 
@@ -44,12 +41,20 @@
                 (print "```")
                 (display-water-level g)
                 (print "```")
+
+                (print "\n## Menu")
                 (print "\n=> water.scm?" hash " Water plant\n")
 
                 (when (= (garden-prop 'stage-idx g) 5)
                     (print "=> plant-new.scm?" hash " Plant a new seed\n"))
 
-                (print "=> delete-confirm.scm?" hash " Delete garden (irreversible!)"))
+                (print
+                       "=> help.scm?" hash " Caring for your plant (Instructions)\n"
+                       "\n"
+                       "=> delete-confirm.scm?" hash " Delete garden (Irreversible!)\n"
+                       "\n"
+                       "=> ./ μBotany start page"))
+            
             (o (exn)
                (print "This garden no longer exists.\n\n"
                       "=> register.scm Register to create another.")))))))