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

..

Browse Source 
original commit: c2a8e543ea67f1a2e6671c01f187663ec65d23f0
This commit is contained in:
Robby Findler 2003-09-30 23:10:19 +00:00
parent 5b73d23f27
commit c66068df39
1 changed files with 37 additions and 39 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -3,6 +3,7 @@
"docpos.ss" "docpos.ss"
"colldocs.ss" "colldocs.ss"
"path.ss" "path.ss"
"manuals.ss"
(lib "list.ss") (lib "list.ss")
(lib "contract.ss")) (lib "contract.ss"))
@ -36,7 +37,8 @@
; get-std-doc-title : string -> string ; get-std-doc-title : string -> string
; 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-values ([(path doc _1) (split-path path/doc)])
(cond (cond
[(string=? doc "help") [(string=? doc "help")
"PLT Help Desk"] "PLT Help Desk"]
@ -60,30 +62,26 @@
(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
(define-values (std-docs std-doc-names) (define-values (std-docs std-doc-names)
(let* ([path (with-handlers ([not-break-exn? (lambda (x) #f)]) (let* ([docs (find-doc-directories)]
(collection-path "doc"))]) [doc-names (map get-std-doc-title docs)])
(if path
(let* ([doc-collections (directory-list path)]
[docs (map (lambda (x) (build-path path x)) doc-collections)]
[doc-names (map (lambda (x) (get-std-doc-title path x)) doc-collections)])
; Order the standard docs: ; Order the standard docs:
(let ([ordered (quicksort (let ([ordered (quicksort
(map list docs doc-collections doc-names) (map list docs doc-names)
(lambda (a b) ; html-doc-position expects collection name (lambda (a b) ; html-doc-position expects collection name
(< (html-doc-position (cadr a)) (< (html-doc-position (cadr a))
(html-doc-position (cadr b)))))]) (html-doc-position (cadr b)))))])
(values (map car ordered) (map caddr ordered)))) ; here we want the std title (values (map car ordered) (map cadr ordered))))) ; here we want the std title
(values null null))))
; Check collections for doc.txt files: ; Check collections for doc.txt files:
(define-values (txt-docs txt-doc-names) (colldocs)) (define-values (txt-docs txt-doc-names) (colldocs))
(set! docs (append std-docs txt-docs)) (set! docs (append std-docs txt-docs))
(set! doc-names (append (set! doc-names (append
std-doc-names std-doc-names
(map (lambda (s) (format "the ~a collection" s)) (map (lambda (s) (format "the ~a collection" s))