Tidying up some menu items.

diff --git a/delete-confirm.scm b/delete-confirm.scm
index 04459c7..3924c35 100755 (executable)
--- a/delete-confirm.scm
+++ b/delete-confirm.scm
@@ -10,10 +10,10 @@
         (print "No account specified.")
         (begin
           (serve-document-header (ext->mime "gmi"))
         (print "No account specified.")
         (begin
           (serve-document-header (ext->mime "gmi"))

-          (print "Are you sure you want to delete your account?  (This action is irreversible!)")
+          (print "Are you sure you want to delete your garden?  (This action is irreversible!)")

           (print "\n=> " (uri->string (update-uri uri
                                                  path: '(/ "microbotany" "delete.scm")))
           (print "\n=> " (uri->string (update-uri uri
                                                  path: '(/ "microbotany" "delete.scm")))

-                 " Yes, delete my account.")
+                 " Yes, delete my garden.")

           (print "\n=> " (uri->string (update-uri uri
                                                  path: '(/ "microbotany" "view.scm")))
                  " No, take me back to my garden!")))))
           (print "\n=> " (uri->string (update-uri uri
                                                  path: '(/ "microbotany" "view.scm")))
                  " No, take me back to my garden!")))))

diff --git a/delete.scm b/delete.scm
index a259061..b258a01 100755 (executable)
--- a/delete.scm
+++ b/delete.scm
@@ -14,6 +14,6 @@
           (if (file-exists? account-file)
               (begin
                 (delete-file account-file)
           (if (file-exists? account-file)
               (begin
                 (delete-file account-file)

-                (print "Account successfully deleted."))
-              (print "Attempted to delete non-existent account."))))
+                (print "Garden successfully deleted."))
+              (print "Attempted to delete non-existent garden."))))

     (print "\n=> /microbotany/ Return to μBotany")))
     (print "\n=> /microbotany/ Return to μBotany")))

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"
                       (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")))
 
                              (uri->string uri) "\n"
                              "Remember to bookmark it to keep it safe!\n")))
 


@@ -44,12 +46,20 @@
                 (print "```")
                 (display-water-level g)
                 (print "```")
                 (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 "\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.")))))))
             (o (exn)
                (print "This garden no longer exists.\n\n"
                       "=> register.scm Register to create another.")))))))