6d8b8a3390
Most non-manual help desk pages are now in /help/servlets/home.ss Servlets are now x-expr based instead of string based. See instructions in /help/launch.ss if you want to try the online version. svn: r7160
29 lines
1.3 KiB
Scheme
29 lines
1.3 KiB
Scheme
(module howtodrscheme mzscheme
|
|
(require (lib "servlet.ss" "web-server")
|
|
"../private/manuals.ss"
|
|
"private/html.ss")
|
|
(provide interface-version timeout start)
|
|
(define interface-version 'v1)
|
|
(define timeout +inf.0)
|
|
(define (start initial-request)
|
|
(with-errors-to-browser
|
|
send/finish
|
|
(lambda ()
|
|
(html-page
|
|
#:title "DrScheme"
|
|
#:bodies `((h1 "DrScheme")
|
|
"DrScheme is PLT's flagship programming environment. "
|
|
"See " (a ((href "/servlets/scheme/how.ss")) "Software & Components")
|
|
" for a guide to the full suite of PLT tools."
|
|
(ul (li (b (a ([href ,(get-manual-index "tour")])) "Tour")
|
|
": An introduction to DrScheme")
|
|
(li (b ,(manual-entry "drscheme"
|
|
"graphical interface"
|
|
"Interface Essentials"))
|
|
": Quick-start jump into the user manual")
|
|
(li (b (a ([href "/servlets/scheme/what.ss"])
|
|
"Languages"))
|
|
": Languages supported by DrScheme")
|
|
(li (b ,(main-manual-page "drscheme"))
|
|
": The complete user manual"))))))))
|