X-Git-Url: https://thelambdalab.xyz/gitweb/index.cgi?p=microbotany.git;a=blobdiff_plain;f=view.scm;fp=view.scm;h=9544414efc18da4cf3f38485369e4c6dbfc3af9f;hp=83706b40a5eba035478b5525cd91514ce4c082e9;hb=05f6c994d3eedfe738031b0fd244f3f3df4c7443;hpb=06d6a90e1f3bec7b2474dfe517c0138820439bea

diff --git a/view.scm b/view.scm
index 83706b4..9544414 100755
--- a/view.scm
+++ b/view.scm
@@ -26,7 +26,9 @@
                       (print "You have visited your garden " visits " times.\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 +46,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.")))))))