Use @page consistently.

collects/meta/web/stubs/blog.rkt

@@ -4,6 +4,7 @@
 
 (provide blog)
 (define blog
-  (page #:file ""
+  @page[#:file ""
         ;; #:part-of community  <-- TODO: is doing this a good idea
-    "This is a stub page to get the header for the blog."))
+        ]{
+    This is a stub page to get the header for the blog.})

collects/meta/web/stubs/git.rkt

@@ -4,5 +4,5 @@
 
 (provide git)
 (define git
-  (page #:title "Development Repository" #:file ""
+  @page[#:title "Development Repository" #:file ""]{
-    "This is a stub page to get the header for the gitweb server."))
+    This is a stub page to get the header for the gitweb server.})

collects/meta/web/stubs/planet.rkt

@@ -4,6 +4,6 @@
 
 (provide planet)
 (define planet
-  (page #:file "" #:link-title "PLaneT" #:window-title "{{{TITLE}}}"
+  @page[#:file "" #:link-title "PLaneT" #:window-title "{{{TITLE}}}"]{
-    ;; This is a stub page to get the header for planet
+    @; This is a stub page to get the header for planet
-    "{{{BODY}}}"))
+    {{{BODY}}}})

collects/meta/web/stubs/pre.rkt

@@ -4,10 +4,10 @@
 
 (provide pre-root)
 (define pre-root
-  (page #:file "" #:title "Prebuilt materials"
+  @page[#:file "" #:title "Prebuilt materials"]{
-    "This is a stub page to get the header for the nightly builds root."))
+    This is a stub page to get the header for the nightly builds root.})
 
 (provide pre-installers)
 (define pre-installers
-  (page #:file "installers/" #:title "Nightly build installers"
+  @page[#:file "installers/" #:title "Nightly build installers"]{
-    "This is a stub page to get the header for the nightly installers."))
+    This is a stub page to get the header for the nightly installers.})

collects/meta/web/www/community.rkt

@@ -20,8 +20,8 @@
 
 (provide community)
 (define community
-  (page
+  @page{
-    (parlist @strong{Mailing Lists}
+    @parlist[@strong{Mailing Lists}
       @text{@maillist-email{users} @mdash a discussion list for all things
         related to Racket.  Ask your questions here!
         (@maillist-url{users}.)
@@ -34,13 +34,13 @@
         for the people who want to see how the sausages are made and help make
         them.  (@maillist-url{dev}.)
         @; @";" also on @gmane{plt.dev}.)
-        })
+        }]
-    (parlist @strong{Discussion Channels}
+    @parlist[@strong{Discussion Channels}
       @text{@irc-chat{Chat on IRC} in the @TT{@big{@strong{#racket}}} channel
         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}.})
+        @irc-logs{Browse the logs}.}]
-    (parlist @strong{Resources for Learning}
+    @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
@@ -48,16 +48,15 @@
         programming.@|rdquo|}
       @text{@-plai @mdash a textbook on programming languages.}
       @text{@-teachscheme @mdash a workshop to train teachers using @-htdp in
-        the classroom.})
+        the classroom.}]
-    (parlist @strong{PLT Scheme Inc.}
+    @parlist[@strong{PLT Scheme Inc.}
       @text{@blog @mdash announcements, helpful hints, and thoughtful rants.}
-      @text{@people @mdash the people behind Racket.}
+      @text{@people @mdash the people behind Racket.}]
-      )
+    @parlist[@strong{Development}
-    (parlist @strong{Development}
       @text{@git (also available on
             @a[href: "http://github.com/plt/racket/"]{GitHub})}
       @text{@pre-installers and @|pre-root|.}
       ;;TODO: proper reference
       @a[href: "http://download.racket-lang.org/chronology/"]{
         Release Announcements}
-      )))
+      ]})

collects/meta/web/www/download.rkt

@@ -5,9 +5,9 @@
 (provide download-button download)
 
 (define download
-  (page #:link-title "Download" #:window-title "Download Racket"
+  @page[#:link-title "Download" #:window-title "Download Racket"
-        #:file "download/"
+        #:file "download/"]{
-    (render-download-page)))
+    @(render-download-page)})
 
 (define download-button
   (let ([img1 (copyfile (in-here "download.png"))]

collects/meta/web/www/help.rkt

@@ -4,11 +4,11 @@
 
 (provide help)
 (define help
-  (page #:link-title "Need Help?"
+  @page[#:link-title "Need Help?"]{
-   (parlist @strong{Don't Panic!}
+   @parlist[@strong{Don't Panic!}
             @text{Racket has a variety of resources designed to help you
-                  with any problems you may have.})
+                  with any problems you may have.}]
-   (parlist @strong{Help Desk}
+   @parlist[@strong{Help Desk}
             @text{Your first stop should always be with the help system that's
                   built into Racket and available from DrRacket's help menu
                   @strong{or by pressing F1 with the cursor on a search term}.
@@ -22,19 +22,19 @@
                   @a[href: "http://docs.plt-scheme.org/guide/"]{guide} (also
                   located in your local copy of the documentation) that
                   provides a narrative introduction to many of Racket's
-                  features.})
+                  features.}]
-   (parlist @strong{Learning how to Program}
+   @parlist[@strong{Learning how to Program}
-            @text{Try going through @|-htdp|.})
+            @text{Try going through @|-htdp|.}]
-   (parlist @strong{Searching the Web}
+   @parlist[@strong{Searching the Web}
             @text{The
                   @-cookbook is
                   a wiki for Scheme snippets, many of which work in Racket.
                   Additionally, your favorite search engine may well provide
-                  answers for many of your questions.})
+                  answers for many of your questions.}]
-   (parlist @strong{The Mailing List}
+   @parlist[@strong{The Mailing List}
             @text{The @tt|{users@racket-lang.org}| mailing list is a great
                   source for answers to questions when the above resources
                   don't pan out@";" sign up for it in the @community area of
-                  the website.})
+                  the website.}]
    @br
-   @text{Thanks for using Racket!}))
+   @text{Thanks for using Racket!}})

