5 (for-each eval (with-input-from-file "garden.scm" read-list))
6 (serve-document-header (ext->mime "gmi"))
7 (let ((query (uri-query uri)))
10 (print "=> register.scm Please register first."))
11 (let ((hash (symbol->string (caar query))))
13 (let* ((g (with-input-from-file (make-pathname "accounts" hash) read))
14 (user (garden-prop 'user g))
15 (visits (+ 1 (garden-prop 'visits g))))
16 (garden-prop-set! 'visits visits g)
18 (print "# " user "'s garden\n")
20 (print "Welcome back, " user "!\n")
22 (print "Welcome to your new garden, " user "!\n"
24 "## !!Important!!\n\n"
25 "To visit and check on your garden, you'll need to use this link:\n"
26 (uri->string uri) "\n"
27 "Remember to bookmark it to keep it safe!\n")))
30 (with-output-to-file (make-pathname "accounts" hash)
39 (print "\nWater level:")
41 (display-water-level g)
45 (print "\n=> water.scm?" hash " Water plant\n")
47 (when (= (garden-prop 'stage-idx g) 5)
48 (print "=> plant-new.scm?" hash " Plant a new seed\n"))
51 "=> help.scm?" hash " Caring for your plant (Instructions)\n"
53 "=> delete-confirm.scm?" hash " Delete garden (Irreversible!)\n"
55 "=> ./ μBotany start page"))
58 (print "This garden no longer exists.\n\n"
59 "=> register.scm Register to create another.")))))))