Add 'no-sidebar style property as a style for the main part of a document

The new style property causes the HTML output to not include an ``on this
page'' margin box.

original commit: 131ce83b32a8336d935ed35b8457522ad51e7262
This commit is contained in:
Andrei Mikhailov 2013-06-04 19:38:13 -03:00 committed by Matthew Flatt
parent 3640f0b25d
commit 4e94e7750a
2 changed files with 9 additions and 3 deletions

View File

@ -514,9 +514,11 @@
null
;; toc-wrap determines if we get the toc or just the title !!!
`((div ([class "tocview"]) ,@(toc-content))))
,@(render-onthispage-contents
d ri top (if (part-style? d 'no-toc) "tocview" "tocsub")
sub-parts-on-other-page?)
,@(if (part-style? d 'no-sidebar)
null
(render-onthispage-contents
d ri top (if (part-style? d 'no-toc) "tocview" "tocsub")
sub-parts-on-other-page?))
,@(parameterize ([extra-breaking? #t])
(append-map (lambda (e)
(let loop ([e e])

View File

@ -410,6 +410,10 @@ The recognized @tech{style properties} are as follows:
multi-page documents) takes on the location and color of the
main table of contents, instead.}
@item{@racket['no-sidebar] --- As a style for the main part of a
document, causes the HTML output to not include an ``on this
page'' margin box.}
@item{@racket[document-version] structure --- A version number for
this part and its sub-parts (except as overridden). When it is
not @racket[""] may be used when rendering a document; at a