From 4e94e7750a59195427c3ebee65c4e98d9c8c1833 Mon Sep 17 00:00:00 2001 From: Andrei Mikhailov Date: Tue, 4 Jun 2013 19:38:13 -0300 Subject: [PATCH] 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 --- collects/scribble/html-render.rkt | 8 +++++--- collects/scribblings/scribble/core.scrbl | 4 ++++ 2 files changed, 9 insertions(+), 3 deletions(-) diff --git a/collects/scribble/html-render.rkt b/collects/scribble/html-render.rkt index 7fdd4731..3834734a 100644 --- a/collects/scribble/html-render.rkt +++ b/collects/scribble/html-render.rkt @@ -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]) diff --git a/collects/scribblings/scribble/core.scrbl b/collects/scribblings/scribble/core.scrbl index b02a230d..c6c21ffc 100644 --- a/collects/scribblings/scribble/core.scrbl +++ b/collects/scribblings/scribble/core.scrbl @@ -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