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

.

Browse Source 
original commit: e515cf70d85b98e74c4efa22b9e1547fee5cd05a
This commit is contained in:
Robby Findler 2004-02-04 18:00:18 +00:00
parent e0dd79a1cd
commit af279647b2
1 changed files with 31 additions and 23 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

54
collects/help/private/search.ss
View File

@ -322,19 +322,24 @@
[(text) (load-txt-keywords doc)]
[else null])]
[add-key-choice (lambda (v)
(found "keyword entries")
(add-choice
(car v) ; key
(cadr v) ; display
(list-ref v 4) ; title
(if (eq? 'text doc-kind)
(apply build-path doc)
(let ([file (list-ref v 2)])
(if (servlet-path? file)
file
(build-path doc file))))
(list-ref v 3) ; label
ckey))])
(when (and (pair? v)
(pair? (cdr v))
(pair? (cddr v))
(pair? (cdddr v))
(pair? (cddddr v)))
(found "keyword entries")
(add-choice
(car v) ; key
(cadr v) ; display
(list-ref v 4) ; title
(if (eq? 'text doc-kind)
(apply build-path doc)
(let ([file (list-ref v 2)])
(if (servlet-path? file)
file
(build-path doc file))))
(list-ref v 3) ; label
ckey)))])
(unless regexp?
(for-each
(lambda (v)
@ -358,16 +363,19 @@
[add-index-choice (lambda (name desc)
(case doc-kind
[(html)
(found "index entries")
(add-choice
"" name
(list-ref desc 2)
(let ([filename (list-ref desc 0)])
(if (servlet-path? filename)
filename
(combine-path/url-path doc filename)))
(list-ref desc 1)
ckey)]
(when (and (pair? desc)
(pair? (cdr desc))
(pair? (cddr desc)))
(found "index entries")
(add-choice
"" name
(list-ref desc 2)
(let ([filename (list-ref desc 0)])
(if (servlet-path? filename)
filename
(combine-path/url-path doc filename)))
(list-ref desc 1)
ckey))]
[(text)
(found "index entries")
(add-choice