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

Mostly done.

Browse Source
This commit is contained in:
Sam Tobin-Hochstadt 2013-12-05 13:42:07 -05:00 committed by Matthew Flatt
parent ed5a6b1fbf
commit 644ae2238b
8 changed files with 26 additions and 21 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -203,7 +203,7 @@
@;@link[rel: "stylesheet" href: (resources "style.css")] @;@link[rel: "stylesheet" href: (resources "style.css")]
@; TODO: Modify `racket-style' definition (and what it depends on) @; TODO: Modify `racket-style' definition (and what it depends on)
@; in "resources.rkt", possibly do something similar with the new files @; in "resources.rkt", possibly do something similar with the new files
@;@link[rel: "stylesheet" type: "text/css" href: style title: "default"] @link[rel: "stylesheet" type: "text/css" href: style title: "default"]
@; TODO: Edit the `more.css' definition in www/index.rkt @; TODO: Edit the `more.css' definition in www/index.rkt
@; More ideas for your <head> here: h5bp.com/d/head-Tips @; More ideas for your <head> here: h5bp.com/d/head-Tips
@; All JavaScript at the bottom, except for Modernizr / Respond. @; All JavaScript at the bottom, except for Modernizr / Respond.

9
new-racket-web/web/common/resources.rkt
View File

@ -56,7 +56,7 @@
;; There are still some clients that look for a favicon.ico file ;; There are still some clients that look for a favicon.ico file
,(copyfile "resources/plticon.ico" "favicon.ico") ,(copyfile "resources/plticon.ico" "favicon.ico")
@,pagefile["page-not-found.html"]{ @,pagefile["page-not-found.html"]{
@h1[style: "text-align: center; margin: 3em 0 1em 0;"]{ @h3[style: "text-align: center; margin: 3em 0 1em 0;"]{
Page not found} Page not found}
@(λ xs (table align: 'center (tr (td (pre xs))))){ @(λ xs (table align: 'center (tr (td (pre xs))))){
> (@a[href: "/"]{(uncaught-exception-handler)} > (@a[href: "/"]{(uncaught-exception-handler)}
@ -164,4 +164,11 @@
margin-bottom: 0.5em; margin-bottom: 0.5em;
margin-left: 2em; margin-left: 2em;
} }
tt {
font-family: Inconsolata;
}
i { font-style: italic; }
}) })

1
new-racket-web/web/common/resources/css/style.css
View File

@ -22,3 +22,4 @@ However, this blank file is available if you prefer
.wide_only { display: none; } .wide_only { display: none; }
.narrow_only { display: block; } .narrow_only { display: block; }
} }

10
new-racket-web/web/download/download-pages.rkt
View File

@ -138,11 +138,11 @@
programs, parts of it require some interpretation to apply to Racket in programs, parts of it require some interpretation to apply to Racket in
detail. The following is how the Racket maintainers interpret the detail. The following is how the Racket maintainers interpret the
license. license.
@~ @ul*{ @~ @blockquote{
@~ First, if you distribute your Racket application in source form or as @p{First, if you distribute your Racket application in source form or as
compiled bytecode files, the Racket license does not restrict you at compiled bytecode files, the Racket license does not restrict you at
all. all.}
@~ Second, if you distribute your Racket application as compiled binary @p{Second, if you distribute your Racket application as compiled binary
generated by @tt{raco exe}, there are no requirements placed on the generated by @tt{raco exe}, there are no requirements placed on the
licensing of your software. However, the LGPL requires that you make licensing of your software. However, the LGPL requires that you make
it possible to re-link your software with modified versions of it possible to re-link your software with modified versions of
@ -154,7 +154,7 @@
compiled bytecode files available to the public or let other people compiled bytecode files available to the public or let other people
redistribute them. Furthermore, this is not revealing any more of redistribute them. Furthermore, this is not revealing any more of
your source code than the @tt{raco exe} format, since the bytecode is your source code than the @tt{raco exe} format, since the bytecode is
embedded in an extractable way in the resulting executable.} embedded in an extractable way in the resulting executable.}}
@~ We are, of course, not lawyers, and this should not be taken as legal @~ We are, of course, not lawyers, and this should not be taken as legal
advice. However, we wanted to make it clear that Racket is an advice. However, we wanted to make it clear that Racket is an
appropriate building block for all kinds of software, and to clarify how appropriate building block for all kinds of software, and to clarify how

5
new-racket-web/web/www/community.rkt
View File

