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

alphabetized the doc.txt manuals

Browse Source 
svn: r6823
This commit is contained in:
Robby Findler 2007-07-05 04:19:07 +00:00
parent a01c1e92ed
commit 0fa95f13a3
1 changed files with 54 additions and 46 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

44
collects/help/private/manuals.ss
View File

@ -118,7 +118,6 @@
compare-docs)]
[names (map get-doc-name docs)]
[names+paths (map cons names docs)])
(let-values ([(collections-doc-files collection-names) (colldocs)])
(apply
string-append
"<html>"
@ -141,22 +140,8 @@
(build-known-manuals names+paths)
(list "<h3>Doc.txt</h3><ul>")
(map
(lambda (collection-doc-file name)
(let ([path (build-path (car collection-doc-file)
(cadr collection-doc-file))])
(format "<LI> ~a"
(if (file-exists? path)
(format "<A HREF=\"/servlets/doc-anchor.ss?file=~a&name=~a&caption=Documentation for the ~a collection\">~a collection</A>"
;; escape colons and other junk
(uri-encode (path->string path))
(uri-encode name)
(uri-encode name)
name)
(format "<FONT COLOR=\"RED\">~a collection: specified doc.txt file (~a) not found</FONT>"
name path)))))
collections-doc-files
collection-names)
(doc.txt-manuals)
(list "</UL>")
(let ([uninstalled (get-uninstalled docs)])
@ -184,7 +169,30 @@
"")))))
uninstalled)
"</UL>")))
(list "</body></html>"))))))
(list "</body></html>")))))
(define (doc.txt-manuals)
(let-values ([(collections-doc-files collection-names) (colldocs)])
(let ([name/html-pairs
(map
(lambda (collection-doc-file name)
(cons
name
(let ([path (build-path (car collection-doc-file)
(cadr collection-doc-file))])
(format "<LI> ~a"
(if (file-exists? path)
(format "<A HREF=\"/servlets/doc-anchor.ss?file=~a&name=~a&caption=Documentation for the ~a collection\">~a collection</A>"
;; escape colons and other junk
(uri-encode (path->string path))
(uri-encode name)
(uri-encode name)
name)
(format "<FONT COLOR=\"RED\">~a collection: specified doc.txt file (~a) not found</FONT>"
name path))))))
collections-doc-files
collection-names)])
(map cdr (sort name/html-pairs (λ (x y) (string<=? (car x) (car y))))))))
;; break-between : regexp
;; (listof (union string (cons string string)))