#:full-width' ->
#:width', which can specify full width or a given one.
This commit is contained in:
parent
6e947fef90
commit
76300bd759
|
@ -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))
|
||||
|
|
Loading…
Reference in New Issue
Block a user