Rename "outreach+research" -> "learning".

* Move learning stuff from "community" to it.

* Set up a redirection page for "outreach+research.html".
This commit is contained in:
Eli Barzilay 2010-06-16 16:48:14 -04:00
parent dd6f73255d
commit 1fc2a3e171
6 changed files with 31 additions and 23 deletions

View File

@ -1,5 +1,5 @@
#lang at-exp s-exp "common.rkt"
(require "www/main.rkt" "download/main.rkt" "minis/main.rkt" "stubs/main.rkt")
(set-navbar! (list main download -docs planet community outreach+research)
(set-navbar! (list main download -docs planet community learning)
help)

View File

@ -13,15 +13,6 @@
on @a[href: "http://freenode.net"]{@tt{freenode.net}}
@mdash an informal discussion channel for all things related to Racket.
@irc-logs{Browse the logs}.}]
@parlist[@strong{Resources for Learning}
(apply parlist @text{Documentation for getting started:} intros)
@text{@-cookbook @mdash useful recipes, many of which apply to Racket.}
@text{@-htdp @mdash a textbook for introductory programming, but also
worthwhile for experience programmers who are new to @|ldquo|functional
programming.@|rdquo|}
@text{@-plai @mdash a textbook on programming languages.}
@text{@-teachscheme @mdash a workshop to train teachers using @-htdp in
the classroom.}]
@parlist[@strong{PLT Scheme Inc.}
@text{@blog @mdash announcements, helpful hints, and thoughtful rants.}
@text{@people @mdash the people behind Racket.}]

View File

@ -1,6 +1,6 @@
#lang at-exp s-exp "shared.rkt"
(require "code.rkt" "download.rkt" "outreach+research.rkt" racket/string)
(require "code.rkt" "download.rkt" "learning.rkt" racket/string)
(define (doc s)
(string-append "http://docs.racket-lang.org/" s))
@ -262,8 +262,8 @@
@p{Whether you're just @-htdp{starting out}, want to know more about
programming language @-plai{applications} or @-redex{models},
looking to @continue{expand your horizons}, or ready to dive into
@outreach+research{research}, Racket can help you become a better
programmer and system builder.}))))
@learning{research}, Racket can help you become a better programmer
and system builder.}))))
(define (alts-panel l1 l2)
(define l (append l1 l2))

View File

@ -13,10 +13,18 @@
@a[href: "http://www.cs.utah.edu/plt/publications/"]{Utah PLT Publications})
;; TODO: add calpoly & byu?
(provide outreach+research)
(define outreach+research
@page[#:title "Outreach & Research"
#:link-title @list{Outreach@|nbsp|&@|nbsp|Research}]{
(provide learning)
(define learning
@page{
@parlist[@strong{Resources for Learning}
(apply parlist @text{Documentation for getting started:} intros)
@text{@-cookbook @mdash useful recipes, many of which apply to Racket.}
@text{@-htdp @mdash a textbook for introductory programming, but also
worthwhile for experience programmers who are new to @|ldquo|functional
programming.@|rdquo|}
@text{@-plai @mdash a textbook on programming languages.}
@text{@-teachscheme @mdash a workshop to train teachers using @-htdp in
the classroom.}]
@parlist[
@strong{Outreach}
@text{@-teachscheme @mdash a workshop to train teachers using @-htdp in
@ -29,7 +37,7 @@
@|graduate-study|.}]})
(define graduate-study
@page[#:file "common-plt-app.html" #:part-of outreach+research]{
@page[#:file "common-plt-app.html" #:part-of learning]{
@(define (box-style border-width color)
@list{border: @|border-width|px solid black; padding: 5px; @;
background: @|color|@";"})
@ -81,9 +89,18 @@
@a[href: "http://www.cs.brown.edu/~sk/"]{Shriram}}})
(define techreports
@page[#:file "techreports/" #:part-of outreach+research
@page[#:file "techreports/" #:part-of learning
#:title "Technical Reports"
#:extra-headers
@meta[http-equiv: "refresh"
content: "0;url=http://plt-scheme.org/techreports/"]]{
TODO})
;; redirection page for the previous name of this page
(define outreach+research
@page[#:part-of learning
#:title "Outreach & Research"
#:link-title @list{Outreach@|nbsp|&@|nbsp|Research}
#:extra-headers
@meta[http-equiv: "refresh" content: "0;url=learning.html"]]{
Moved.})

View File

@ -1,5 +1,5 @@
#lang at-exp s-exp "shared.rkt"
(require "index.rkt" "download.rkt" "community.rkt" "outreach+research.rkt"
"help.rkt" "new-name.rkt")
(provide (rename-out [index main]) download community outreach+research help)
(require "index.rkt" "download.rkt" "community.rkt" "learning.rkt" "help.rkt"
"new-name.rkt")
(provide (rename-out [index main]) download community learning help)

View File

@ -1,6 +1,6 @@
#lang at-exp s-exp "shared.rkt"
;;TODO: combine the info in outreach+research.rkt into a list of structs here
;;TODO: combine the info in learning.rkt into a list of structs here
(define places
(ul (map (lambda (p)
(let-values ([(place-name place-url person-name person-url)