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

launcher scribblings and other doc fixes

Browse Source 
svn: r8469

original commit: 99818355f7b806dd7e36f5720558d2701c470948
This commit is contained in:
Matthew Flatt 2008-01-29 22:56:17 +00:00
parent e2e36b404e
commit d7488ba11b
1 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -334,9 +334,9 @@
(div ((class "maincolumn")) (div ((class "maincolumn"))
(div ((class "main")) (div ((class "main"))
,@(render-version d ri) ,@(render-version d ri)
,@(navigation d ri) ,@(navigation d ri #f)
,@(render-part d ri) ,@(render-part d ri)
,@(navigation d ri)))))]) ,@(navigation d ri #t)))))])
(unless css-path (unless css-path
(install-file scribble-css)) (install-file scribble-css))
(printf "<!DOCTYPE HTML PUBLIC \"-//W3C//DTD HTML 4.0 Transitional//EN\" \"http://www.w3.org/TR/html4/loose.dtd\">\n") (printf "<!DOCTYPE HTML PUBLIC \"-//W3C//DTD HTML 4.0 Transitional//EN\" \"http://www.w3.org/TR/html4/loose.dtd\">\n")
@ -370,7 +370,7 @@
(define/public (derive-filename d) "bad.html") (define/public (derive-filename d) "bad.html")
(define/private (navigation d ri) (define/private (navigation d ri pre-space?)
(let ([parent (part-parent d ri)]) (let ([parent (part-parent d ri)])
(let*-values ([(prev next) (find-siblings d ri)] (let*-values ([(prev next) (find-siblings d ri)]
[(prev) (if prev [(prev) (if prev
@ -408,7 +408,8 @@
(not index) (not index)
(not up-path)) (not up-path))
null null
`((div ([class "navleft"]) `(,@(if pre-space? '((p nbsp)) null)
(div ([class "navleft"])
,@(render-content ,@(render-content
(append (append
(list (list