The Lambda Lab
/
projects
/
microbotany.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
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"
(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.")))))))