#:full-width' -> #:width', which can specify full width or a given one.

This commit is contained in:
Eli Barzilay 2010-07-02 01:16:31 -04:00
parent 6e947fef90
commit 76300bd759

View File

@ -65,7 +65,9 @@
(error 'page "missing `#:id' or `#:title'"))]
#:link-title [linktitle label]
#:window-title [wintitle @list{Racket: @label}]
#:full-width [full-width #f]
;; can be #f (default), 'full: full page (and no div),
;; otherwise, a css width
#:width [width #f]
#:extra-headers [headers #f]
#:extra-body-attrs [body-attrs #f]
#:resources resources ; see below
@ -78,9 +80,13 @@
(define (page)
(let* ([head (resources 'head wintitle headers)]
[navbar (resources 'navbar (or part-of this))]
[content (list navbar (if full-width
content
(div class: 'bodycontent content)))])
[content (case width
[(full) content]
[(#f) (div class: 'bodycontent content)]
[else (div class: 'bodycontent
style: @list{width: @|width|@";"}
content)])]
[content (list navbar content)])
@xhtml{@head
@(if body-attrs
(apply body `(,@body-attrs ,content))