suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Contents of deleted servlets are in home.ss.

Browse Source 
Added launch.ss to omitted files in info.ss.

svn: r7162
This commit is contained in:
Jens Axel Soegaard 2007-08-25 20:19:24 +00:00
parent 02dde4ec4b
commit 68cd3e23d6
6 changed files with 2 additions and 166 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
collects/help/info.ss
View File

@ -15,4 +15,5 @@
"Mr: (require (lib \"help-desk.ss\" \"help\"))")
(define mred-launcher-libraries (list "help.ss"))
(define mred-launcher-names (list "Help Desk"))
(define install-collection "installer.ss"))
(define install-collection "installer.ss")
(define compile-omit-files '("launch.ss")))

29
collects/help/servlets/howtodrscheme.ss
View File

@ -1,29 +0,0 @@
(module howtodrscheme mzscheme
(require "private/headelts.ss"
"../private/manuals.ss"
(lib "servlet.ss" "web-server"))
(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
(head ,hd-css ,@hd-links (title "DrScheme"))
(body
(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"))))))))

35
collects/help/servlets/howtoprogram.ss
View File

@ -1,35 +0,0 @@
(module howtoprogram mzscheme
(require "private/util.ss"
"private/headelts.ss"
"../private/manuals.ss"
(lib "servlet.ss" "web-server"))
(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
(head ,hd-css ,@hd-links (title "Program Design"))
(body
(h1 "Program Design")
,(color-highlight `(h2 "For Students"))
"The textbook " (i "How to Design Programs")
" provides an introduction to programming using the DrScheme"
" environment. The book is not distributed with DrScheme, but it"
" is available online at "
(pre " " (a ([href "http://www.htdp.org/"] [target "_top"])
"http://www.htdp.org/"))
(p)
"Help Desk provides the following interactive support for the textbook:"
(ul (li (b (a ([href "/servlets/teachpacks.ss"])
"Teachpack documentation"))))
(p)
,(color-highlight `(h2 "For Experienced Programmers"))
(ul (li (b (a ((href ,(get-manual-index "t-y-scheme")))
"Teach Yourself Scheme in Fixnum Days"))
": For programmers with lots of experience in other languages"))
,(color-highlight `(h2 "For Teachers and Researchers"))
(ul (li (b (a ([href "/servlets/research/why.ss"]) "Why DrScheme?"))
": PLT's vision "))))))))

28
collects/help/servlets/howtoscheme.ss
View File

@ -1,28 +0,0 @@
(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"))))))))

73
collects/help/servlets/howtouse.ss
View File

@ -1,73 +0,0 @@
(module howtouse mzscheme
(require "private/util.ss"
"private/headelts.ss"
(lib "string-constant.ss" "string-constants")
(lib "servlet.ss" "web-server"))
(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
(head ,hd-css ,@hd-links (title "Help Desk"))
(body
(h1 "Help Desk")
(p)
(a ([name "helpme"] [value "Help Desk"]))
"Help Desk (the program you're currently running) is a "
"complete source of information about PLT software, "
"including DrScheme, MzScheme, and MrEd."
(p)
"Use Help Desk to find information in either of two ways:"
(p)
,(color-highlight
"1. Navigate the Help Desk information pages by"
" clicking on hyperlinks.")
(ul
(li "The " (b ,(string-constant home)) " button "
"at the top of the page always takes "
"you back to the starting page.")
(li "The " (b "Manuals") " link (in the " (b "Software") " section on the main page) displays a list"
" of manuals and other documentation.")
(li "The " (b "Send a bug report")
" link allows you to submit bug reports to PLT."))
(p)
(a ([name "helpsearch"] [value "Searching in Help Desk"]))
(a ([name "search"]))
,(color-highlight
"2. Search for terms using the "
`(b "Find docs for") " field at the bottom of Help Desk.")
(ul
(li "Enter one or more terms into the " (b "Find docs for") " field.")
(li "Click the " (b "Search") " button "
"(or hit Enter) to start a search, "
"or choose the " (b "Feeling Lucky") " menu item.")
(li "If you click on the " (b "Search") " button, "
"Help Desk scans the documentation pages and "
"returns a list of hyperlinks for "
(i "keyword") ", "
(i "index entry") ", and "
(i "raw text") " matches:"
(ul (li (i "Keywords") " are Scheme names, such as " (tt "define")
" and " (tt "cons") ".")
(li (i "Index entries")
" are topical phrases, such as \"lists\".")
(li (i "Raw text") " results are fragments of "
"text from the documentation pages. "
"(Raw text results are useful only as "
"a last resort.)")))
(li "If you perform a lucky search, "
"Help Desk goes directly to the first item of documentation "
"that matches the search term, without displaying links to "
"all relevant items."))
(p)
"Help Desk sorts search results according to their source."
(p)
"If you open Help Desk inside DrScheme, the search results are "
"filtered based on the language you are using. Use "
(b "Choose Language...")
" menu item from the "
(b "Language")
" menu to change the language."))))))

0
collects/help/servlets/private/top-search-bar.ss
View File