56 lines
1.9 KiB
Scheme
56 lines
1.9 KiB
Scheme
(module notes mzscheme
|
|
(require (lib "servlet.ss" "web-server")
|
|
(lib "list.ss")
|
|
(lib "uri-codec.ss" "net")
|
|
(lib "dirs.ss" "setup")
|
|
"../private/util.ss"
|
|
"../private/headelts.ss")
|
|
|
|
(define (make-entry s)
|
|
(let* ([label (car s)]
|
|
[dir (cadr s)]
|
|
[filename (caddr s)]
|
|
[file (build-path (find-doc-dir) "release-notes" dir filename)])
|
|
(if (file-exists? file)
|
|
`(LI (A ((HREF ,(format "/servlets/doc-anchor.ss?file=~a&name=~a&caption=~a"
|
|
(uri-encode (path->string file))
|
|
filename
|
|
label)))
|
|
,label))
|
|
#f)))
|
|
|
|
(require (lib "servlet.ss" "web-server"))
|
|
(provide interface-version timeout start)
|
|
(define interface-version 'v1)
|
|
(define timeout +inf.0)
|
|
|
|
(define (start initial-request)
|
|
|
|
(report-errors-to-browser send/finish)
|
|
|
|
`(HTML
|
|
(HEAD ,hd-css
|
|
,@hd-links
|
|
(TITLE "PLT release notes"))
|
|
(H1 "Release Notes for PLT Scheme version " ,(version))
|
|
(A ((NAME "relnotes") (VALUE "Release notes")))
|
|
"Detailed release notes:"
|
|
(UL
|
|
,@(filter
|
|
(lambda (x) x) ; delete #f entries
|
|
(map make-entry
|
|
'(("DrScheme release notes"
|
|
"drscheme" "HISTORY")
|
|
("Teachpack release notes"
|
|
"teachpack" "HISTORY")
|
|
("MzScheme version 300 notes"
|
|
"mzscheme" "MzScheme_300.txt")
|
|
("MzScheme release notes"
|
|
"mzscheme" "HISTORY")
|
|
("MrEd release notes"
|
|
"mred" "HISTORY")
|
|
("Stepper release notes"
|
|
"stepper" "HISTORY")
|
|
("MrFlow release notes"
|
|
"mrflow" "HISTORY"))))))))
|