collects/meta/web/www/index.rkt

@@ -281,7 +281,7 @@
 
 (define (alts-panel l1 l2)
   (define l (append l1 l2))
-  (apply div class: 'slideshow
+  (div class: 'slideshow
          @script/inline[type: "text/javascript"]{
            var showing = 0;
            var help_showing = false;
@@ -405,17 +405,15 @@
                           after the filename. Alternatively, for a Unix installation, you can
                           add @tt{#!/usr/bin/env racket} at the top and make the
                           file executable, and then you can run the file directly.})))
-         (append
+         (for/list ([elem l]
-          (for/list ([elem l]
+                    [pos (in-naturals)])
-                     [pos (in-naturals)])
+           (div class: 'slideshowframe
-            (div class: 'slideshowframe
+                id: (format "frame~a" pos)
-                 id: (format "frame~a" pos)
+                style: (format "display: ~a" (if (zero? pos) "block" "none"))
-                 style: (format "display: ~a" (if (zero? pos) "block" "none"))
+                (example-code elem)))
-                 (example-code elem)))
+          @script/inline[type: "text/javascript"]{
-          (list
+            change_show_to(Math.floor(Math.random()* @(length l1)));
-           @script/inline[type: "text/javascript"]{
+          }))
-             change_show_to(Math.floor(Math.random()* @(length l1)));
-           }))))
 
 ;; TODO
 ;; (define screenshots

collects/meta/web/www/new-name.rkt

@@ -52,8 +52,8 @@
     }})
 
 (define new-name
-  (page #:title "From PLT Scheme to Racket"
+  @page[#:title "From PLT Scheme to Racket"]{
-    styles
+    @styles
 
     @div[class: 'nestedheading]{PLT Scheme is a Racket}
 
@@ -188,4 +188,4 @@
         it has a vague connection to the word @|ldquo|scheme.@|rdquo|  Mostly,
         though, we just like it.}
 
-      }))
+      }})

collects/meta/web/www/outreach+research.rkt

@@ -15,25 +15,24 @@
 
 (provide outreach+research)
 (define outreach+research
-  (page
+  @page[#:title "Outreach & Research"
-    #:title "Outreach & Research"
+        #:link-title @list{Outreach@|nbsp|&@|nbsp|Research}]{
-    #:link-title @list{Outreach@|nbsp|&@|nbsp|Research}
+    @parlist[
-    (parlist
       @strong{Outreach}
       @text{@-teachscheme @mdash a workshop to train teachers using @-htdp in
             the classroom.}
-      @text{@-bootstrap @mdash a curriculum for middle-school students.})
+      @text{@-bootstrap @mdash a curriculum for middle-school students.}]
-    (parlist @strong{Publications}
+    @parlist[@strong{Publications}
-             techreports brown-pubs nwu-pubs neu-pubs utah-pubs)
+             techreports brown-pubs nwu-pubs neu-pubs utah-pubs]
-    (parlist @strong{Graduate Study}
+    @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 outreach+research
+  @page[#:file "common-plt-app.html" #:part-of outreach+research]{
-    (define (box-style border-width color)
+    @(define (box-style border-width color)
-      @list{border: @|border-width|px solid black; padding: 5px; @;
+       @list{border: @|border-width|px solid black; padding: 5px; @;
-            background: @|color|@";"})
+             background: @|color|@";"})
     @h1{Graduate Study with PLT}
     @p{An open letter to graduate applicants:}
     @div[style: (box-style 3 "#ddd")]{
@@ -79,12 +78,12 @@
       @a[href: "http://www.eecs.northwestern.edu/~robby/"]{Robby},
       @a[href: "http://www.cs.wpi.edu/~kfisler/"]{Kathi},
       @a[href: "http://www.cs.utah.edu/~mflatt/"]{Matthew},
-      @a[href: "http://www.cs.brown.edu/~sk/"]{Shriram}}))
+      @a[href: "http://www.cs.brown.edu/~sk/"]{Shriram}}})
 
 (define techreports
-  (page #:file "techreports/" #:part-of outreach+research
+  @page[#:file "techreports/" #:part-of outreach+research
         #:title "Technical Reports"
         #:extra-headers
         @meta[http-equiv: "refresh"
-              content: "2;url=http://plt-scheme.org/techreports/"]
+              content: "2;url=http://plt-scheme.org/techreports/"]]{
-    "TODO"))
+    TODO})

collects/meta/web/www/people.rkt

@@ -37,7 +37,7 @@
 
 (provide people)
 (define people
-  (page
+  @page{
     @p{@|ldquo|PLT@|rdquo| 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: @places}
@@ -52,4 +52,4 @@
     @p{Finally, Racket is supported by an band of volunteers who contribute not
        only code and documentation but also infectious enthusiasm@|mdash|too
        many to name but whose help and encouragement make this fun and
-       worthwhile.}))
+       worthwhile.}})