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

Added generation of entries of hdindex for subpages of /servlets/home.ss

Browse Source 
svn: r7196
This commit is contained in:
Jens Axel Soegaard 2007-08-27 19:56:25 +00:00
parent 48ed9c47af
commit d35c7cbc9d
2 changed files with 24 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/help/installer.ss
View File

@ -4,7 +4,8 @@
(require (lib "match.ss") (require (lib "match.ss")
(lib "file.ss") (lib "file.ss")
(lib "list.ss") (lib "list.ss")
(lib "dirs.ss" "setup")) (lib "dirs.ss" "setup")
"servlets/home.ss")
(define (installer path) (define (installer path)
(create-index-file)) (create-index-file))
@ -16,6 +17,7 @@
(define (create-index-file) (define (create-index-file)
(gen-index servlet-dir) (gen-index servlet-dir)
(set! index (append index (generate-index-for-static-pages)))
(with-output-to-file (build-path dest-dir index-file) (with-output-to-file (build-path dest-dir index-file)
(lambda () (lambda ()
(printf "(\n") (printf "(\n")

29
collects/help/servlets/home.ss
View File

@ -15,7 +15,9 @@
(define copyright-year 2007) (define copyright-year 2007)
(provide interface-version timeout start) (provide interface-version timeout start
generate-index-for-static-pages)
(define interface-version 'v1) (define interface-version 'v1)
(define timeout +inf.0) (define timeout +inf.0)
@ -52,8 +54,8 @@
`(,@(if (eq? (helpdesk-platform) 'external-browser) `(,@(if (eq? (helpdesk-platform) 'external-browser)
'((h3 "NOTE") '((h3 "NOTE")
(p "To see the list of manuals installed on " (i "your") " computer," (p "To see the list of manuals installed on " (i "your") " computer,"
" use the HelpDesk from within DrScheme. This list of manuals reflects" " use the Help Desk from within DrScheme. This list of manuals reflects"
" what is installed on this HelpDesk server only.")) " what is installed on this Help Desk server only."))
'()) '())
(VERBATIM ,(find-manuals)) (VERBATIM ,(find-manuals))
(p (i "Version: " ,(plt-version)))))] (p (i "Version: " ,(plt-version)))))]
@ -66,7 +68,7 @@
`((VERBATIM `((VERBATIM
((h3 "NOTE") ((h3 "NOTE")
(p "To see the release information for your installation," (p "To see the release information for your installation,"
" use the HelpDesk from within DrScheme." " use the Help Desk from within DrScheme."
" The following information reflects the installation on" " The following information reflects the installation on"
" this server only.") " this server only.")
(h1 "Release Information") (h1 "Release Information")
@ -164,6 +166,16 @@
[#f (page-tag->title+items "home")] [#f (page-tag->title+items "home")]
[(tag header body) (values header body)])) [(tag header body) (values header body)]))
;; generate-index-for-static-pages : -> list-of-index-entries
; used by install.ss to generate hdindex
(define (generate-index-for-static-pages)
; (<indexed-item> <url> <label-within-html-file> <page-title>)
(map (match-lambda
[(subpage page-title . more)
(let ([url (format "/servlets/home.ss?subpage=~a" subpage)])
`(,page-title ,url "" ,page-title))])
easy-pages))
;; static subpages ;; static subpages
;; - In ALPHABETICAL order ;; - In ALPHABETICAL order
(define easy-pages (define easy-pages
@ -206,8 +218,8 @@
(li (a ([href ,url-helpdesk-why-drscheme]) (li (a ([href ,url-helpdesk-why-drscheme])
"Why DrScheme?"))))) "Why DrScheme?")))))
;; ;;
("home" "Help Desk Home" ("home" "PLT Help Desk Home"
((p "The HelpDesk is a complete source of information about PLT software, " ((p "The Help Desk is a complete source of information about PLT software, "
"including DrScheme, MzScheme and MrEd.") "including DrScheme, MzScheme and MrEd.")
(p "There are two ways to find information in the Help Desk: searching and browsing.") (p "There are two ways to find information in the Help Desk: searching and browsing.")
(h3 "Search the Help Desk") (h3 "Search the Help Desk")
@ -386,8 +398,9 @@
(h3 "For Teachers and Researchers") (h3 "For Teachers and Researchers")
(p (a ((href ,url-helpdesk-why-drscheme)) "PLT's vision")))) (p (a ((href ,url-helpdesk-why-drscheme)) "PLT's vision"))))
;; ;;
("release-notes" (h1 "Release Notes for PLT Scheme version " ,(version)) ("release-notes" "Release Notes"
((a ([name "relnotes"] [VALUE "Release notes"])) ((h1 "Release Notes for PLT Scheme version " ,(version))
(a ([name "relnotes"] [VALUE "Release notes"]))
(p "Detailed release notes:" (p "Detailed release notes:"
(ul (ul
,@(let () ,@(let ()