Tidying up some menu items.

[microbotany.git] / view.scm

diff --git a/view.scm b/view.scm
index 83706b4..9544414 100755 (executable)
--- 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.")))))))