ca3b27b810
(Using a symbolic name makes it easy to use without worrying about circular dependencies.)
23 lines
834 B
Racket
23 lines
834 B
Racket
#lang at-exp s-exp "shared.rkt"
|
|
|
|
(require racket/string "data.rkt" "../www/download.rkt")
|
|
|
|
(define (in-ftp . paths)
|
|
(string-join (cons "/var/ftp/pub/racket" paths) "/"))
|
|
|
|
(define docs (symlink (in-ftp "docs")))
|
|
(define installers (symlink (in-ftp "installers")))
|
|
(define stubs (symlink "/www/stubs"))
|
|
|
|
(provide index)
|
|
(define index
|
|
@page[#:link-title "Downloads" #:part-of 'download]{
|
|
@div[style: "float: right;"]{@download-button}
|
|
Use these links to browse the download directories directly:
|
|
@ul{@li{Current @a[href: `(,installers "/recent")]{installers}
|
|
(or @a[href: installers]{all versions}).}
|
|
@li{Current documentation in
|
|
@a[href: `(,docs "/recent/html")]{HTML} and in
|
|
@a[href: `(,docs "/recent/pdf")]{PDF}
|
|
(or @a[href: docs]{all versions}).}}})
|