suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Make the mailing list pointers relative to the lists server.

Browse Source
This commit is contained in:
Eli Barzilay 2010-06-24 11:51:04 -04:00
parent 5cf9ff5f0d
commit 95577a0aad
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
collects/meta/web/minis/lists.rkt
View File

@ -18,6 +18,7 @@
(define lists (define lists
@page[#:title "Mailing Lists" #:file "" #:part-of 'community @page[#:title "Mailing Lists" #:file "" #:part-of 'community
#:referrer values
(define (list-cells what) (map (lambda (r) (r what)) list-renderers)) (define (list-cells what) (map (lambda (r) (r what)) list-renderers))
]{ ]{
@p{This is the Racket mailing list server. We have three public mailing @p{This is the Racket mailing list server. We have three public mailing
@ -139,7 +140,7 @@
@div[style: "margin-left: 2em;"]{ @div[style: "margin-left: 2em;"]{
@description @description
@br @br
[@a[href: (list name "/")]{list page}, [@a[href: (list lists name "/")]{list page},
@gmane-link["dir"]{gmane mirror}, @gmane-link["dir"]{gmane mirror},
@mail-archive-link[""]{mail-archive}@; @mail-archive-link[""]{mail-archive}@;
@(and google-groups-url @(and google-groups-url
@ -152,4 +153,4 @@
(define (mailing-lists-quick) (define (mailing-lists-quick)
@text{@(apply parlist @strong{Mailing Lists} @text{@(apply parlist @strong{Mailing Lists}
(map (lambda (r) (r 'quick)) list-renderers)) (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.}})