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

...

Browse Source 
original commit: 8a9d9a1b41e39af9b03ee54598d71af88a872373
This commit is contained in:
Robby Findler 2001-04-10 15:12:11 +00:00
parent 9fd3522c22
commit 3fd94648db
1 changed files with 2 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -3,6 +3,7 @@
(require (lib "unitsig.ss") (require (lib "unitsig.ss")
"sig.ss" "sig.ss"
"../help-sig.ss" "../help-sig.ss"
"docpos.ss"
(lib "list.ss")) (lib "list.ss"))
(provide search@) (provide search@)
@ -11,12 +12,6 @@
(unit/sig search^ (unit/sig search^
(import help:doc-position^) (import help:doc-position^)
; Define an order for the documentation:
; and the names of the standard documentation
(define-values (standard-html-doc-position known-manuals)
(let ([pr (require-library "docpos.ss" "help")])
(values (car pr) (cdr pr))))
(define (html-doc-position x) (define (html-doc-position x)
(or (user-defined-doc-position x) (or (user-defined-doc-position x)
(standard-html-doc-position x))) (standard-html-doc-position x)))
@ -41,7 +36,7 @@
; gets the standard title of the documentation, from the ; gets the standard title of the documentation, from the
; known docs list. ; known docs list.
(define (get-std-doc-title path doc) (define (get-std-doc-title path doc)
(let ([a (assoc doc known-manuals)]) (let ([a (assoc doc known-docs)])
(if a (if a
(cdr a) (cdr a)
(let ([index-file (build-path path doc "index.htm")]) (let ([index-file (build-path path doc "index.htm")])