suzanne.soy/hyper-literate
1
0
Fork 0
Code Issues 4 Pull Requests 1 Actions Packages Projects Releases Wiki Activity

tweak appearance of main doc page

Browse Source 
svn: r9951

original commit: a41f8e8e382c2a81f5e0d407327cbaec065e5dae
This commit is contained in:
Matthew Flatt 2008-05-25 15:16:03 +00:00
parent fa38d02dae
commit 8ec48bb3bb
3 changed files with 40 additions and 19 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

40
collects/scribble/html-render.ss
View File

@ -376,22 +376,26 @@
(cdr l))))] (cdr l))))]
[else (cons (car l) (loop (cdr l)))]))))) [else (cons (car l) (loop (cdr l)))])))))
`((div ([class "tocset"]) `((div ([class "tocset"])
,@(let* ([content (render-content ,@(if (part-style? d 'no-toc)
(or (part-title-content top) '("???")) null
d ri)] (let* ([content (render-content
[content (if (null? toc-content) (or (part-title-content top) '("???"))
content d ri)]
`((a ([href "index.html"] [class "tocviewlink"]) [content (if (null? toc-content)
,@content)))]) content
`((div ([class "tocview"]) `((a ([href "index.html"] [class "tocviewlink"])
(div ([class "tocviewtitle"]) ,@content) ,@content)))])
(div nbsp) `((div ([class "tocview"])
,@(if (null? toc-content) (div ([class "tocviewtitle"]) ,@content)
'() (div nbsp)
(toc-wrap ,@(if (null? toc-content)
`(table ([class "tocviewlist"] [cellspacing "0"]) '()
,@toc-content)))))) (toc-wrap
,@(render-onthispage-contents d ri top) `(table ([class "tocviewlist"] [cellspacing "0"])
,@toc-content)))))))
,@(render-onthispage-contents d ri top (if (part-style? d 'no-toc)
"tocview"
"tocsub"))
,@(parameterize ([extra-breaking? #t]) ,@(parameterize ([extra-breaking? #t])
(append-map (lambda (t) (append-map (lambda (t)
(let loop ([t t]) (let loop ([t t])
@ -412,7 +416,7 @@
(define/public (nearly-top? d ri top) (define/public (nearly-top? d ri top)
#f) #f)
(define/private (render-onthispage-contents d ri top) (define/private (render-onthispage-contents d ri top box-class)
(if (ormap (lambda (p) (part-whole-page? p ri)) (if (ormap (lambda (p) (part-whole-page? p ri))
(part-parts d)) (part-parts d))
null null
@ -474,7 +478,7 @@
[any-parts? (ormap part? ps)]) [any-parts? (ormap part? ps)])
(if (null? ps) (if (null? ps)
null null
`((div ([class "tocsub"]) `((div ([class ,box-class])
,@(get-onthispage-label) ,@(get-onthispage-label)
(table ([class "tocsublist"] (table ([class "tocsublist"]
[cellspacing "0"]) [cellspacing "0"])

2
collects/scribble/scribble.css
View File

@ -209,7 +209,7 @@ font-weight: bold;
.inherited { .inherited {
width: 100%; width: 100%;
margin-top: 1em; margin-top: 0.5em;
text-align: left; text-align: left;
background-color: #ECF5F5; background-color: #ECF5F5;
} }

17
collects/scribblings/scribble/struct.scrbl
View File

@ -257,6 +257,14 @@ are as follows:
@item{@scheme['hidden] --- the part title is not shown in rendered output.} @item{@scheme['hidden] --- the part title is not shown in rendered output.}
@item{@scheme['no-toc] --- as a style for the main part of a
document, causes the HTML output to not include a margin box
for the main table of contents; the ``on this page'' box that
contains @scheme[toc-element] and @scheme[toc-target-element]
links (and that only includes an ``on this page'' label for
multi-page documents) takes on the location and color of the
main table of contents, instead.}
} }
The @scheme[to-collect] field contains @techlink{content} that is The @scheme[to-collect] field contains @techlink{content} that is
@ -400,6 +408,15 @@ label to be shown in the ``on this page'' table for HTML output.
} }
@defstruct[(toc-element element) ([toc-content list?])]{
Similar to @scheme[toc-target-element], but with specific content for
the ``on this page'' table specified in the @scheme[toc-content]
field.
}
@defstruct[(link-element element) ([tag tag?])]{ @defstruct[(link-element element) ([tag tag?])]{
Hyperlinks the content to @scheme[tag]. Hyperlinks the content to @scheme[tag].