Tidying up some menu items.
authorTim Vaughan <plugd@thelambdalab.xyz>
Fri, 29 May 2020 08:54:49 +0000 (10:54 +0200)
committerTim Vaughan <plugd@thelambdalab.xyz>
Fri, 29 May 2020 08:54:49 +0000 (10:54 +0200)
delete-confirm.scm
delete.scm
view.scm

index 04459c7..3924c35 100755 (executable)
         (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")))
-                 " 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!")))))
index a259061..b258a01 100755 (executable)
@@ -14,6 +14,6 @@
           (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")))
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")))
 
                 (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.")))))))