diff --git a/collects/meta/web/config.rkt b/collects/meta/web/config.rkt index 7a0b7e8935..0cc64d61e1 100644 --- a/collects/meta/web/config.rkt +++ b/collects/meta/web/config.rkt @@ -14,7 +14,8 @@ ("stubs/git" "http://git.racket-lang.org/" abs) ("stubs/blog" "http://blog.racket-lang.org/" abs) ("stubs/mailman" "http://lists.racket-lang.org/" abs) - ("stubs/dirlist" "http://download.racket-lang.org/" abs))) + ("stubs/dirlist" "http://download.racket-lang.org/" abs) + ("stubs/wiki" "http://wiki.racket-lang.org/" abs))) (provide distributions) (define distributions diff --git a/collects/meta/web/stubs/main.rkt b/collects/meta/web/stubs/main.rkt index a4606af872..fb816cf325 100644 --- a/collects/meta/web/stubs/main.rkt +++ b/collects/meta/web/stubs/main.rkt @@ -3,5 +3,6 @@ (provide planet) (require "planet.rkt" "blog.rkt" ; these need to be copied to the service - "pre.rkt" "git.rkt" - "mailman.rkt" "dirlist.rkt") ; these are used on the server directly + "pre.rkt" "git.rkt" ; / these are used on the + "mailman.rkt" "dirlist.rkt" ; \ server directly + "wiki.rkt") diff --git a/collects/meta/web/stubs/wiki.rkt b/collects/meta/web/stubs/wiki.rkt new file mode 100644 index 0000000000..789b2c926f --- /dev/null +++ b/collects/meta/web/stubs/wiki.rkt @@ -0,0 +1,15 @@ +#lang at-exp s-exp "../common.rkt" + +(require (prefix-in www: (only-in "../www/shared.rkt" the-resources))) + +(define-context "stubs/wiki" #:resources www:the-resources) + +(define header+footer + (delay (regexp-split #rx"{{{BODY}}}" + (xml->string @page[#:id 'browse-downloads + #:html-only #t + #:part-of 'download + "{{{BODY}}}"])))) + +(define template + @page[#:title "{{{TITLE}}}" "{{{BODY}}}"])