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

minor

Browse Source 
svn: r10577

original commit: 9a737ade303cb7e54793e59fafcaa889b91d54df
This commit is contained in:
Eli Barzilay 2008-07-03 10:30:54 +00:00
parent e47582cec2
commit e578b6c328
1 changed files with 14 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -391,15 +391,15 @@
[content (if (null? toc-content) [content (if (null? toc-content)
content content
`((a ([href "index.html"] [class "tocviewlink"]) `((a ([href "index.html"] [class "tocviewlink"])
,@content)))]) ,@content)))])
`((div ([class "tocview"]) `((div ([class "tocview"])
(div ([class "tocviewtitle"]) ,@content) (div ([class "tocviewtitle"]) ,@content)
(div nbsp) (div nbsp)
,@(if (null? toc-content) ,@(if (null? toc-content)
'() '()
(toc-wrap (toc-wrap
`(table ([class "tocviewlist"] [cellspacing "0"]) `(table ([class "tocviewlist"] [cellspacing "0"])
,@toc-content))))))) ,@toc-content)))))))
,@(render-onthispage-contents ,@(render-onthispage-contents
d ri top (if (part-style? d 'no-toc) "tocview" "tocsub")) d ri top (if (part-style? d 'no-toc) "tocview" "tocsub"))
,@(parameterize ([extra-breaking? #t]) ,@(parameterize ([extra-breaking? #t])
@ -1153,11 +1153,12 @@
(define d-in? (and d (in-plt? e-d))) (define d-in? (and d (in-plt? e-d)))
;; use an absolute link if the link is from outside the plt tree ;; use an absolute link if the link is from outside the plt tree
;; going in (or if d is #f) ;; going in (or if d is #f)
(if (not (and d (cond [(equal? p-in? d-in?) #t] (if (not (and d (cond
[d-in? (error 'from-root [(equal? p-in? d-in?) #t]
"got a link from the PLT going out; ~e" [d-in? (error 'from-root
p)] "got a link from the PLT tree going out; ~e"
[else #f]))) p)]
[else #f])))
(url->string (path->url (path->complete-path p))) (url->string (path->url (path->complete-path p)))
(let loop ([e-d e-d] [e-p e-p]) (let loop ([e-d e-d] [e-p e-p])
(cond (cond