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

fix a number of subsidiary pages

Browse Source
This commit is contained in:
Sam Tobin-Hochstadt 2013-12-05 10:31:12 -05:00 committed by Matthew Flatt
parent e1cefa0c68
commit ed5a6b1fbf
5 changed files with 28 additions and 20 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
new-racket-web/web/common/layout.rkt
View File

@ -131,21 +131,21 @@
(define (icon name) @i[class: name]{})
(define (row . content) (apply div class: "row" content))
(define download-promise (lazy (dict-ref (force (first (unbox navbar-info))) 'download)))
(define main-promise (lazy (second (unbox navbar-info))))
(define download-promise (dict-ref (force (first (unbox navbar-info))) 'download))
(define main-promise (force (second (unbox navbar-info))))
@div[class: "navbar" gumby-fixed: "top" id: "nav1"]{
@row{
@a[class: "toggle" gumby-trigger: "#nav1 > .row > ul" href: "#"]{
@icon{icon-menu}}
@a[class: "five columns logo" href: (url-of (force main-promise))]{
@a[class: "five columns logo" href: (url-of main-promise)]{
@img[class: "logo" src: logo]}
@ul[class: "five columns"]{
@li{@a[href: "http://pkg.racket-lang.org"]{Packages}}
@li{@a[href: "http://docs.racket-lang.org"]{Documentation}}
@li{@a[href: "http://blog.racket-lang.org"]{Blog}}
@li{@div[class: "medium metro info btn icon-left entypo icon-install"]{
@(force download-promise)}}}}})
@download-promise}}}}})
(define html-preamble
@list{

4
new-racket-web/web/www/index.rkt
View File

@ -7,7 +7,7 @@
;; -- use links
;; -- indentation
(require "resources.rkt" "code.rkt" "download.rkt" "learning.rkt" "gumby.rkt")
(require "resources.rkt" "code.rkt" "download.rkt" "learning.rkt" "gumby.rkt" "people.rkt")
(define (doc path . text)
(apply a href: (list "http://docs.racket-lang.org/" path) text))
@ -448,7 +448,7 @@ Chat in the @tt[style: "background-color: #d8d8e8;"]{@big{@strong{#racket}}} cha
discussion channel for all things related to Racket.
(@a[href: "https://botbot.me/freenode/racket/"]{Browse the logs}.)}
@p{@a[href: "http://racket-lang.org/people.html"]{People} —
@p{@people —
The people behind Racket.}
}

12
new-racket-web/web/www/learning.rkt
View File

@ -1,14 +1,15 @@
#lang meta/web
(require "resources.rkt" "people.rkt" "techreports.rkt" "old-techreports.rkt")
(require "resources.rkt" "people.rkt" "techreports.rkt" "old-techreports.rkt" "gumby.rkt")
(provide learning)
(define learning
@page[#:window-title "Racket Learning" #:part-of 'learning
@page[#:window-title "Racket Learning" #:part-of 'learning #:width 'full
#:description
'@{Racket-related learning resources. Introductions to Racket, @;
the Racket Guide, Computer Science textbooks that use Racket, @;
outreach programs, and graduate studies.}]{
@columns[8 #:row? #t]{
@parlist[@strong{Resources for Learning}
(apply parlist @text{Documentation for getting started:} intros)
@text{@-htdp — a textbook for introductory programming, but also
@ -30,7 +31,7 @@
@a[href: pubs]{@(place-name place)})))
@parlist[@strong{Graduate Study}
@text{We welcome applications from students interested in
@|graduate-study|.}]})
@|graduate-study|.}]}})
(define graduate-study
@page[#:file "common-plt-app.html" #:part-of 'learning]{
@ -51,7 +52,8 @@
@a[href: (person-url person)]{
@(regexp-replace #rx" .*$" (person-name person) "")})
", "))
@h1{Graduate Study with PLT}
@columns[8 #:row? #t]{
@h2{Graduate Study with PLT}
@p{An open letter to graduate applicants:}
@div[style: (box-style 3 "#dddddd")]{
@p*{
@ -90,7 +92,7 @@
innovation, you should strongly consider graduate study with us. We
look forward to hearing from you. All of us, no matter where we may
live.}
@p[align: 'right]{—@responsible-people}})
@p[align: 'right]{—@responsible-people}}})
;; redirection page for the previous name of this page
(define outreach+research

8
new-racket-web/web/www/new-name.rkt
View File

@ -2,19 +2,21 @@
(require "resources.rkt")
(define name i)
(define (name . a) (apply span class: 'italic a))
(define (url str) (tt (a href: str str)))
(define styles
@style/inline{
.italic { font-style: italic; }
tt { font-family: Inconsolata; }
.nestedheading {
text-align: center;
font-weight: bold;
font-size: large;
}
.nested {
width: 80%;
width: 40%;
margin-left: auto;
margin-right: auto;
margin-top: 1em;
@ -24,7 +26,7 @@
margin-left: auto;
margin-right: auto;
margin-top: 2em;
width: 90%;
width: 45%;
}
.faqques {
font-weight: bold;

16
new-racket-web/web/www/people.rkt
View File

@ -1,6 +1,6 @@
#lang meta/web
(require "resources.rkt")
(require "resources.rkt" "gumby.rkt")
(define (make-all place person)
;; The first person in a place is the one responsible for it
@ -100,15 +100,19 @@
people (make-finder 'people people person-nick))))
(provide people)
(define acks-url "https://github.com/plt/racket/blob/master/racket/collects/acks/acks.rkt")
(define people
@page[#:window-title "Racket People: The PLT Group" #:part-of 'community
#:description "PLT: the group that is the Racket development team."]{
#:description "PLT: the group that is the Racket development team."
#:width 'full]{
@columns[8 #:center? #t #:row? #t]{
@p{“PLT” refers to the group that is the core of the Racket development
team. PLT consists of numerous people distributed across several
different universities in the USA:
@(ul (map (λ (p) @li{@a[href: (place-url p)]{
@(place-name p), @(place-location p)}})
@(ul style: "margin-left: 20px"
(map (λ (p) @li{@a[href: (place-url p)]{
@(place-name p), @(place-location p)}})
all-places))}
@p{Also, Racket is supported by a band of volunteers who contribute not
@p{Also, Racket is supported by a band of volunteers who @a[href: acks-url]{contribute} not
only code and documentation but also infectious enthusiasm—too many to
name but whose help and encouragement make this fun and worthwhile.}})
name but whose help and encouragement make this fun and worthwhile.}}})