From 4e94e7750a59195427c3ebee65c4e98d9c8c1833 Mon Sep 17 00:00:00 2001
From: Andrei Mikhailov <amkhlv@gmail.com>
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