suzanne.soy/scribble-enhanced
1
0
Fork 0
Code Issues 1 Pull Requests 1 Actions Packages Projects Releases Wiki Activity

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

Browse Source 
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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
collects/scribble/html-render.rkt
View File

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

4
collects/scribblings/scribble/core.scrbl
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 multi-page documents) takes on the location and color of the
main table of contents, instead.} 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 @item{@racket[document-version] structure --- A version number for
this part and its sub-parts (except as overridden). When it is this part and its sub-parts (except as overridden). When it is
not @racket[""] may be used when rendering a document; at a not @racket[""] may be used when rendering a document; at a