From ce2d7f040a9c3a6245863aee805ea15198c33375 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Wed, 23 Jul 2014 09:39:52 +0100 Subject: [PATCH] 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. --- .../meta/new-web/download/symlinks.rkt | 26 ++++++++++++------- .../meta/new-web/www/techreports.rkt | 2 +- 2 files changed, 18 insertions(+), 10 deletions(-) diff --git a/pkgs/plt-services/meta/new-web/download/symlinks.rkt b/pkgs/plt-services/meta/new-web/download/symlinks.rkt index 9e07a2d6a9..fe696f50b7 100644 --- a/pkgs/plt-services/meta/new-web/download/symlinks.rkt +++ b/pkgs/plt-services/meta/new-web/download/symlinks.rkt @@ -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/" ;; and "docs//..." to "releases//..." (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 diff --git a/pkgs/plt-services/meta/new-web/www/techreports.rkt b/pkgs/plt-services/meta/new-web/www/techreports.rkt index 28a2a400c7..6cb572517f 100644 --- a/pkgs/plt-services/meta/new-web/www/techreports.rkt +++ b/pkgs/plt-services/meta/new-web/www/techreports.rkt @@ -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]}