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

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

Browse Source 
svn: r9994

original commit: b21a0182c1808c7b5ae6d103c43d16911e19cff3
This commit is contained in:
Eli Barzilay 2008-05-28 01:52:01 +00:00
parent b47b1682f1
commit 263f30c8b3
2 changed files with 6 additions and 3 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;"])