change path->main-collects-relative, and change output directory of start document
svn: r8301 original commit: 05434ec54da3cd9362493c024d73de5ec3f516a8
This commit is contained in:
Matthew Flatt
parent
b4f706247f
commit
0732affece
|
|
@ -76,6 +76,8 @@
|
|||
format-number
|
||||
quiet-table-of-contents)
|
||||
|
||||
(init-field [css-path #f])
|
||||
|
||||
(define/override (get-suffix) #".html")
|
||||
|
||||
;; ----------------------------------------
|
||||
|
|
@ -133,6 +135,9 @@
|
|||
(define/private (reveal-subparts? p)
|
||||
(part-style? p 'reveal))
|
||||
|
||||
(define/public (toc-wrap table)
|
||||
null)
|
||||
|
||||
(define/public (render-toc-view d ri)
|
||||
(let-values ([(top mine)
|
||||
(let loop ([d d][mine d])
|
||||
|
|
@ -185,10 +190,11 @@
|
|||
(class "tocviewlink"))
|
||||
,@(render-content (or (part-title-content top) '("???")) d ri)))
|
||||
(div nbsp)
|
||||
(table
|
||||
,@(toc-wrap
|
||||
`(table
|
||||
((class "tocviewlist")
|
||||
(cellspacing "0"))
|
||||
,@toc-content)))))
|
||||
,@toc-content))))))
|
||||
,@(render-onthispage-contents d ri top)
|
||||
,@(apply append
|
||||
(map (lambda (t)
|
||||
|
|
@ -311,18 +317,31 @@
|
|||
null))
|
||||
(link ((rel "stylesheet")
|
||||
(type "text/css")
|
||||
(href "scribble.css")
|
||||
(href ,(or css-path "scribble.css"))
|
||||
(title "default"))))
|
||||
(body ,@(render-toc-view d ri)
|
||||
(div ((class "maincolumn"))
|
||||
(div ((class "main")) ,@(render-part d ri)))))])
|
||||
(install-file scribble-css)
|
||||
(div ((class "main"))
|
||||
,@(render-version d ri)
|
||||
,@(render-part d ri)))))])
|
||||
(unless css-path
|
||||
(install-file scribble-css))
|
||||
(printf "<!DOCTYPE HTML PUBLIC \"-//W3C//DTD HTML 4.0 Transitional//EN\" \"http://www.w3.org/TR/html4/loose.dtd\">\n")
|
||||
(xml:write-xml/content (xml:xexpr->xml xpr)))))
|
||||
|
||||
(define/override (render-one d ri fn)
|
||||
(render-one-part d ri fn null))
|
||||
|
||||
(define/public (render-version d ri)
|
||||
`((div ([class "versionbox"])
|
||||
,@(render-content
|
||||
(list
|
||||
(make-element "version"
|
||||
(list "Version: "
|
||||
(current-version))))
|
||||
d
|
||||
ri))))
|
||||
|
||||
(define/override (render-part d ri)
|
||||
(let ([number (collected-info-number (part-collected-info d ri))])
|
||||
`(,@(if (and (not (part-title-content d))
|
||||
|
|
@ -646,6 +665,9 @@
|
|||
`((div ((class "tocsubtitle"))
|
||||
"On this page:")))
|
||||
|
||||
(define/override (toc-wrap p)
|
||||
(list p))
|
||||
|
||||
(define contents-content '("contents"))
|
||||
(define index-content '("index"))
|
||||
(define prev-content '(larr " prev"))
|
||||
|
|
@ -654,7 +676,11 @@
|
|||
(define no-next-content next-content)
|
||||
(define sep-element (make-element #f '(nbsp nbsp)))
|
||||
|
||||
(inherit render-table)
|
||||
(inherit render-table
|
||||
render-paragraph)
|
||||
|
||||
(define/override (render-version r i)
|
||||
null)
|
||||
|
||||
(define/private (find-siblings d ri)
|
||||
(let ([parent (collected-info-parent (part-collected-info d ri))])
|
||||
|
|
@ -705,24 +731,16 @@
|
|||
(let ([d (car (last-pair subs))])
|
||||
(and (part-style? d 'index)
|
||||
d)))))))])
|
||||
`(,@(render-table (make-table
|
||||
'at-left
|
||||
(list
|
||||
(cons
|
||||
(make-flow
|
||||
(list
|
||||
(make-paragraph
|
||||
`((div ([class "navleft"])
|
||||
,@(render-content
|
||||
(append
|
||||
(list
|
||||
(make-element
|
||||
(if parent
|
||||
(make-target-url "index.html")
|
||||
"nonavigation")
|
||||
contents-content)))))
|
||||
contents-content))
|
||||
(if index
|
||||
(list
|
||||
(make-flow
|
||||
(list
|
||||
(make-paragraph
|
||||
(list
|
||||
'nbsp
|
||||
(if (eq? d index)
|
||||
|
|
@ -732,16 +750,12 @@
|
|||
(make-link-element
|
||||
#f
|
||||
index-content
|
||||
(car (part-tags index)))))))))
|
||||
null))))
|
||||
d ri)
|
||||
,@(render-table (make-table
|
||||
'at-right
|
||||
(list
|
||||
(list
|
||||
(make-flow
|
||||
(list
|
||||
(make-paragraph
|
||||
(car (part-tags index)))))
|
||||
null))
|
||||
d
|
||||
ri))
|
||||
(div ([class "navright"])
|
||||
,@(render-content
|
||||
(list
|
||||
(make-element
|
||||
(if parent
|
||||
|
|
@ -764,9 +778,9 @@
|
|||
(if next
|
||||
(make-target-url (derive-filename next))
|
||||
"nonavigation")
|
||||
next-content))))))))
|
||||
next-content))
|
||||
d
|
||||
ri)))))
|
||||
ri))))))
|
||||
|
||||
(define/override (render-part d ri)
|
||||
(parameterize ([current-version
|
||||
|
|
@ -796,20 +810,9 @@
|
|||
[on-separate-page #f])
|
||||
(if sep?
|
||||
;; Navigation bars;
|
||||
`(,@(navigation d ri)
|
||||
`(,@(super render-version d ri)
|
||||
,@(navigation d ri)
|
||||
(p nbsp)
|
||||
,@(render-table (make-table
|
||||
"versionbox"
|
||||
(list
|
||||
(list
|
||||
(make-flow
|
||||
(list
|
||||
(make-paragraph (list
|
||||
(make-element "version"
|
||||
(list "Version: "
|
||||
(current-version))))))))))
|
||||
d
|
||||
ri)
|
||||
,@(super render-part d ri)
|
||||
(p nbsp)
|
||||
,@(navigation d ri)
|
||||
|
|
|
|||
|
|
@ -21,18 +21,26 @@
|
|||
text-align: left;
|
||||
}
|
||||
|
||||
.navleft {
|
||||
position: relative;
|
||||
float: left;
|
||||
}
|
||||
.navright {
|
||||
position: relative;
|
||||
float: right;
|
||||
}
|
||||
|
||||
.versionbox {
|
||||
position: relative;
|
||||
float: right;
|
||||
left: 3em;
|
||||
top: -2em;
|
||||
height: 0em;
|
||||
width: 13em;
|
||||
margin: 0em -13em 0em 0em;
|
||||
}
|
||||
.version {
|
||||
font-family: sans-serif;
|
||||
|
||||
font-size: small;
|
||||
}
|
||||
|
||||
.refpara {
|
||||
|
|
@ -199,46 +207,6 @@
|
|||
font-size: 110%;
|
||||
}
|
||||
|
||||
.tiny {
|
||||
font-size: 40%;
|
||||
}
|
||||
|
||||
.scriptsize {
|
||||
font-size: 60%;
|
||||
}
|
||||
|
||||
.footnotesize {
|
||||
font-size: 75%;
|
||||
}
|
||||
|
||||
.small {
|
||||
font-size: 90%;
|
||||
}
|
||||
|
||||
.normalsize {
|
||||
font-size: 100%;
|
||||
}
|
||||
|
||||
.large {
|
||||
font-size: 120%;
|
||||
}
|
||||
|
||||
.largecap {
|
||||
font-size: 150%;
|
||||
}
|
||||
|
||||
.largeup {
|
||||
font-size: 200%;
|
||||
}
|
||||
|
||||
.huge {
|
||||
font-size: 300%;
|
||||
}
|
||||
|
||||
.hugecap {
|
||||
font-size: 350%;
|
||||
}
|
||||
|
||||
pre {
|
||||
margin-left: 2em;
|
||||
}
|
||||
|
|
@ -325,10 +293,6 @@
|
|||
font-family: monospace;
|
||||
}
|
||||
|
||||
.small {
|
||||
font-size: 80%;
|
||||
}
|
||||
|
||||
.inferencetop td {
|
||||
border-bottom: 1px solid black;
|
||||
text-align: center;
|
||||
|
|
@ -422,6 +386,7 @@
|
|||
text-decoration: none;
|
||||
color: black;
|
||||
}
|
||||
|
||||
.techlink:hover {
|
||||
text-decoration: underline;
|
||||
color: blue;
|
||||
|
|
@ -460,37 +425,6 @@
|
|||
color: #EEEEEE;
|
||||
}
|
||||
|
||||
.disable {
|
||||
/* color: #e5e5e5; */
|
||||
color: gray;
|
||||
}
|
||||
|
||||
.smallcaps {
|
||||
font-size: 75%;
|
||||
}
|
||||
|
||||
.smallprint {
|
||||
color: gray;
|
||||
font-size: 75%;
|
||||
text-align: right;
|
||||
}
|
||||
|
||||
.footnoterule {
|
||||
text-align: left;
|
||||
width: 40%;
|
||||
}
|
||||
|
||||
.colophon {
|
||||
color: gray;
|
||||
font-size: 80%;
|
||||
font-style: italic;
|
||||
text-align: right;
|
||||
}
|
||||
|
||||
.colophon a {
|
||||
color: gray;
|
||||
}
|
||||
|
||||
.mywbr {
|
||||
width: 0;
|
||||
font-size: 1px;
|
||||
|
|
|
|||
Loading…
Reference in New Issue
Block a user