Added a skeleton page for planet.

collects/meta/web/common/links.rkt

@@ -8,8 +8,6 @@
 ;; ----------------------------------------------------------------------------
 ;; Pages that are made outside of this system
 
-(define* -planet @make-link["http://planet.racket-lang.org/"]{PLaneT})
-
 (define doc-url "http://docs.racket-lang.org/")
 
 (define* -docs @make-link[doc-url]{Documentation})

collects/meta/web/config.rkt

@@ -4,6 +4,7 @@
 (define sites
   '(("www"          "http://racket-lang.org/")
     ("download"     "http://download.racket-lang.org/")
+    ("stubs/planet" "http://planet.racket-lang.org/")
     ("stubs/pre"    "http://pre.racket-lang.org/")
     ("stubs/git"    "http://git.racket-lang.org/")
     ("stubs/blog"   "http://blog.racket-lang.org/")))
@@ -13,4 +14,5 @@
   ;; Each is a "hostname:dest-path", and then a list of directories to
   ;; put in that path.  (Warning: "dest" should not be a top-level
   ;; directory that already exists.)
-  '(("champlain:/www" "www" "download")))
+  '(["champlain:/www" "www" "download"]
+    ["winooski:~wwwplanet/html-template/" "stubs/planet/"])) ; note "/"s

collects/meta/web/navbar.rkt

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

collects/meta/web/stubs/planet.rkt

@@ -0,0 +1,9 @@
+#lang at-exp s-exp "../common.rkt"
+
+(define-context "stubs/planet")
+
+(provide planet)
+(define planet
+  (page #:file "" #:link-title "PLaneT" #:window-title "{{{TITLE}}}"
+    ;; This is a stub page to get the header for planet
+    "{{{BODY}}}"))