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:
parent
a114733559
commit
ce2d7f040a
|
@ -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
|
||||
|
|
|
@ -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]}
|
||||
|
|
Loading…
Reference in New Issue
Block a user