From 95577a0aad3416ebbca6ffc2e4007c4c299ecf38 Mon Sep 17 00:00:00 2001 From: Eli Barzilay Date: Thu, 24 Jun 2010 11:51:04 -0400 Subject: [PATCH] Make the mailing list pointers relative to the lists server. --- collects/meta/web/minis/lists.rkt | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/collects/meta/web/minis/lists.rkt b/collects/meta/web/minis/lists.rkt index 15620c39ea..f37356e977 100644 --- a/collects/meta/web/minis/lists.rkt +++ b/collects/meta/web/minis/lists.rkt @@ -18,6 +18,7 @@ (define lists @page[#:title "Mailing Lists" #:file "" #:part-of 'community + #:referrer values (define (list-cells what) (map (lambda (r) (r what)) list-renderers)) ]{ @p{This is the Racket mailing list server. We have three public mailing @@ -139,7 +140,7 @@ @div[style: "margin-left: 2em;"]{ @description @br - [@a[href: (list name "/")]{list page}, + [@a[href: (list lists name "/")]{list page}, @gmane-link["dir"]{gmane mirror}, @mail-archive-link[""]{mail-archive}@; @(and google-groups-url @@ -152,4 +153,4 @@ (define (mailing-lists-quick) @text{@(apply parlist @strong{Mailing Lists} (map (lambda (r) (r 'quick)) list-renderers)) - @p{See the @lists{mailing list server} for more details.}}) + @p{See the @a[href: lists]{mailing list server} for more details.}})