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

Help Desk header

Browse Source 
original commit: 4cb5111cdfef5ff8d953d06f373bc33d0bb6c0b0
This commit is contained in:
Paul Steckler 2002-07-25 22:42:20 +00:00
parent 30568ed2a2
commit 19230340dc
1 changed files with 24 additions and 21 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -31,9 +31,12 @@
; 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-docs)]) (cond
(if a [(string=? doc "help")
(cdr a) "PLT Help Desk"]
[(assoc doc known-docs)
=> (lambda (a) (cdr a))]
[else
(let ([index-file (build-path path doc "index.htm")]) (let ([index-file (build-path path doc "index.htm")])
(if (file-exists? index-file) (if (file-exists? index-file)
(call-with-input-file index-file (call-with-input-file index-file
@ -51,7 +54,7 @@
(map (lambda (x) (if (char-whitespace? x) #\space x)) (map (lambda (x) (if (char-whitespace? x) #\space x))
(string->list (cadr m)))))] (string->list (cadr m)))))]
[else (loop)]))))) [else (loop)])))))
doc))))) doc))]))
(define (reset-doc-lists) (define (reset-doc-lists)
; Locate standard HTML documentation ; Locate standard HTML documentation