More content hooks for the wiki template.

(And remove a bogus leftover definition.)
This commit is contained in:
Eli Barzilay 2010-11-24 17:11:16 -05:00
parent aaa39873db
commit 4a0c276d4c

View File

@ -4,12 +4,8 @@
(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}}}"])
(page #:title "{{{TITLE}}}"
#:extra-headers "{{{HEADERS}}}"
#:extra-body-attrs '(|{{{ATTRS}}}|: #t)
"{{{BODY}}}"))