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

removed index-page search hacks, added search-page stub

Browse Source 
svn: r9994
This commit is contained in:
Eli Barzilay 2008-05-28 01:52:01 +00:00
parent 9b0492e320
commit b21a0182c1
6 changed files with 28 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/scribble/basic.ss
View File

@ -237,8 +237,8 @@
(lambda (renderer sec ri)
(define l null)
(define line-break (if (send renderer index-manual-newlines?)
(make-element 'newline '("\n"))
""))
(make-element 'newline '("\n"))
""))
(define alpha-starts (make-hasheq))
(hash-for-each
(let ([parent (collected-info-parent (part-collected-info sec ri))])

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

@ -105,6 +105,7 @@
(define-serializable-struct literal-anchor (string))
#; ; no need for these index-local searches
#reader scribble/reader (begin ; easier to format
(define search-script
@ -607,6 +608,7 @@
(make-element "nonavigation" index-content)
(make-link-element
#f index-content (car (part-tags index)))))
#; ; no need for these index-local searches
,@(if (eq? d index)
null
`((small nbsp
@ -909,7 +911,8 @@
null))
,@(render-flow d part ri #f))
(loop (cdr ds) (cdr as) (cdr vas))))]))))
`(,@(if index? `(,search-script ,search-field) '())
`(#; ; no need for these index-local searches
,@(if index? `(,search-script ,search-field) '())
(table ([cellspacing "0"]
,@(if need-inline?
'([style "display: inline; vertical-align: top;"])

4
collects/scribblings/main/config.ss
View File

@ -16,12 +16,12 @@
`((start "PLT Manuals" user "index.html")
(search "Search Manuals" user "search/index.html")
---
(index "Master Index" user "master-index/index.html")
---
(license "License" plt "license/index.html")
(acks "Acknowledgements" plt "acks/index.html")
(release "Release Notes" plt "release/index.html")
---
(index "Master Index" user "master-index/index.html")
---
(bugreport "Report a Bug" #f ,(format "~a?v=~a" bug-url (version)))))
;; Section definitions for manuals that appear on the start page.

8
collects/scribblings/main/info.ss
View File

@ -5,10 +5,10 @@
(main-doc-root always-run depends-all-main no-depend-on) (omit))
("user/start.scrbl"
(user-doc-root always-run depends-all no-depend-on) (omit))
("master-index.scrbl"
(depends-all-main no-depend-on) (omit))
("user/master-index.scrbl"
(user-doc depends-all no-depend-on) (omit))
("search.scrbl" (depends-all-main no-depend-on) (omit))
("master-index.scrbl" (depends-all-main no-depend-on) (omit))
("user/search.scrbl" (user-doc depends-all no-depend-on) (omit))
("user/master-index.scrbl" (user-doc depends-all no-depend-on) (omit))
("license.scrbl" () (omit))
("acks.scrbl" () (omit))
("release.scrbl" () (omit))))

8
collects/scribblings/main/search.scrbl Normal file
View File

@ -0,0 +1,8 @@
#lang scribble/doc
@(require scribble/basic
scribble/decode
"private/utils.ss")
@main-page['search #t]
Search page not implemented yet.

8
collects/scribblings/main/user/search.scrbl Normal file
View File

@ -0,0 +1,8 @@
#lang scribble/doc
@(require scribble/basic
scribble/decode
"../private/utils.ss")
@main-page['search #f]
Search page not implemented yet.