diff --git a/collects/help/servlets/home.ss b/collects/help/servlets/home.ss index 08177e9edf..de673a4fe0 100644 --- a/collects/help/servlets/home.ss +++ b/collects/help/servlets/home.ss @@ -522,7 +522,7 @@ (li (a ((href ,url-helpdesk-teachpacks-for-htdc)) "Teachpacks for 'How to Design Classes'"))))) ;; - ("teachscheme" "Teach Scheme" + ("teachscheme" "TeachScheme" ((h2 "TeachScheme! Workshops") (p (a ([name "workshops"] [value "TeachScheme! workshops"])) "TeachScheme! is a free summer workshop for high school teachers. " diff --git a/collects/help/servlets/resources/info.ss b/collects/help/servlets/resources/info.ss deleted file mode 100644 index f50b13792a..0000000000 --- a/collects/help/servlets/resources/info.ss +++ /dev/null @@ -1,2 +0,0 @@ -(module info (lib "infotab.ss" "setup") - (define name "Help Servlets Resources")) diff --git a/collects/help/servlets/resources/maillist.ss b/collects/help/servlets/resources/maillist.ss deleted file mode 100644 index 2edf37e053..0000000000 --- a/collects/help/servlets/resources/maillist.ss +++ /dev/null @@ -1,84 +0,0 @@ -(module maillist mzscheme - (require "../private/headelts.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 "Mailing Lists")) - (body - (a ([name "mail"] [value "mailing lists"])) - (h1 "Mailing Lists") - "PLT maintains two English-language mailing lists: one for" - " announcements, the other for discussion. There is a discussion list" - " in Spanish." - (p) - (hr) - (p) - (b "Announcements List") (br) - "The announcement-only list is designed for people who need to track" - " releases and patches. The list is moderated. There are a handful" - " of postings a year." - (p) - "To subscribe to " (tt "plt-announce@list.cs.brown.edu") ", visit the " - "Web page " - (blockquote - (a ([href "http://list.cs.brown.edu/mailman/listinfo/plt-announce/"] - [target "_top"]) - "http://list.cs.brown.edu/mailman/listinfo/plt-announce/")) - " or send email to " - (blockquote - (a ([href "mailto:plt-announce-request@list.cs.brown.edu"]) - "plt-announce-request@list.cs.brown.edu")) - " with the word `help' in the subject or body of the message." - " You'll get back a message with instructions." - (p) - (hr) - (p) - (b "Discussion List") (br) - "If you have problems with installation, or questions about " - "using PLT Scheme, send mail to the list " - (blockquote - (a ([href "mailto:plt-scheme@list.cs.brown.edu"]) - "plt-scheme@list.cs.brown.edu")) - (p) - "Only subscribers can post to the list." - " To subscribe, visit the Web page " - (blockquote - (a ([href "http://list.cs.brown.edu/mailman/listinfo/plt-scheme/"] - [target "_top"]) - "http://list.cs.brown.edu/mailman/listinfo/plt-scheme/")) - " or send email to " - (blockquote - (a ((href "mailto:plt-scheme-request@list.cs.brown.edu")) - "plt-scheme-request@list.cs.brown.edu")) - " with the word `help' in the subject or body of the message. " - "You'll get back a message with instructions." - (p) - (hr) - (p) - (a ([name "mail-es"] [value "Spanish mailing lists"])) - (a ([name "mail-es2"] [value "Lista de Correo"])) - (b "Lista de Correo") (br) - "Si tienes problemas con la instalación o preguntas sobre el uso" - " de PLT Scheme, envía un mensaje a la lista " - (blockquote - (a ([href "mailto:plt-scheme-es@list.cs.brown.edu"]) - "plt-scheme-es@list.cs.brown.edu")) - "Para reducir la recepción de mensajes no deseados (SPAM), " - "hemos adoptado la política de que sólo los suscriptores a la lista " - "pueden enviar mensajes. Para suscribirte, visita la página de Web " - (blockquote - (a ([href "http://list.cs.brown.edu/mailman/listinfo/plt-scheme-es/"] - [target "_top"]) - "http://list.cs.brown.edu/mailman/listinfo/plt-scheme-es/")) - " o envía un mensaje a " - (blockquote - (a ([href "mailto:plt-scheme-es-request@list.cs.brown.edu"]) - "plt-scheme-es-request@list.cs.brown.edu")) - " con la palabra `help' en el asunto o en el cuerpo de tu mensaje. " - "Recibirás un mensaje de regreso con instrucciones.")))))) \ No newline at end of file diff --git a/collects/help/servlets/resources/teachscheme.ss b/collects/help/servlets/resources/teachscheme.ss deleted file mode 100644 index c0fbc97cd0..0000000000 --- a/collects/help/servlets/resources/teachscheme.ss +++ /dev/null @@ -1,33 +0,0 @@ -(module teachscheme mzscheme - (require "../private/headelts.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 "TeachScheme! Workshops")) - (body - (h1 "TeachScheme! Workshops") - (a ([name "workshops"] [value "TeachScheme! workshops"])) - "TeachScheme! is a free summer workshop for high school teachers. " - "Its goal is to bridge the gulf between high school and " - "college-level computing curricula. In the workshop, programming " - "is taught as an algebraic problem-solving process, and computing " - "is the natural generalization of grade-school level calculating." - (p) - "Students who learn to design programs properly learn to " - "analyze a problem statement; express its essence, abstractly " - "and with examples; formulate statements and comments in a " - "precise language; evaluate and revise these activities in " - "light of checks and tests; and pay attention to details. " - "As a result, all students benefit, those who wish to study computing " - "as well as those who just wish to explore the subject." - (p) - "For more information, see the " - (a ([href "http://www.teach-scheme.org/Workshops/"] - [TARGET "_top"]) - "TeachScheme! Workshops page") ".")))))) \ No newline at end of file