web pages: add "recent" links at download-racket-lang.org

These links reflect soft links that are in place at
"mirror.racket-lang.org", but they're needed as links/rewrite on the
main site for some purposes, such as references from the tech-report
pages.
This commit is contained in:
Matthew Flatt 2014-07-23 09:39:52 +01:00
parent a114733559
commit ce2d7f040a
2 changed files with 18 additions and 10 deletions

View File

@ -8,20 +8,28 @@
(define download-index-site (index-site download-site))
;; Map old layout to new layout (where "new" = "v5.92 and later"):
(define (version-symlink src-v dest-v)
(symlink #:site download-site
(format "../releases/~a/installers" dest-v)
(format "installers/~a" src-v))
(symlink #:site download-site
(format "../../releases/~a/doc" dest-v)
(format "docs/~a/html" src-v))
(symlink #:site download-site
(format "../../releases/~a/pdf-doc" dest-v)
(format "docs/~a/pdf" src-v)))
;; For versions 5.92 and later, redirect "installers/<version>"
;; and "docs/<version>/..." to "releases/<version>/..."
(for ([r (in-list all-releases)])
(define v (release-version r))
(when (version<=? "5.92" v)
(symlink #:site download-site
(format "../releases/~a/installers" v)
(format "installers/~a" v))
(symlink #:site download-site
(format "../../releases/~a/doc" v)
(format "docs/~a/html" v))
(symlink #:site download-site
(format "../../releases/~a/pdf-doc" v)
(format "docs/~a/pdf" v))))
(version-symlink v v)))
;; Add "recent" links for the latest version:
(unless (null? all-releases)
(version-symlink "recent" (release-version (car all-releases))))
;; We generally expect "index.html" files to be in place in "releases"
;; and for pre-v6.0 "docs", but keep "installers", "docs", and

View File

@ -84,7 +84,7 @@
@tr{@td{@b{@v} @br @small{(@(release-date-string r))}}
@td{@TT{\cite[Version @v]{plt-tr@num}} @br
@TT|{@cite[(in-bib plt-tr|@num "Version |@v")]}|}
@td{@link['html v], @link['pdf v]}})}
@td{@link['html v] @link['pdf v]}})}
@p{@small{Reminder: the release dates should not be included in the
entry or the citation.}}}})
@list{@dt{@title-line[#t]}