@ -1,6 +1,6 @@
#lang meta/web #lang meta/web
(require "resources.rkt" "people.rkt" "irc.rkt" (require "resources.rkt" "people.rkt" "irc.rkt" "gumby.rkt"
"../minis/lists.rkt" "../minis/bugs.rkt" "../minis/lists.rkt" "../minis/bugs.rkt"
"../stubs/blog.rkt" "../stubs/git.rkt" "../stubs/blog.rkt" "../stubs/git.rkt"
(prefix-in pre: "../stubs/pre.rkt")) (prefix-in pre: "../stubs/pre.rkt"))
@ -11,6 +11,7 @@
#:description #:description
@'{Racket-related community resources: mailing lists, IRC channel, @; @'{Racket-related community resources: mailing lists, IRC channel, @;
resources for developers, RacketCon, blog, and more.}]{ resources for developers, RacketCon, blog, and more.}]{
@columns[12 #:center? #t #:row? #t]{
@mailing-lists-quick @mailing-lists-quick
@irc-quick @irc-quick
@parlist[@strong{RacketCon} @parlist[@strong{RacketCon}
@ -44,4 +45,4 @@
@a[href: "http://microsoft.com"]{Microsoft}, @a[href: "http://microsoft.com"]{Microsoft},
@a[href: "http://mozilla.org"]{Mozilla}, @a[href: "http://mozilla.org"]{Mozilla},
and @a[href: "http://google.com"]{Google} and @a[href: "http://google.com"]{Google}
for their generous support over the years.}]}) for their generous support over the years.}]}})

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

@ -9,7 +9,7 @@
'@{Racket-related learning resources. Introductions to Racket, @; '@{Racket-related learning resources. Introductions to Racket, @;
the Racket Guide, Computer Science textbooks that use Racket, @; the Racket Guide, Computer Science textbooks that use Racket, @;
outreach programs, and graduate studies.}]{ outreach programs, and graduate studies.}]{
@columns[8 #:row? #t]{ @columns[10 #:row? #t]{
@parlist[@strong{Resources for Learning} @parlist[@strong{Resources for Learning}
(apply parlist @text{Documentation for getting started:} intros) (apply parlist @text{Documentation for getting started:} intros)
@text{@-htdp — a textbook for introductory programming, but also @text{@-htdp — a textbook for introductory programming, but also
@ -52,7 +52,7 @@
@a[href: (person-url person)]{ @a[href: (person-url person)]{
@(regexp-replace #rx" .*$" (person-name person) "")}) @(regexp-replace #rx" .*$" (person-name person) "")})
", ")) ", "))
@columns[8 #:row? #t]{ @columns[12 #:row? #t]{
@h2{Graduate Study with PLT} @h2{Graduate Study with PLT}
@p{An open letter to graduate applicants:} @p{An open letter to graduate applicants:}
@div[style: (box-style 3 "#dddddd")]{ @div[style: (box-style 3 "#dddddd")]{

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

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

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

@ -44,11 +44,11 @@
@(and note @div[style: "margin-top: 1ex; font-size: small;"]{ @(and note @div[style: "margin-top: 1ex; font-size: small;"]{
@note})}) @note})})
(define ((refblock . title) . body) (define ((refblock . title) . body)
@list{@h2{@title} @list{@h4{@title}
@blockquote{@PRE{@body}}}) @blockquote{@PRE{@body}}})
(define cite-page (define cite-page
@page[#:file (format "tr~a/" num) #:title tr-name #:part-of 'learning]{ @page[#:file (format "tr~a/" num) #:title tr-name #:part-of 'learning]{
@h1{@title-line[#f]} @h3{@title-line[#f]}
@p*{@blockquote{@big{@content}} @p*{@blockquote{@big{@content}}
@~ For citations of the @desc, please use @TT{\cite{plt-tr@num}} in @~ For citations of the @desc, please use @TT{\cite{plt-tr@num}} in
LaTeX, or @TT|{@cite[plt-tr1]}| in Scribble, using the definitions LaTeX, or @TT|{@cite[plt-tr1]}| in Scribble, using the definitions
@ -75,7 +75,7 @@
#:location (techrpt-location #:institution "PLT Inc." #:location (techrpt-location #:institution "PLT Inc."
#:number "|@tr-name") #:number "|@tr-name")
#:url "|@(url-of cite-page #t)"))}| #:url "|@(url-of cite-page #t)"))}|
@h2{Specific Versions} @h4{Specific Versions}
@blockquote{ @blockquote{
@table[frame: 'box rules: 'rows cellpadding: 10]{ @table[frame: 'box rules: 'rows cellpadding: 10]{
@(for/list ([r (in-list all-releases)]) @(for/list ([r (in-list all-releases)])
@ -87,7 +87,7 @@
@p{@small{Reminder: the release dates should not be included in the @p{@small{Reminder: the release dates should not be included in the
entry or the citation.}}}}) entry or the citation.}}}})
@list{@dt{@title-line[#t]} @list{@dt{@title-line[#t]}
@dd[style: "margin-bottom: 1.5ex;"]{ @dd[style: "margin-bottom: 1.5ex; margin-left: 40px;"]{
@content}}) @content}})
(provide techreports) (provide techreports)