From e4e268f7d54c9b0ebcb04bfb06047149ee632621 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Tue, 29 Jul 2014 11:00:00 +0100 Subject: [PATCH] remove old web-page sources The current web pages are in "new-web" (which should probably change to just "web", eventually). --- pkgs/plt-services/meta/info.rkt | 3 +- pkgs/plt-services/meta/web/README | 47 - pkgs/plt-services/meta/web/all.rkt | 5 - pkgs/plt-services/meta/web/build.rkt | 83 - .../meta/web/common/distribute.rkt | 29 - pkgs/plt-services/meta/web/common/extras.rkt | 132 - pkgs/plt-services/meta/web/common/layout.rkt | 253 -- pkgs/plt-services/meta/web/common/links.rkt | 64 - pkgs/plt-services/meta/web/common/logo.png | Bin 6717 -> 0 bytes pkgs/plt-services/meta/web/common/main.rkt | 7 - pkgs/plt-services/meta/web/common/plticon.ico | Bin 318 -> 0 bytes .../meta/web/common/resources.rkt | 155 - pkgs/plt-services/meta/web/common/utils.rkt | 52 - pkgs/plt-services/meta/web/config.rkt | 30 - pkgs/plt-services/meta/web/download/all.rkt | 3 - pkgs/plt-services/meta/web/download/data.rkt | 303 -- .../meta/web/download/download-pages.rkt | 275 -- pkgs/plt-services/meta/web/download/index.rkt | 21 - .../meta/web/download/installer-pages.rkt | 79 - .../meta/web/download/installers.txt | 434 --- .../meta/web/download/mirror-link.rkt | 177 - .../meta/web/download/release-info.rkt | 60 - .../meta/web/download/resources.rkt | 3 - .../meta/web/download/symlinks.rkt | 15 - .../meta/web/download/version.rkt | 7 - pkgs/plt-services/meta/web/lang/reader.rkt | 18 - pkgs/plt-services/meta/web/minis/all.rkt | 3 - pkgs/plt-services/meta/web/minis/bugs.rkt | 265 -- pkgs/plt-services/meta/web/minis/drracket.rkt | 154 - pkgs/plt-services/meta/web/minis/lists.rkt | 168 - pkgs/plt-services/meta/web/stubs/all.rkt | 10 - pkgs/plt-services/meta/web/stubs/blog.rkt | 1084 ------ pkgs/plt-services/meta/web/stubs/dirlist.rkt | 19 - pkgs/plt-services/meta/web/stubs/docs.rkt | 11 - pkgs/plt-services/meta/web/stubs/git.rkt | 2939 ----------------- .../meta/web/stubs/gitweb-logo.png | Bin 2767 -> 0 bytes pkgs/plt-services/meta/web/stubs/mailman.rkt | 633 ---- pkgs/plt-services/meta/web/stubs/packages.rkt | 17 - pkgs/plt-services/meta/web/stubs/planet.rkt | 17 - pkgs/plt-services/meta/web/stubs/pre.rkt | 299 -- pkgs/plt-services/meta/web/stubs/wiki.rkt | 11 - pkgs/plt-services/meta/web/www/all.rkt | 5 - pkgs/plt-services/meta/web/www/code.rkt | 118 - pkgs/plt-services/meta/web/www/community.rkt | 53 - .../meta/web/www/download-dark.png | Bin 9493 -> 0 bytes pkgs/plt-services/meta/web/www/download.png | Bin 9564 -> 0 bytes pkgs/plt-services/meta/web/www/download.rkt | 42 - pkgs/plt-services/meta/web/www/help.rkt | 38 - pkgs/plt-services/meta/web/www/index.rkt | 538 --- pkgs/plt-services/meta/web/www/irc.rkt | 42 - pkgs/plt-services/meta/web/www/learning.rkt | 102 - pkgs/plt-services/meta/web/www/loud.png | Bin 9395 -> 0 bytes pkgs/plt-services/meta/web/www/new-name.rkt | 171 - .../meta/web/www/old-techreports.rkt | 482 --- pkgs/plt-services/meta/web/www/people.rkt | 108 - pkgs/plt-services/meta/web/www/resources.rkt | 3 - .../plt-services/meta/web/www/techreports.rkt | 105 - .../meta/web/www/web-copyright.rkt | 12 - 58 files changed, 1 insertion(+), 9703 deletions(-) delete mode 100644 pkgs/plt-services/meta/web/README delete mode 100644 pkgs/plt-services/meta/web/all.rkt delete mode 100755 pkgs/plt-services/meta/web/build.rkt delete mode 100644 pkgs/plt-services/meta/web/common/distribute.rkt delete mode 100644 pkgs/plt-services/meta/web/common/extras.rkt delete mode 100644 pkgs/plt-services/meta/web/common/layout.rkt delete mode 100644 pkgs/plt-services/meta/web/common/links.rkt delete mode 100644 pkgs/plt-services/meta/web/common/logo.png delete mode 100644 pkgs/plt-services/meta/web/common/main.rkt delete mode 100644 pkgs/plt-services/meta/web/common/plticon.ico delete mode 100644 pkgs/plt-services/meta/web/common/resources.rkt delete mode 100644 pkgs/plt-services/meta/web/common/utils.rkt delete mode 100644 pkgs/plt-services/meta/web/config.rkt delete mode 100644 pkgs/plt-services/meta/web/download/all.rkt delete mode 100644 pkgs/plt-services/meta/web/download/data.rkt delete mode 100644 pkgs/plt-services/meta/web/download/download-pages.rkt delete mode 100644 pkgs/plt-services/meta/web/download/index.rkt delete mode 100644 pkgs/plt-services/meta/web/download/installer-pages.rkt delete mode 100644 pkgs/plt-services/meta/web/download/installers.txt delete mode 100644 pkgs/plt-services/meta/web/download/mirror-link.rkt delete mode 100644 pkgs/plt-services/meta/web/download/release-info.rkt delete mode 100644 pkgs/plt-services/meta/web/download/resources.rkt delete mode 100644 pkgs/plt-services/meta/web/download/symlinks.rkt delete mode 100644 pkgs/plt-services/meta/web/download/version.rkt delete mode 100644 pkgs/plt-services/meta/web/lang/reader.rkt delete mode 100644 pkgs/plt-services/meta/web/minis/all.rkt delete mode 100644 pkgs/plt-services/meta/web/minis/bugs.rkt delete mode 100644 pkgs/plt-services/meta/web/minis/drracket.rkt delete mode 100644 pkgs/plt-services/meta/web/minis/lists.rkt delete mode 100644 pkgs/plt-services/meta/web/stubs/all.rkt delete mode 100644 pkgs/plt-services/meta/web/stubs/blog.rkt delete mode 100644 pkgs/plt-services/meta/web/stubs/dirlist.rkt delete mode 100644 pkgs/plt-services/meta/web/stubs/docs.rkt delete mode 100644 pkgs/plt-services/meta/web/stubs/git.rkt delete mode 100644 pkgs/plt-services/meta/web/stubs/gitweb-logo.png delete mode 100644 pkgs/plt-services/meta/web/stubs/mailman.rkt delete mode 100644 pkgs/plt-services/meta/web/stubs/packages.rkt delete mode 100644 pkgs/plt-services/meta/web/stubs/planet.rkt delete mode 100644 pkgs/plt-services/meta/web/stubs/pre.rkt delete mode 100644 pkgs/plt-services/meta/web/stubs/wiki.rkt delete mode 100644 pkgs/plt-services/meta/web/www/all.rkt delete mode 100644 pkgs/plt-services/meta/web/www/code.rkt delete mode 100644 pkgs/plt-services/meta/web/www/community.rkt delete mode 100644 pkgs/plt-services/meta/web/www/download-dark.png delete mode 100644 pkgs/plt-services/meta/web/www/download.png delete mode 100644 pkgs/plt-services/meta/web/www/download.rkt delete mode 100644 pkgs/plt-services/meta/web/www/help.rkt delete mode 100644 pkgs/plt-services/meta/web/www/index.rkt delete mode 100644 pkgs/plt-services/meta/web/www/irc.rkt delete mode 100644 pkgs/plt-services/meta/web/www/learning.rkt delete mode 100644 pkgs/plt-services/meta/web/www/loud.png delete mode 100644 pkgs/plt-services/meta/web/www/new-name.rkt delete mode 100644 pkgs/plt-services/meta/web/www/old-techreports.rkt delete mode 100644 pkgs/plt-services/meta/web/www/people.rkt delete mode 100644 pkgs/plt-services/meta/web/www/resources.rkt delete mode 100644 pkgs/plt-services/meta/web/www/techreports.rkt delete mode 100644 pkgs/plt-services/meta/web/www/web-copyright.rkt diff --git a/pkgs/plt-services/meta/info.rkt b/pkgs/plt-services/meta/info.rkt index a0fda3be70..c87d9355ae 100644 --- a/pkgs/plt-services/meta/info.rkt +++ b/pkgs/plt-services/meta/info.rkt @@ -9,8 +9,7 @@ "images/mkheart.rkt" "pkg-index/official" "pkg-index/planet-compat" - "pkg-push" - "web")) + "pkg-push")) (define test-responsibles '(("props" (eli jay)) diff --git a/pkgs/plt-services/meta/web/README b/pkgs/plt-services/meta/web/README deleted file mode 100644 index 58e23c53bd..0000000000 --- a/pkgs/plt-services/meta/web/README +++ /dev/null @@ -1,47 +0,0 @@ -Sources: -======== - -* common: specific code for the racket web pages. - -* www: actual content of main site. - -* download: content of download site (only installer pages and such) - -* */all.rkt: files that just require all the necessary modules to build - the whole site or sub-sites - -* */resources.rkt: files that define the resources for a site (icon, - css, logo) - -* minis: smaller one-source-file sites - -* stubs: template "sites" that are intended to be hooked into other - systems to get the racket look. - -To build: -========= - -* Run `build.rkt' as the main entry point to building the web pages. - (Use `-h' as usual.) - -* You need to choose `-w' or `-l' for a web or local mode respectively. - The difference is that in local mode inter-site links are set up as - relative links so you can see all sites from the resulting - directories, and this is what you usually need to test things out. - (You will still need to deal with an occasional addition of - "index.html" which is not done when looking at file:// URLs.) - -* Use `-o ' to specify a directory where the built contents is - placed, otherwise the content will be placed in the current directory. - (Use `-f' in scripts to avoid answering the question about deleting - existing files.) - -* If you're not running from a git repository, you will also need to set - a $GIT_DIR environment variable otherwise the resulting build will not - have release information for the various builds. (This doesn't matter - if you're not working on download pages.) - -* You can also include more files that hook additional contents with - with `-e '. These files are required dynamically, and they - set things up to add more content building. The common example here - is "web/all.rkt" in iplt. diff --git a/pkgs/plt-services/meta/web/all.rkt b/pkgs/plt-services/meta/web/all.rkt deleted file mode 100644 index f57fe7b58a..0000000000 --- a/pkgs/plt-services/meta/web/all.rkt +++ /dev/null @@ -1,5 +0,0 @@ -#lang meta/web - -(require "www/all.rkt" "download/all.rkt" "minis/all.rkt" "stubs/all.rkt") -(set-navbar! (list main download documentation packages community learning) - main help) diff --git a/pkgs/plt-services/meta/web/build.rkt b/pkgs/plt-services/meta/web/build.rkt deleted file mode 100755 index f88fb0cf35..0000000000 --- a/pkgs/plt-services/meta/web/build.rkt +++ /dev/null @@ -1,83 +0,0 @@ -#!/bin/sh -#| -*- scheme -*- -exe="racket"; -if [ -x "$PLTHOME/bin/racket" ]; then exe="$PLTHOME/bin/racket"; fi -exec "$exe" "$0" "$@" -|# - -#lang racket/base - -(require racket/cmdline racket/runtime-path racket/file scribble/html - "common/distribute.rkt" "config.rkt" "all.rkt") - -(define build-mode #f) -(define output-dir (current-directory)) -(define distribute? #f) -(define warn? #t) -(define extra-files '()) - -(command-line - #:once-any - [("-l" "--local") - "local mode: create content that is viewable in the build directory" - " (all links are relative) " - (set! build-mode 'local)] - [("-w" "--web") - "web mode: create content that is viewable on the Racket web pages" - (set! build-mode 'web)] - #:once-each - [("-o" "--output") dir - "output directory" - " (defaults to the current directory)" - (unless (directory-exists? dir) - (printf "Creating \"~a\"\n" dir) (make-directory dir)) - (set! output-dir dir)] - [("-f" "--force") - "avoid warning about directory cleanup" - (set! warn? #f)] - [("-d" "--dist") - "distribute resulting content" - " (will only work with the right access to the servers)" - (set! distribute? #t)] - #:multi - [("-e" "--extra") extra - "extra file to render more content" - (set! extra-files (cons extra extra-files))] - #:help-labels - " ** Note: set $KNOWN_MIRRORS_FILE to a file if you want to poll mirror" - " links (see top comment in \"download/mirror-link.rkt\").") - -(unless build-mode (raise-user-error 'build "build mode not specified")) - -(define-runtime-path here ".") -(let ([build (file-or-directory-identity output-dir)]) - (let loop ([dir here]) - (if (equal? build (file-or-directory-identity dir)) - (raise-user-error 'build - "might clobber sources, refusing to build (use `-o')") - (let-values ([(base name dir?) (split-path dir)]) - (when base (loop base)))))) - -(parameterize ([current-directory output-dir]) - (define paths (sort (map path->string (directory-list)) stringstring p) (caddr m))) - (directory-list (cadr m))) - stringlabel title) - (regexp-replace* #rx"[^a-z0-9_]+" (string-downcase title) "_")) -(define (make-sectioner #:toc? [toc? #t] - #:newpages? [newpages? #f] - #:show-section-in-subtitle [sec-in-subsec? #t]) - (define sections '()) - (define cur-sec #f) - (define subsections '()) - (define (->li/reverse items [more-style #f]) - (ul style: more-style (add-newlines (map li (reverse items))))) - (define (collect-subs) - (when (pair? subsections) - (set! sections - (cons (list (car sections) - (->li/reverse subsections "font-size: small;")) - (cdr sections))) - (set! subsections '()))) - (define ((add-section sub?) #:newpage? [newpage? newpages?] . title) - (let* ([title* (if sub? (list cur-sec ": " title) title)] - [label (section->label (xml->string title*))]) - (unless sub? (collect-subs) (set! cur-sec title)) - (let ([title (a href: (list "#" label) style: "text-decoration: none;" - title)]) - (if sub? - (set! subsections (cons title subsections)) - (set! sections (cons title sections)))) - ((if sub? h2 h1) - (a name: label - style: (and newpage? (pair? (cdr sections)) - "page-break-before: always;") - (if sec-in-subsec? title* title))))) - (values (add-section #f) (add-section #t) - (and toc? (λ () (collect-subs) (->li/reverse sections))))) -(define-syntax (sections stx) - (define (make-it stx args) - (with-syntax ([sec (datum->syntax stx 'section)] - [sub (datum->syntax stx 'subsection)] - [(x ...) args]) - #'(begin (define-values [sec sub toc] (make-sectioner x ...)) - toc))) - (syntax-case stx () - [(s x ...) (make-it #'s #'(x ...))] - [_ (identifier? stx) (make-it stx #'())])) diff --git a/pkgs/plt-services/meta/web/common/layout.rkt b/pkgs/plt-services/meta/web/common/layout.rkt deleted file mode 100644 index a2a97930e7..0000000000 --- a/pkgs/plt-services/meta/web/common/layout.rkt +++ /dev/null @@ -1,253 +0,0 @@ -#lang at-exp racket/base - -(require scribble/html (for-syntax racket/base syntax/name syntax/parse) - "utils.rkt" "resources.rkt") - -(define-for-syntax (process-contents who layouter stx xs) - (let loop ([xs xs] [kws '()] [id? #f]) - (syntax-case xs () - [(k v . xs) (keyword? (syntax-e #'k)) - (loop #'xs (list* #'v #'k kws) (or id? (eq? '#:id (syntax-e #'k))))] - [_ (with-syntax ([layouter layouter] - [(x ...) (reverse kws)] - [(id ...) - (if id? - '() - (let ([name (or (syntax-property stx 'inferred-name) - (syntax-local-name))]) - (if name (list '#:id `',name) '())))] - ;; delay body, allow definitions - [body #`(λ () (begin/text #,@xs))]) - #'(layouter id ... x ... body))]))) - -(define (get-path who id file sfx dir) - (define file* - (or file - (let ([f (and id (symbol->string (force id)))]) - (cond [(and f (regexp-match #rx"[.]" f)) f] - [(and f sfx) - (string-append f (regexp-replace #rx"^[.]?" sfx "."))] - [else (error who "missing `#:file', or `#:id'~a" - (if sfx "" " and `#:suffix'"))])))) - (if dir (web-path dir file*) file*)) - -;; The following are not intended for direct use, see -;; `define+provide-context' below (it could be used with #f for the -;; directory if this ever gets used for a flat single directory web -;; page.) - -;; for plain text files -(define-syntax (plain stx) - (syntax-case stx () [(_ . xs) (process-contents 'plain #'plain* stx #'xs)])) -(define (plain* #:id [id #f] #:suffix [suffix #f] - #:dir [dir #f] #:file [file #f] - #:referrer [referrer values] - #:newline [newline? #t] - content) - (resource/referrer (get-path 'plain id file suffix dir) - (file-writer output (list content (and newline? "\n"))) - referrer)) - -;; page layout function -(define-syntax (page stx) - (syntax-case stx () [(_ . xs) (process-contents 'page #'page* stx #'xs)])) -(define (page* #:id [id #f] #:dir [dir #f] #:file [file #f] - ;; if this is true, return only the html -- don't create - ;; a resource -- therefore no file is made, and no links - ;; to it can be made (useful only for stub templates) - #:html-only [html-only? #f] - #:title [label (if id - (let* ([id (->string (force id))] - [id (regexp-replace #rx"^.*/" id "")] - [id (regexp-replace #rx"-" id " ")]) - (string-titlecase id)) - (error 'page "missing `#:id' or `#:title'"))] - #:link-title [linktitle label] - #:window-title [wintitle @list{Racket: @label}] - ;; can be #f (default), 'full: full page (and no div), - ;; otherwise, a css width - #:width [width #f] - #:description [description #f] ; for a meta tag - #:extra-headers [extra-headers #f] - #:extra-body-attrs [body-attrs #f] - #:resources resources0 ; see below - #:referrer [referrer - (λ (url . more) - (a href: url (if (null? more) linktitle more)))] - ;; will be used instead of `this' to determine navbar highlights - #:part-of [part-of #f] - content0) - (define (page) - (define desc - (and description (meta name: 'description content: description))) - (define headers - (if (and extra-headers desc) - (list desc "\n" extra-headers) - (or desc extra-headers))) - (define resources (force resources0)) - (define head (resources 'head wintitle headers)) - (define navbar (resources 'navbar (or part-of this))) - (define content - (list navbar "\n" - (case width - [(full) content0] - [(#f) (div class: 'bodycontent content0)] - [else (div class: 'bodycontent style: @list{width: @|width|@";"} - content0)]))) - @xhtml{@|| - @head - @(if body-attrs - (apply body `(,@body-attrs ,content)) - (body content)) - @||}) - (define this (and (not html-only?) - (resource/referrer (get-path 'page id file "html" dir) - (file-writer output-xml page) - referrer))) - (when this (pages->part-of this (or part-of this))) - (or this page)) - -;; maps pages to their parts, so symbolic values can be used to determine it -(define pages->part-of - (let ([t (make-hasheq)]) - (case-lambda [(page) (hash-ref t page page)] - [(page part-of) (hash-set! t page part-of)]))) - -(provide set-navbar!) -(define-syntax-rule (set-navbar! pages top help) - (if (unbox navbar-info) - ;; since generation is delayed, it won't make sense to change the navbar - (error 'set-navbar! "called twice") - (set-box! navbar-info (list (lazy pages) (lazy top) (lazy help))))) - -(define navbar-info (box #f)) -(define (navbar-maker logo) - (define pages-promise - (lazy (car (or (unbox navbar-info) - (error 'navbar "no navbar info set"))))) - (define top-promise (lazy (cadr (unbox navbar-info)))) - (define help-promise (lazy (caddr (unbox navbar-info)))) - (define pages-parts-of-promise - (lazy (map pages->part-of (force pages-promise)))) - (define (middle-text size x) - (span style: `("font-size: ",size"px; vertical-align: middle;") - class: 'navtitle - x)) - (define OPEN - (list (middle-text 100 "(") - (middle-text 80 "(") - (middle-text 60 "(") - (middle-text 40 nbsp))) - (define CLOSE - (list (middle-text 80 "Racket") - (middle-text 40 nbsp) - (middle-text 60 ")") - (middle-text 80 ")") - (middle-text 100 ")"))) - (define (header-cell logo) - (td (a href: (url-of (force top-promise)) - OPEN - (img src: logo alt: "[logo]" - style: '("vertical-align: middle; " - "margin: 13px 0.25em 0 0; border: 0;")) - CLOSE))) - (define (links-table this) - (table width: "100%" - (tr (map (λ (nav navpart) - (td class: 'navlinkcell - (span class: 'navitem - (span class: (if (eq? (pages->part-of this) navpart) - 'navcurlink 'navlink) - nav)))) - (force pages-promise) - (force pages-parts-of-promise))))) - (λ (this) - (div class: 'racketnav - (div class: 'navcontent - (table border: 0 cellspacing: 0 cellpadding: 0 width: "100%" - (tr (header-cell logo) - (td class: 'helpiconcell - (let ([help (force help-promise)]) - (span class: 'helpicon (if (eq? this help) nbsp help))))) - (tr (td colspan: 2 (links-table this)))))))) - -(define (html-favicon-maker icon) - (define headers - @list{@link[rel: "icon" href: icon type: "image/ico"] - @link[rel: "shortcut icon" href: icon]}) - (λ () headers)) - -(define (html-head-maker style favicon) - (define headers - @list{ - @meta[name: "generator" content: "Racket"] - @meta[http-equiv: "Content-Type" content: "text/html; charset=utf-8"] - @favicon - @link[rel: "stylesheet" type: "text/css" href: style title: "default"]}) - (λ (title* more-headers) - (head "\n" (title title*) - "\n" headers - (and more-headers (list "\n" more-headers)) - "\n"))) - -(define (make-resources files) - (define (getfile what) (cadr (assq what files))) - (define favicon (html-favicon-maker (getfile 'icon))) - (define make-head (html-head-maker (getfile 'style) favicon)) - (define make-navbar (navbar-maker (getfile 'logo))) - (λ (what . more) - (apply (case what - [(head) make-head] - [(navbar) make-navbar] - [(favicon-headers) favicon] - [(icon-path logo-path style-path) - (λ () (let* ([x (symbol->string what)] - [x (regexp-replace #rx"-path$" x "")]) - (url-of (getfile (string->symbol x)))))] - [else (error 'resources "internal error")]) - more))) - -;; `define+provide-context' should be used in each toplevel directory (= each -;; site) to have its own resources (and possibly other customizations). -(provide define+provide-context define-context) -(define-for-syntax (make-define+provide-context stx provide?) - (syntax-parse stx - [(_ (~or (~optional dir:expr) - (~optional (~seq #:resources resources)) - (~optional (~seq #:robots robots) #:defaults ([robots #'#t])) - (~optional (~seq #:htaccess htaccess) #:defaults ([htaccess #'#t]))) - ...) - (unless (attribute dir) - (raise-syntax-error 'define-context "missing ")) - (with-syntax ([page-id (datum->syntax stx 'page)] - [plain-id (datum->syntax stx 'plain)] - [copyfile-id (datum->syntax stx 'copyfile)] - [symlink-id (datum->syntax stx 'symlink)] - [resources-id (datum->syntax stx 'the-resources)]) - (with-syntax ([provides (if provide? - #'(provide page-id plain-id copyfile-id - symlink-id resources-id) - #'(begin))] - [resources - (or (attribute resources) - #'(make-resources - (make-resource-files - (λ (id . content) - (page* #:id id #:dir dir - #:resources (lazy resources-id) - content)) - dir robots htaccess)))]) - #'(begin (define resources-id resources) - (define-syntax-rule (page-id . xs) - (page #:resources resources-id #:dir dir . xs)) - (define-syntax-rule (plain-id . xs) - (plain #:dir dir . xs)) - (define (copyfile-id source [target #f]) - (copyfile-resource source target #:dir dir)) - (define (symlink-id source [target #f]) - (symlink-resource source target #:dir dir)) - provides)))])) -(define-syntax (define+provide-context stx) - (make-define+provide-context stx #t)) -(define-syntax (define-context stx) - (make-define+provide-context stx #f)) diff --git a/pkgs/plt-services/meta/web/common/links.rkt b/pkgs/plt-services/meta/web/common/links.rkt deleted file mode 100644 index 28509c5fd1..0000000000 --- a/pkgs/plt-services/meta/web/common/links.rkt +++ /dev/null @@ -1,64 +0,0 @@ -#lang at-exp racket/base - -(require scribble/html) - -(define-syntax define* - (syntax-rules () - [(_ (id . xs) E ...) (begin (define (id . xs) E ...) (provide id))] - [(_ id E) (begin (define id E) (provide id))])) - -(define ((make-link url . text) . alternate) - (a href: url (if (null? alternate) text alternate))) - -;; ---------------------------------------------------------------------------- -;; Pages that are made outside of this system - -(define doc-url "http://docs.racket-lang.org/") - -(define* -docs @make-link[doc-url]{Documentation}) - -(define-syntax-rule (define-doc-link id desc) - (define* id @make-link[`(,doc-url id "/")]{ - @strong{@(string-titlecase (symbol->string 'id))}: @desc @; - @nbsp @small{@a[href: `(,doc-url "pdf/" id ".pdf")]{[pdf]}}})) - -@define-doc-link[quick]{An Introduction to Racket with Pictures} -@define-doc-link[more ]{Systems Programming with Racket} -@define-doc-link[guide]{Racket} -@define-doc-link[continue]{Continue} - -(define* intros (list quick more guide)) - -;; ---------------------------------------------------------------------------- -;; External links - -(define* -htdp - @make-link["http://htdp.org/"]{@i{How to Design Programs}}) - -(define* -redex - @make-link["http://redex.racket-lang.org/"]{Redex}) - -(define* -pbd - @make-link["http://programbydesign.org/"]{Program by Design}) - -(define* -schemers - @make-link["http://schemers.org/"]{@tt{schemers.org}}) - -(define* -plai - @make-link["http://www.plai.org/"]{ - @i{Programming Languages: Application and Interpretation}}) - -(define* -bootstrap @make-link["http://www.bootstrapworld.org/"]{Bootstrap}) - -(define* (-rcon [year #f] . text) - (define years '(2013 2012 2011)) - (a href: (list "http://con.racket-lang.org/" - (and year (list year "/"))) - (cond [(pair? text) text] - [(not year) "RacketCon"] - [else year]))) - -(define* (-wiki [page #f] . text) - (a href: (list "https://github.com/plt/racket/wiki" - (and page (list "/" (regexp-replace #rx" " page "-")))) - (if (null? text) (or page "Racket wiki") text))) diff --git a/pkgs/plt-services/meta/web/common/logo.png b/pkgs/plt-services/meta/web/common/logo.png deleted file mode 100644 index 4e53f004449d1ff353cc84d4d795396ff4833acc..0000000000000000000000000000000000000000 GIT binary patch literal 0 HcmV?d00001 literal 6717 zcmV-D8p7p?P)NL+ zaWMjy5-Y^UBIc57ld|Iwleo$_RAiS!g>vd%<6GB`bFY1c!NvwvFu1sYjD!H2H?|ZB zDS(7PS_y=Z_I+M6-JL(?%sD-Cdgh#!gsW0@e^p&Gr>CFa`OUX~{hRJNf~W|RMYp&f zrU}cjrPn0Nck|HG2Zd?i_JQo_?3A5SN;jX^erKmBc6Bj2K3+Upsf->y@4WHhC!bs= zg=i`>tg}^n<83wb#`9~UeX{k_TAo>;t+05*+i6r=^7XI(a$Zl5{%Ah0&vzVsb~ekY z#UlMfL%MhWe%-NamvFXk*Obc|PzWIr!k1dhBB)`c3=!Iya-$?9QBvaxekx->bwm_=Gp; zyIS|2zIFSR;_%_mI)~p|Q5ZVfn;9K}Y!>yA55t_f2+u?7plYR5El7k=NGZAdZpr%f zk^p2|2muGE;5e0cG8yl&Tu$C|)m1M){lEhc$P?YKb|r}-+R3L=e)9vZXPo-bL)SU4 zzWVw6zrXg;&RshZd-mWA4dDVVAZE{ob?eYqU4tb^KW@Cqf)NAZDx``4|@P5;h! zuFou5^fz6jqi1&R*+a(j$O2g)19gA_bayxUM?XTXT!|_cky7IOKAz{*k4pKBjd|RB zv&YVz9s#IcErcM4LD2v`q>&PtOm$0Fm-mk&BY(fqpbpz0Y{McRpEmwj0mgQ5Qlhok z*xP$izFhuhm+xOz(3(8Z1#|#80&oT3#9KCJ4*urNcncTe6^nSDN3~jw9397F(xKNwTbA=E^-*Kux&1TErD3|~7&1354B;{B%xaqF{c;(8%$xlE1w;h$r zt<$vb?f|-hP6A-#fLaS)y&AP)LjY=}LbY0r1kdyEyec=|SY_*0Q;Xx2;n7SVQJ`UB ze@92JG=cIh`aErd162T!Q4UVOCNiC$F zPHXW*N5@UwV`KNvQ)+%cFq435ZDvVYt0Q;yH@|`Bo&&&jUGn)not>TJ^Lg_5Jef?6 z{{AehR)s^RYY8UHJGBsAbDDzI-4|A?osVQPf4RIx-^qqT;P4!HX2AgvH}st7Iz{p#)2{OiAh?}w8Pn+C^2Qj0W@ znX0u~)zx+O4$pgecWVD9DIvh|C)%!jT8quSy?@;^G4buWT4!bf`GjWM#5SvGqLSfZ zxalTDE{E0{$8m677a>H=PS#AH4$nWY*uOss)Hvu#6k^6Z1>e_K6$)o>^Sqb$#F}QK zQL`(Fl;Ok@#zBq@aK9=P{=8>={LZ;ryR!%^gizuwiPs+Qj;%rsuy-$P+tvWT268T! zBcIQc&E_Z+vRreG&9ZK$fadPlC?uqdu4xk!`Fk>%n=U4L|7~|Cj*snT)N4u`F#vch zpTBxavG_ki&CL>(q}v+*ZHtejkrMIjvq8LJMYyh82U&<5AOCok>C-br0X9R}wWMI< zX$L6G^!<(>=kqr#ier#~6WAXK4UIuARUYo|KdamGelQCPGiqJ>K;`-8ttc zCrS$+nC#dA#bQ&m5Q1zrOEw#TeBE_fGMP||lc=H`l z%KXjw{Mt{&n$WJD9JDtr)uWxAA1jp0U!Dd`ZMVc@ZHXzR61@GkJ-raPu8Zqt=*58HS>(blhPa8OjZE=_@f^!WGj_BWTr|LpH{Q6hN9zlF2%I)2 zQra3NoaBcq)M6oA`ubcx^O+>`%%;8VXmS|Bry}>cOy*B6Zl~Ez-N0hPJ~S{eJ6oxI zr3aWovoV-t-jfi2OkvKP;HY&y0QF<&tMGk?Yp->fH!rTOY1*51i*4pyXNQ#TZ7Wu+ z$Rs36B>7NHA~8Lwh(p4`+Db(BJQ{ zW=#^Ptp>L=fK96+xAND&o_d*qR~$F14mw7u0Q|J4XGW${`SWg|7dwX>i?rk4s>`B9 zFn@kDt&XM&K@PN7@JD~-FnxL}klPiTRneL8{rs1RDrHjUy2Pi-6pF>w1+7mB-$cYE zX=>AsA0o{K6``5s%hB0vgc>4gwT@`EQV#Ry3$D4wtj+dprGaeL6VDTBa^?#7#JRCV z@$-m8C}Q23H8~g7b`ZSkvANok9?*Y+OS5nH_a^h_!$lXRCb99d?+Z>pU2xfD z)*Q#tpeR*n?OxN{d*!s03=yy+0B0s9t}SSt58tJksarYz+Nv!UZw;$fp{Gu5q?wpN z|LkYzBS#u}YqSx6rKB~iUJaSHoh3=W8?e)hgVx!F<+8inxL_tov?BQKX{Y6d=dBF2 z*KA`uAhw$(3|5_TUBqWT)2LHQxcO%I^rzvLTLJ{b@+{o!`|t;U0E-vLYbL42Sem5X zm^6_SzVCh_rLah$^_kqXeft)(kN4h1DfbdMtJ^3j=>c!x=t{XH z2VLeo$TqIVo7a-vYCtAki|E%Ez5v<4(=0|t5a0S%J+Iap)~yTt6lNSzpsQ8Q(xsX? zbDH`ZYkd+nwqDj7Tsu0a!t6y!-7+PZ$!RSd$60E+OX5vRo3SM|Cj>B+ze8vPL5m@ue>zdU}H2r4r)%-)|}dfbV<fB1)*T&~s7 z+-`ilM=l`FNy!wQ$-T9H{R}PThim|}x}S;HY<84+O{XbgZ4J_!HzZ%ugw zzzZ)R9(xRB02~L|_cf=SqB-ZBcAmX>Pm+2RZ;5jT$+Nnc6><1*ztDPmy8~ETQf<@bmmsv?Xju3GB?aR&8|v{7R)@YHzq0^ti<`+p5QRb)mocO>hmD()#sKE~ghsZGq~+gUDa~3hBDF zmGI3p;rp7YQv-{lJ%C#chLQd_pt@`qVu?U2m5T!$Uu$p5q_jB+~uJ8 z(K;ID&4b%+t6vrXzx*W}IFMcpvE|h-zl_|m1L-)ieH{&ueLtXxOD-{YCQXJa(r$!I z)Z9=4D?+JC$iE@D71Fi%xa9WRVeZ_8YwyIW@SfhvvN8GgBpeB_Y;a0^X@TI_k6 z<;yi)UB?4%T>BLus;$}_Xt3jqn%hb$K)H5od5b11mtG2=`&=~c<(J{vXH&CDqTtpy z5j_4l^3WlqQuw|f0lG1>Q_P;NSh{pFTAT*51bhjViB{cp0AxOY#N72zB>=a`3D)9{ z4!HBqU@w3v>(@gySs7HVO%d&_9p&I4^4Gt{ui3=S+rU&EzvIJ1$iXH}Ow>ANb~s*|?RQhN zXU>GLeJwZ-{RV)3@IiRzoy4w&Z3)3OL9Sa9Tel+j>_H0A1hV;CO3lR=Yx4OxXv(P3 z#<|LJF5iPOQ-iH;aR*>r%6BCk3b*i8Yv7g$XkvnfMbXMP5wER2oBQ&YVZnmnJaoK! z9%B7^Yo0i`rUo~GTrMNGYza1L#XvQK=PBmQQJj5tJ6dd`kVtq721`Z;o9+bwuNxj7 zky`Hw2a*ur5ajXN(KOrQ4^q6ANI3OW^cTO_NLSNdo_PlS;)_kK3pqC&Xibo9JL4oE zpLqs3JdBKi+HAHdF1kn=uFO`0UL4puk-l1MZmQ1J-EE%ZY&FfGkcUGp9%4E2VkMt2eqaD@xS`nvx^pMukw+qw zU{X_sW`GmH4a3t~G(WJa8b@0i?CAak1vCvuuM|98?)Q_kijS*d4AAPkUt~8n53z|M@}Rab61f&+K#v z>R9b)#)ZEtG`w*2G5P%SVa=Mz9o0gh-hCH&-+g#AG&Te`43${0X>OAiPfQ?x``fx3 z(*~~jYH7(5O*Y$(&1-6K74SCEm?EUkOzN(zEnBwe6}jA0SIVoQc?n%8;cxQ`4b~0| zf&8a`LM~p6tW=Ov1{=Cvm+B9HNOi-8h;}Af3URwPX&ZRG-eM7X{`qx^NaA9pG(A0< z_utnXI%J!v#dqw7DmPMv@!Q~Ny5poKku@+?As!WQRKT<<%`ZShfHlo~dz#jjFI$GV z{Bp$55TQp+0eWNvy?%Yu18CbHZv!$B*f6~PHgfM?)Q3LQq`9`&N*7$9*|jU6jbzO= ziL>%Mc*Er1xP%Z1s5#t2`Bu5S*K?f5O_~UK*qnGw5Ph^mx~S8J<50Z$W{O%<93Q7x zEHW`MLCNl>cHL*qNryRgHqAD3Fsf@_CPVqp{w&beQmGLH86nm{U#ocb23OW8O7_b+e!|>9U6ktU%+rASsJ9R30{(O}0H-Q@W9Sb4x zJjuR&W^Eyn4GqHZe}l2nHZYA)M0}NMolE|^?{6+S&b>a(?!vggxC9itx~QyLMYU9- zQv0Y;rBb0%tx_2qqw?sZk-RpZZFfqX#J%x>Q@{Eus#0kQu9T8$RdUivl8z3O8p^;h zFmXqXdy|%GBrX%NQEdI_Or5%JT!^=9Ae*zS5>UG25=ygXQ87NtRjpR>l%l$QJJnsg zn!rn%SR_p*OtZ{J7p5j_Kpi}YK6D6O`S|Hb_WJ4?qa;-*px3TNc66YOK}9JQOk3~2ANA&&R$$V2HVMQg zAZciB#Jivrs=FJ#U;)Z_Ul#{AJO*DG^mzO2(BdC@54`JP&pT;2rAfBC>D!%!Jhb9g1GzJ>`oj<0quR5j^7oF)wAGf1uI>suk-@Y7hHf| zyx6{+v{FGm@BngT#A=cy&HB@>$NgQl_Yx7aO>1PKfI8_Ul;>GBHw3p-DlsxLLa{jd zi_y{27h%+I2cI-CzdDsPDhhzDFg%dWJ}b5UgbPy?plhGt(j6VB_`Kh7kZ-(!dh*Gj zlQe6f^^s1w2}$6_dAModt5#8`pWZ|bad3x+hZ!3idn%h9Uwh=pfzTvNTO^uhMF=|Zm>7(fpUp#9)R*9SMPQ9__MZ$=FcHcbR zRgQC+d+DWpvZlT9Hx_Di6#e+)0Zqg}NV5)-K)2nHv{_vfO>}o7XU#&^KAT&qRO;Z4 zjEpckI{IX(RQmM({reA20>73o+1vT@U(>6%9ln3yBLf4QS?D@I{9SA#>SX9a%7)3GV-^(j~=~$ zk{C=H;E3JUW**{cKMBk8LfqM*^@Z75qNMNewNqd_ASVrmrZ3D~Z&w0FySk`!bv+>8 zfB$Q{VUMLLlL5G8dfUKef*m)kbxK-RKzAQ}F$;g4huP+Lpv;fY#vj0KrGIH+(+gALxYXm~8XWIi(o<}^bM?5Z;MAPs{8dJ&&*q@d z`dW!*t!`I?CJChu9`3$2`a#Zv}}JFNZmu za7_k2<-oEG^o0LNV1}et+o&J}*mNG%97^wbutmbp6g=@-uwLdw%5hl{rlb{eOcn+m;3$wvh^o?h zTnq8O65@bTYPW=4KI|HXy$1ujjknj}23OUiT06M1k_2n5F$|?{J zX!`oRk)fgT?({_;$I`CJ<~gpuf1rb2N}VUF-c-N92UJIDJ+_aVw4Hep(ry_^0JX~B z%8!zi_V=PtzxN9Nlgp$q3cq47*^I}MHYrb%t75YC#M2+kQ}cl<*#Fny6D<^kWUJkx zIZt&PlTjCIv{|#gI7rCd8vS&OS*7!W - 140BE58EEC31CB97382E1016E21C405A}] - [robots - ;; #t (the default) => no-op file, good to avoid error-log lines - ,(let* ([t (if (eq? #t robots) "Disallow:" robots)] - [t (and t (list "User-agent: *\n" t))]) - (and t (writefile "robots.txt" t)))] - ;; Seems like there are still some clients that look for a favicon.ico file - [favicon ,(copyfile "plticon.ico" "favicon.ico")] - [404 - @,page['page-not-found]{ - @h1[style: '("text-align: center; margin: 3em 0 1em 0;")]{ - Page not found} - @(λ xs (table align: 'center (tr (td (pre xs))))){ - > (@a[href: "/"]{(uncaught-exception-handler)} - (*(+(*)(*(+(*)(*)(*)(*)(*))(+(*)(*)(*)(*)(*))(+(*)(*)(*)(*))))@; - (+(*)(*)(*)(*)))) - uncaught exception: 404}}] - ;; set the 404 page in htaccess instead of in the conf file, so we get it - ;; only in sites that we generate here - [.htaccess - ,(let* ([t (and htaccess "ErrorDocument 404 /page-not-found.html")] - [t (if (boolean? htaccess) t (list htaccess "\n" t))]) - (and t (writefile ".htaccess" t)))])) - -(define page-sizes - @list{ - margin-left: auto; - margin-right: auto; - width: 45em; - }) -(define font-family - @list{ - font-family: Optima, Arial, Verdana, Helvetica, sans-serif; - }) - -(define navbar-style - ;; All of these are made to apply only inside `racketnav', so the styles can - ;; be used in places with their own CSS (eg, blog.racket-lang.org) - @list{ - .racketnav { - background-color: #000000; - color: #ffffff; - margin-bottom: 1em; - padding: 0.5em 0em; - white-space: nowrap; - } - .racketnav a { - color: #ffffff; - text-decoration: none; - } - .racketnav .navcontent { - @page-sizes - @font-family - } - .racketnav .navtitle { - font-size: xx-large; - font-weight: bold; - } - .racketnav .navitem { - text-decoration: none; - font-size: 88%; - } - .racketnav .navlink a { - padding: 0em 1em; - } - .racketnav .navcurlink a { - padding: 0em 1em; - background-color: #555555; - } - .racketnav .navlink a:hover, - .racketnav .navcurlink a:hover { - background-color: #888888; - } - .racketnav .navlinkcell { - text-align: center; - } - .racketnav .helpiconcell { - text-align: right; - vertical-align: top; - } - .racketnav .helpicon { - font-weight: bold; - font-size: 88%; - } - }) - -(define racket-style - @list{ - @; ---- generic styles ---- - html { - overflow-y: scroll; - } - body { - color: black; - background-color: white; - @font-family - margin: 0px; - padding: 0px; - } - a { - text-decoration: none; - } - a:hover { - text-decoration: underline; - } - @; ---- content styles ---- - .bodycontent { - @page-sizes - } - @; ---- styles for the navbar ---- - @navbar-style - @; ---- styles for extras ---- - .parlisttitle { - margin-bottom: 0.5em; - } - .parlistitem { - margin-bottom: 0.5em; - margin-left: 2em; - } - }) diff --git a/pkgs/plt-services/meta/web/common/utils.rkt b/pkgs/plt-services/meta/web/common/utils.rkt deleted file mode 100644 index 9e81172f84..0000000000 --- a/pkgs/plt-services/meta/web/common/utils.rkt +++ /dev/null @@ -1,52 +0,0 @@ -#lang at-exp racket/base - -(require scribble/html (for-syntax scheme/base)) - -(provide in-here) -(define-syntax (in-here stx) - (syntax-case stx () - [(_ path paths ...) - (let ([src (let-values ([(dir name dir?) - (split-path (syntax-source stx))]) - (or dir (raise-syntax-error - 'in-here "missing source information" stx)))]) - #`(build-path '#,src path paths ...))])) - -(provide web-path) -(define (web-path . xs) - (string-join xs "/")) - -(provide ->string) -(define (->string x) - (cond [(string? x) x] - [(path? x) (path->string x)] - [(bytes? x) (bytes->string/utf-8 x)] - [(symbol? x) (symbol->string x)] - [(number? x) (number->string x)] - [else (error '->string "don't know what to do with ~e" x)])) - -;; resources with a specific referrer; if the referrer is `values', -;; return a plain resource (which behaves the same) -(provide resource/referrer url-of) -(struct referable (referrer resource) #:property prop:procedure 0) -(define (resource/referrer path renderer referrer) - (define url (resource path renderer)) - (if (eq? referrer values) - url - (referable (λ args (apply referrer (url) args)) url))) -(define (url-of referable [absolute? #f]) - (cond [(referable? referable) ((referable-resource referable) absolute?)] - [(resource? referable) (referable absolute?)] - [else (raise-type-error 'url-of "referable" referable)])) - -;; simple file resources -(define ((make-path-resourcer file-op) source [target #f] #:dir [dir #f]) - (let ([target (or target (let-values ([(base file dir?) (split-path source)]) - (path->string file)))]) - (resource (if (eq? void file-op) - (void) (if dir (web-path dir target) target)) - (λ (file) (file-op source file))))) - -(provide copyfile-resource symlink-resource) -(define copyfile-resource (make-path-resourcer copy-file)) -(define symlink-resource (make-path-resourcer make-file-or-directory-link)) diff --git a/pkgs/plt-services/meta/web/config.rkt b/pkgs/plt-services/meta/web/config.rkt deleted file mode 100644 index 6150542b61..0000000000 --- a/pkgs/plt-services/meta/web/config.rkt +++ /dev/null @@ -1,30 +0,0 @@ -#lang racket/base - -(provide sites) -(define sites - '(("www" "http://racket-lang.org/") - ("download" "http://download.racket-lang.org/") - ("bugs" "http://bugs.racket-lang.org/") - ("lists" "http://lists.racket-lang.org/") - ("drracket" "http://drracket.org/") - ;; stubs usually use absolute paths for resources, since they're - ;; templates that often get used in sub-dir pages too - ("stubs/planet" "http://planet.racket-lang.org/" abs) - ("stubs/packages""http://pkgs.racket-lang.org/" abs) - ("stubs/pre" "http://pre.racket-lang.org/" abs) - ("stubs/git" "http://git.racket-lang.org/" abs) - ("stubs/blog" "http://blog.racket-lang.org/" abs) - ("stubs/mailman" "http://lists.racket-lang.org/" abs) - ("stubs/dirlist" "http://download.racket-lang.org/" abs) - ("stubs/docs" "http://docs.racket-lang.org/" abs) - ("stubs/wiki" "http://wiki.racket-lang.org/" abs))) - -(provide distributions) -(define distributions - (make-parameter - ;; Each is a "hostname:dest-path", and then a list of directories to put in - ;; that path. Warning: distributed directories are replicated from the - ;; source, including removing material that is not distributed. A directory - ;; can also have "*" parts which will be expanded recursively -- useful to - ;; avoid deletions in case a target directory has additional materials. - '(["winooski:/www" "www" "download" "bugs" "lists" "drracket" "stubs"]))) diff --git a/pkgs/plt-services/meta/web/download/all.rkt b/pkgs/plt-services/meta/web/download/all.rkt deleted file mode 100644 index e4a1a410d0..0000000000 --- a/pkgs/plt-services/meta/web/download/all.rkt +++ /dev/null @@ -1,3 +0,0 @@ -#lang racket/base - -(require "index.rkt" "version.rkt") diff --git a/pkgs/plt-services/meta/web/download/data.rkt b/pkgs/plt-services/meta/web/download/data.rkt deleted file mode 100644 index b904ab1bae..0000000000 --- a/pkgs/plt-services/meta/web/download/data.rkt +++ /dev/null @@ -1,303 +0,0 @@ -#lang racket/base - -(define -platform-names- - `(;; source platforms - ["win" "Windows source"] - ["mac" "Mac OS X source"] - ["unix" "Unix source"] - ["src-builtpkgs" "Source + built packages"] - ["src" "Source"] - ["src-builtpkgs-unix" "Unix source + built packages"] - ["src-unix" "Unix source"] - ;; binary platforms - ["i386-win32" "Windows (x86, 32-bit)"] - ["x86_64-win32" "Windows (x64, 64-bit)"] - ["(ppc|i386|x86_64)-(?:osx-mac|macosx)" - ,(λ (_ cpu) - (format "Mac OS X (~a)" - (cond - [(equal? cpu "ppc") "PPC"] - [(equal? cpu "i386") "Intel 32-bit"] - [(equal? cpu "x86_64") "Intel 64-bit"] - [else (error "unregonized cpu!")])))] - ["(ppc|68k)-mac-classic" "Macintosh Classic (\\1)"] - ["(ppc|i386)-darwin" - ,(λ (_ cpu) - (format "Darwin (~a)" - (if (equal? cpu "ppc") "PPC" "Intel")))] - ["i386-linux(-gcc2)?" "Linux i386"] - ["i386-linux-fc([0-9]+)" "Linux i386 (Fedora Core \\1)"] - ["(i386|x86_64)-linux-f([0-9]+)" "Linux \\1 (Fedora \\2)"] - ["(i386|x86_64)-linux-debian" "Linux \\1 (Debian Stable)"] - ["(i386|x86_64)-linux-debian-([a-zA-Z0-9]+)" "Linux \\1 (Debian \\2)"] - ["(i386|x86_64)-linux-ubuntu([0-9]+)" "Linux \\1 (Ubuntu \\2)"] - ["(i386|x86_64)-linux-ubuntu-([a-z]+)" "Linux \\1 (Ubuntu \\2)"] - ["(i386|x86_64)-linux-ubuntu.*" "Linux \\1 (Ubuntu)"] - ["(i386|x86_64)-linux" "Linux \\1"] - ["(i386|x86_64)-freebsd" "FreeBSD \\1"] - ["sparc-solaris" "Sparc Solaris (SunOS)"] - ["i386-kernel" "x86 Standalone Kernel"] - )) - -(define -file-type-names- - '(["sh" "Self-extracting shell script"] - ["exe" "Windows Installer"] - ["tgz" "Gzipped TAR Archive"] - ["zip" "Zipped Archive"] - ["dmg" "Disk Image"] - ["pkg" "Installer Package"] - ["plt" "Racket Package"] - ["sit" "StuffIt Archive"])) - -(define -mirrors- - ;; This is a sequence of - ;; (location url reposnisble-name email [techincal-contact]) - '(["Main download (USA, Massachusetts, Northeastern University)" - "http://download.racket-lang.org/installers/" - "Eli Barzilay" - "eli@barzilay.org"] - ["USA, Illinois (Northwestern University)" - "http://www.eecs.northwestern.edu/racket/" - "Robby Findler" - "robby@eecs.northwestern.edu"] - ["USA, Utah (University of Utah)" - "http://www.cs.utah.edu/plt/installers/" - "Matthew Flatt" - "mflatt@cs.utah.edu"] - ["Canada, Ontario (University of Waterloo)" - "http://mirror.csclub.uwaterloo.ca/racket/racket-installers/" - "Systems Committee" - "syscom@csclub.uwaterloo.ca"] - ["Germany (Universität Tübingen)" - "http://mirror.informatik.uni-tuebingen.de/mirror/racket/" - "Marcus Crestani" - "crestani@informatik.uni-tuebingen.de"] - ["Belgium (Infogroep, Vrije Universiteit Brussel)" - "http://racket.infogroep.be/" - "Infogroep" - "research@infogroep.be"] - #; - ["Turkey, Istanbul (Bilgi University)" - "http://russell.cs.bilgi.edu.tr/racket-installers/" - "Onur Gungor" - "onurgu@cs.bilgi.edu.tr"] - #; - ["Austria (Vienna University of Technology)" - "http://gd.tuwien.ac.at/languages/scheme/plt/" - "Rudolf Ladner" - "ladner@zid.tuwien.ac.at"] - #; ; Scheme guy left - ["France (Institut Pasteur)" - "ftp://ftp.pasteur.fr/pub/computing/Scheme/plt-scheme/" - "Marc Badouin" - "babafou@pasteur.fr" - "Pasteur Institute FTP ftpmain@pasteur.fr"] - #; ; ftp down (permanently?) - ["Mexico (Wish Computing)" - "ftp://morpheus.wish.com.mx/pub/plt/" - "Francisco Solsona" - "solsona@acm.org"] - )) - -;; Used to sort packages when more then one is rendered on a page (delayed) -(define (-installer-orders-) - `((,installer-package ,eq? (racket racket-minimal racket-textual)) - (,installer-binary? ,eq? (#t #f)) - (,installer-platform ,regexp-match? - (#px"\\bwin(32)?\\b" #px"\\bmac\\b" #px"\\blinux\\b" #px"")) - (,installer-platform ,regexp-match? - (#px"\\bi386\\b" #px"\\bx86_64\\b" #px"\\bppc\\b" #px"")))) - -;; ---------------------------------------------------------------------------- - -(provide (struct-out mirror) mirrors - (struct-out release) (struct-out installer) - all-installers current-release all-releases all-packages - package->name platform->name suffix->name - set-announcements-file!) - -(require racket/list racket/file version/utils racket/runtime-path - racket/promise "release-info.rkt") - -;; ---------------------------------------------------------------------------- -;; Mirror information - -(struct mirror (location url person email)) - -(define mirrors - (map (λ (m) (mirror (car m) (regexp-replace #rx"/?$" (cadr m) "/") - (caddr m) (cadddr m))) - -mirrors-)) - -;; ---------------------------------------------------------------------------- -;; Release information - -(struct release (version date date-string announcement) #:transparent) - -(define announcements #f) -(define (set-announcements-file! file) - (set! announcements #t)) - -(define version->release - (let ([t (make-hash)] - [months '#("January" "February" "March" "April" "May" "June" "July" - "August" "September" "October" "November" "December")]) - (λ (v) - (hash-ref! t v - (λ () - (define info (get-version-tag-info v)) - (if info - (let* ([tagger (car info)] - [date (cadr info)] - [announcement (caddr info)] - [year (date-year date)] - [month (vector-ref months (sub1 (date-month date)))]) - (release v date (format "~a ~a" month year) announcement)) - (release v #f "(unknown date)" "(no release text found)"))))))) - -;; ---------------------------------------------------------------------------- -;; Installer information - -(define-runtime-path installers-data "installers.txt") - -(struct installer - (path ; path to file from the installers directory - file ; just the file name - release ; the release that this installer comes from - size ; size in bytes - package ; package kind symbol 'racket or 'racket-textual - binary? ; #t = binary distribution, #f = source distribution - platform ; platform name string (generic for srcs, cpu-os for bins) - suffix) ; string - #:transparent) - -;; Two kinds of installer lines - -;; Old-style installer line (before 5.92) -;; eg: "12295243\t5.3.6/racket-textual/racket-textual-5.3.6-bin-i386-linux-f12.sh" -;; eg: "7452375\t5.3.6/racket-textual/racket-textual-5.3.6-src-win.zip" -(define installer-rx1 - (pregexp (string-append - "^" - "([0-9.]+)" ; size - "\t" - "(" ; path - "([0-9p.]+)" ; version - "/" - "(racket(?:-textual)?)" ; package - "/(" ; file - "\\4-\\3-" ; -- - "(bin|src)-" ; binary/source - "([^.]+)" ; platform - "\\." - "([a-z]+)" ; suffix - "))$"))) - -(define (make-installer1 size path version package file type platform suffix) - (define binary? (equal? "bin" type)) - (installer path file (version->release version) (string->number size) - (string->symbol package) binary? platform suffix)) - -;; New-style installer line (since 5.92) -;; Differences: no "package" dir, implicit "bin", "src" is platform -;; eg: "87206462\t5.92/racket-5.92-i386-linux-ubuntu-precise.sh" -;; eg: "5708736\t5.92/racket-minimal-5.92-src.tgz" -(define installer-rx2 - (pregexp (string-append - "^" - "([0-9.]+)" ; size - "\t" - "(" ; path - "([0-9p.]+)" ; version - "/(" ; file - "(racket(?:-textual|-minimal)?)" ; package - "-\\3-" ; -- - "([^.]+)" ; platform - "\\." - "([a-z]+)" ; suffix - "))$"))) - -(define (make-installer2 size path version file package platform suffix) - (define binary? (not (regexp-match #rx"^src" platform))) - (installer path file (version->release version) (string->number size) - (string->symbol package) binary? platform suffix)) - -(define (parse-installers in) - (port-count-lines! in) - (for/list ([line (in-lines in)] [num (in-naturals 1)]) - (cond [(regexp-match installer-rx1 line) - => (lambda (m) (apply make-installer1 (cdr m)))] - [(regexp-match installer-rx2 line) - => (lambda (m) (apply make-installer2 (cdr m)))] - [else (error 'installers "bad installer data line#~a: ~s" - num line)]))) - -(define (order->precedes order) - (define =? (car order)) - (define l (cadr order)) - (define (num-of x) - (let loop ([l l] [n 0]) - (cond [(null? l) - (error 'precedes "could not find ~s in precedence list: ~s" x l)] - [(=? (car l) x) n] - [else (loop (cdr l) (add1 n))]))) - (λ (x y) (< (num-of x) (num-of y)))) - -;; use this to avoid parsing the installers until generation starts -(define-syntax-rule (define-lazy name expr) - (begin (define p (lazy expr)) - (define-syntax name - (syntax-id-rules (set!) - [(set! _ x) (error 'name "unmodifiable binding")] - [(_ x (... ...)) ((force p) x (... ...))] - [_ (force p)])))) - -;; sorted by version (newest first), and then by -installer-orders- -(define-lazy all-installers - (sort - (call-with-input-file installers-data parse-installers) - (let ([fns `([,(λ (i) - (version->integer (release-version (installer-release i)))) - . ,>] - ,@(map (λ (o) (cons (car o) (order->precedes (cdr o)))) - (-installer-orders-)))]) - (λ (i1 i2) - (let loop ([fns fns]) - (if (null? fns) - #f - (let* ([get (caar fns)] [name - (let ([t (make-hasheq)]) - (λ (package) - (hash-ref! t package - (λ () (string-titlecase - (regexp-replace #rx"-" (symbol->string package) " "))))))) - -(define platform-names - (for/list ([pn (in-list -platform-names-)]) - (list (regexp (string-append "^" (car pn) "$")) (cadr pn)))) - -(define platform->name - (let ([t (make-hash)]) - (λ (platform) - (hash-ref! t platform - (λ () (or (for/or ([pn (in-list platform-names)]) - ;; find out if a regexp applied by checking if the result - ;; is different (relies on regexp-replace returning the - ;; same string when fails) - (let ([new (regexp-replace (car pn) platform (cadr pn))]) - (and (not (eq? new platform)) new))) - (error 'platform->name "unrecognized platform: ~e" - platform))))))) - -(define (suffix->name suffix) - (cond [(assoc suffix -file-type-names-) => cadr] - [else (error 'suffix->name "unrecognized suffix: ~e" suffix)])) diff --git a/pkgs/plt-services/meta/web/download/download-pages.rkt b/pkgs/plt-services/meta/web/download/download-pages.rkt deleted file mode 100644 index 19b5d69b90..0000000000 --- a/pkgs/plt-services/meta/web/download/download-pages.rkt +++ /dev/null @@ -1,275 +0,0 @@ -#lang meta/web - -(require "resources.rkt" "data.rkt" "installer-pages.rkt" "symlinks.rkt" - (prefix-in pre: "../stubs/pre.rkt")) - -(provide render-download-page) -(define (render-download-page [release current-release] [package 'racket]) - (define version (release-version release)) - @center-div{ - @h2{@(package->name package) v@version (@(release-date-string release))} - @div[id: "download_panel" align: "center" style: "display: none;"]{ - @input[type: 'submit value: "Download" onclick: "do_jump();" - style: '("font-size: 200%; font-weight: bolder;" - " letter-spacing: 0.2em;" - " margin: 0.5ex 0 1ex 0; width: 100%;")] - @br - @div{ - Platform: - @select[id: "platform_selector" - onchange: "selection_changed();" - onkeypress: "selection_changed();"]{ - @(for/list ([i (in-list all-installers)] - #:when (and (equal? release (installer-release i)) - (equal? package (installer-package i)))) - (installer->page i 'render-option))}} - @|br br| - @(let* ([sep @list{@nbsp @bull @nbsp}] - [links (λ links @(tr (td (div style: "margin: 1ex 4ex;" - (add-between links sep)))))] - [docs @list{@|docs|/@|version|/html}]) - @table[style: "text-align: center; font-size: small;" - frame: 'hsides rules: 'rows]{ - @links[@list{Release: @nbsp @(release-page release){Announcement}} - @a[href: @list{@|docs|/release/}]{Notes} - @a[href: @docs]{Documentation}] - @links[@license{License} - all-version-pages - @pre:installers{Nightly Installers}]}) - @br - @div[id: "linux_explain" - style: '("font-size: 75%; display: none; width: 28em;" - " margin-top: 1ex; text-align: center;")]{ - @b{Note about the Linux installers:} if you don't see an option for - your particular platform, try other Linux installers, starting from - similar ones. Very often, a build on one Linux variant will work on - others too.}} - @downloader-script - @noscript{ - Installers are available for the following platforms: - @ul{@(for/list ([i (in-list all-installers)] - #:when (and (equal? release (installer-release i)) - (equal? package (installer-package i)))) - @li{@(installer->page i 'only-platform)})}}}) - -(define (release-page* rel) - (define ver (release-version rel)) - (define title @list{v@ver Release Notes}) - @page[#:file (format "v~a.html" ver) #:title title #:part-of 'download]{ - @table[align: 'center]{ - @tr{@td{@h2{Release Announcements for Version @ver}}} - @tr{@td{@pre{@release-announcement[rel]}}}} - }) -(define release-page - (let ([t (make-hash)]) - (λ (rel) (hash-ref! t rel (λ () (release-page* rel)))))) - -(define all-version-pages - (let () - (define (make-page rel pkg) - (define ver (release-version rel)) - (define file (format "~a-v~a.html" pkg ver)) - (define title @list{Download @(package->name pkg) v@ver}) - @page[#:file file #:title title #:part-of 'download]{ - @(render-download-page rel pkg)}) - (define style - @style/inline[type: 'text/css]{ - .version-row { - background-color: #ffffc0; - } - .version-row:hover { - background-color: #e0e0a0; - } - .version-row a { - text-decoration: none; - } - .version-row a:hover { - background-color: #eeee22; - }}) - (define-values (main-package alt-packages) - (cond [(null? all-packages) - (eprintf "Warning: all-packages is empty\n") - (values 'racket null)] - [else - (values (car all-packages) (cdr all-packages))])) - @page[#:id 'all-versions #:title "All Versions" #:part-of 'download - #:extra-headers style]{ - @table[align: 'center cellspacing: 0 cellpadding: 4 frame: 'box - rules: 'groups]{ - @thead{ - @tr{@td{@nbsp @strong{Version & Release Notes}} - @th[align: 'center]{@(package->name main-package)} - @th[align: 'center]{Alternative Distributions} - @td{@strong{Documentation}}}} - @(let ([sep (tr style: "height: 4px; margin: 0; padding: 0;" - (td) (map (λ (_) (td)) all-packages))]) - ;; release=>packages : hash[release => (listof package)] - ;; Indicates what packages actually exist (have installers) for a given release. - (define release=>packages (make-hash)) - (for ([i (in-list all-installers)]) - (define r (installer-release i)) - (define prev-packages (hash-ref release=>packages r null)) - (unless (member (installer-package i) prev-packages) - (hash-set! release=>packages r (cons (installer-package i) prev-packages)))) - (define (cell rel pkg) - @td[align: 'center - @nbsp @(make-page rel pkg){[download]} @nbsp]) - @tbody{ - @sep - @(for/list ([r (in-list all-releases)]) - (define ver (release-version r)) - @list{ - @tr[class: 'version-row]{ - @td{@|nbsp nbsp| @strong{Version @ver}, - @(release-page r){@release-date-string[r]}@; - @nbsp} - @(if (member main-package (hash-ref release=>packages r)) - (cell r main-package) - @td[]) - @td[align: 'center]{ - @nbsp - @(add-between - (for/list ([p (in-list alt-packages)] - #:when (member p (hash-ref release=>packages r))) - ((make-page r p) (format "[download ~a]" (package->name p)))) - @nbsp) - @nbsp} - @td[align: 'center]{ - @nbsp @a[href: @list{@|docs|/@|ver|/html}]{[HTML]} @; - @nbsp @a[href: @list{@|docs|/@|ver|/pdf}]{[PDF]} @; - @nbsp}} - @sep})}) - @tfoot{ - @tr[class: 'version-row]{ - @td[align: 'center colspan: 3]{@pre:installers} - @td{@nbsp @pre:docs[#:sub 'html]{[HTML]} @; - @nbsp @pre:docs[#:sub 'pdf]{[PDF]} @nbsp}}}}})) - -(define license - @page[#:title "Software License" #:part-of 'download]{ - @p*{ - @~ Racket is distributed under the - @a[href: "http://www.gnu.org/licenses/lgpl-3.0.html"]{ - GNU Lesser General Public License (LGPL)}. - @~ Our primary goal is to help as many people as possible use and - contribute to Racket. We encourage anyone to develop any kind of - software, with any kind of license, using Racket. - @~ We have chosen the LGPL as the license for Racket, which makes it - possible for for people to create software with Racket, and to allow us - to build on existing libraries that use the LGPL, such as the Lightning - assembler and the GMP math library. The basic requirement of the LGPL - is that you make your changes to Racket available, and that you let - other people use your software with new versions of Racket. - @~ Since the LGPL license that Racket uses was originally designed for C - programs, parts of it require some interpretation to apply to Racket in - detail. The following is how the Racket maintainers interpret the - license. - @~ @ul*{ - @~ First, if you distribute your Racket application in source form or as - compiled bytecode files, the Racket license does not restrict you at - all. - @~ Second, if you distribute your Racket application as compiled binary - generated by @tt{raco exe}, there are no requirements placed on the - licensing of your software. However, the LGPL requires that you make - it possible to re-link your software with modified versions of - Racket. This means, basically, that you need to provide the compiled - bytecode files used to produce the compiled binary, if requested by - someone who got your software from you. Note that this does @em{not} - mean that your software has to be made open source, nor do you have - to give the source code to anyone, nor do you have to make the - compiled bytecode files available to the public or let other people - redistribute them. Furthermore, this is not revealing any more of - your source code than the @tt{raco exe} format, since the bytecode is - embedded in an extractable way in the resulting executable.} - @~ We are, of course, not lawyers, and this should not be taken as legal - advice. However, we wanted to make it clear that Racket is an - appropriate building block for all kinds of software, and to clarify how - we view the license of Racket.}}) - -(define downloader-script - @script/inline[type: 'text/javascript]{@|| - var do_jump, selection_changed; - (function() { - // show the download panel, since JS is obviously working - document.getElementById("download_panel").style.display = "block"; - // - var selector = document.getElementById("platform_selector"); - // jump to the selected item - do_jump = function() { - location.href = selector[selector.selectedIndex].value; - } - // returns an ordering for the platform names, an array of regexps - // note that the entries are sorted in a good order, so return an order - // that only brings the locally desired entries to the top - function getPlatformOrder() { - var p = navigator.platform; - var l = function(str) { return p.indexOf(str) != -1@";" } - var Win = /Windows/, - Mac = /Mac/, - MacIntel = /Mac.*Intel/, - MacPPC = /Mac.*PPC/, - Linux = /Linux/, - Linux64 = /Linux.*x86_64/, - Linux32 = /Linux.*i386/, - Unix = /Unix/, - Solaris = /Solaris/; - if (p == null) return []; - else if (l("SunOS")) return [Solaris, Unix]; - @; Note about Windows 64: seems like the best guess could be done by - @; checking that the platform has "Win64" or navigator.userAgent has - @; either "Win64" or "WOW64". But the 32 build might be better for many - @; people anyway, so keep things as is for now. (With the `Win' filter - @; which will get the 32 version first and the 64 second.) - else if (l("Win")) return [Win]; - else if (l("Mac")) return [(l("Intel")?MacIntel:MacPPC), Mac, Unix]; - else if (l("Linux")) { - // also show the linux explanation if it's a linux - document.getElementById("linux_explain").style.display = "block"; - return [(l("_64")?Linux64:Linux32), Linux, Unix]; - } else return []; - } - // show the linux explanation on change too (do it with a timeout so it - // changes even when the arrow keys are used to move the selection -- since - // then onchange is called only on blur) - linux_expl_s = document.getElementById("linux_explain").style; - selection_changed_timer = false; - selection_changed = function() { - if (selection_changed_timer) clearTimeout(selection_changed_timer); - selection_changed_timer = setTimeout(do_selection_changed, 250); - } - function do_selection_changed() { - linux_expl_s.display = - (selector[selector.selectedIndex].text.search(/Linux/) >= 0) ? - "block" : "none"; - } - // - var opts = selector.options; - var len = opts.length; - // get the order and a make a sorting function - var order = getPlatformOrder(); - function getOrder(str) { - for (var i=0@";" i= 0) return i; - return 999; - } - function isBetter(opt1,opt2) { - // sort first by the order, then by how they were placed originally - var ord1 = getOrder(opt1[0]), ord2 = getOrder(opt2[0]); - if (ord1 < ord2) return -1; - else if (ord1 > ord2) return +1; - else if (opt1[2] < opt2[2]) return -1; - else if (opt1[2] > opt2[2]) return +1; - else return 0; - } - // sort the options, need to use a temporary array - var tmps = new Array(len); - for (var i=0@";" iname (installer-package installer))) - (define size (installer-size installer)) - (define type "") ;; (if (installer-binary? installer) "" " source") - (define platform (platform->name (installer-platform installer))) - (define title @text{Download @package v@|version type| for @platform}) - (define suffix-desc (suffix->name (installer-suffix installer))) - (define human-size - (let ([mb (/ size (* 1024 1024))]) - (if (< mb 10) - (let-values ([(q r) (quotient/remainder (round (* mb 10)) 10)]) - (format "~a.~aM" q r)) - (format "~aM" (round mb))))) - (define (row label text) - @tr[valign: 'top]{ - @td[align: 'right]{@b{@label}:} - @td{@nbsp} - @td[align: 'left]{@text}}) - (define (this url [mode #f]) - (case mode - [(only-platform) (a href: url platform type)] - [(render-option) (option value: url platform type)] - [(#f) @a[href: url]{@title}] - [else (error 'installer-page "unknown mode: ~e" mode)])) - @page[#:file html-file #:title title #:referrer this #:part-of 'download]{ - @table[width: "90%" align: 'center]{ - @tr[valign: 'top]{ - @td[width: "50%"]{ - @table{@(row "Package" package) - @(row "Version" @list{@version (@date)}) - @(row "Platform" (list platform type)) - @(row "Type" suffix-desc) - @(row "File" file) - @(row "Size" @span[title: @list{Exact size: @size bytes}]{ - @human-size})}} - @td[width: "50%"]{ - Download links: - @div[style: "font-size: 75%; text-align: right; float: right;"]{ - (Choose the nearest site)} - @ul{@(let ([mirrors - (filter-map - (λ (m) - (define url - (mirror-link - (string-append (mirror-url m) path) - size - (λ () (format "~a <~a>" - (mirror-person m) - (mirror-email m))))) - (and url @li{@a[href: url]{@(mirror-location m)}})) - mirrors)]) - (case (length mirrors) - [(0) (error 'installer-page "no available mirror for: ~e" - path)] - [(1) (list mirrors - @li{@small{(no additional mirrors, yet)}})] - [else mirrors]))}}}} - @;TODO: decide whether this is really needed - @; (looks redundant now that all of the installers are pretty standard) - @;section{Installation instructions} - @;(bundle-installation-instructions bundle) - }) - -(provide installer->page) -(define installer->page - (let ([t (make-hasheq)]) - (λ (inst . more) - (let ([page (hash-ref! t inst (λ () (render-installer-page inst)))]) - (if (null? more) page (apply page more)))))) diff --git a/pkgs/plt-services/meta/web/download/installers.txt b/pkgs/plt-services/meta/web/download/installers.txt deleted file mode 100644 index 1379f5a9b4..0000000000 --- a/pkgs/plt-services/meta/web/download/installers.txt +++ /dev/null @@ -1,434 +0,0 @@ -9300697 5.0.1/racket-textual/racket-textual-5.0.1-bin-i386-linux-debian.sh -9304219 5.0.1/racket-textual/racket-textual-5.0.1-bin-i386-linux-f12.sh -9313351 5.0.1/racket-textual/racket-textual-5.0.1-bin-i386-linux-ubuntu-jaunty.sh -9598271 5.0.1/racket-textual/racket-textual-5.0.1-bin-i386-osx-mac.dmg -7195260 5.0.1/racket-textual/racket-textual-5.0.1-bin-i386-win32.exe -9275500 5.0.1/racket-textual/racket-textual-5.0.1-bin-ppc-darwin.sh -9590434 5.0.1/racket-textual/racket-textual-5.0.1-bin-ppc-osx-mac.dmg -9428494 5.0.1/racket-textual/racket-textual-5.0.1-bin-x86_64-linux-f7.sh -5832011 5.0.1/racket-textual/racket-textual-5.0.1-src-mac.dmg -5714125 5.0.1/racket-textual/racket-textual-5.0.1-src-unix.tgz -7115859 5.0.1/racket-textual/racket-textual-5.0.1-src-win.zip -48280952 5.0.1/racket/racket-5.0.1-bin-i386-linux-debian.sh -48274719 5.0.1/racket/racket-5.0.1-bin-i386-linux-f12.sh -48321280 5.0.1/racket/racket-5.0.1-bin-i386-linux-ubuntu-jaunty.sh -49529404 5.0.1/racket/racket-5.0.1-bin-i386-osx-mac.dmg -29974852 5.0.1/racket/racket-5.0.1-bin-i386-win32.exe -48227579 5.0.1/racket/racket-5.0.1-bin-ppc-darwin.sh -49553958 5.0.1/racket/racket-5.0.1-bin-ppc-osx-mac.dmg -48582065 5.0.1/racket/racket-5.0.1-bin-x86_64-linux-f7.sh -17343846 5.0.1/racket/racket-5.0.1-src-mac.dmg -17272590 5.0.1/racket/racket-5.0.1-src-unix.tgz -20625477 5.0.1/racket/racket-5.0.1-src-win.zip -9753004 5.0.2/racket-textual/racket-textual-5.0.2-bin-i386-linux-debian.sh -9759330 5.0.2/racket-textual/racket-textual-5.0.2-bin-i386-linux-f12.sh -9769701 5.0.2/racket-textual/racket-textual-5.0.2-bin-i386-linux-ubuntu-jaunty.sh -10061865 5.0.2/racket-textual/racket-textual-5.0.2-bin-i386-osx-mac.dmg -7483846 5.0.2/racket-textual/racket-textual-5.0.2-bin-i386-win32.exe -9723983 5.0.2/racket-textual/racket-textual-5.0.2-bin-ppc-darwin.sh -10054183 5.0.2/racket-textual/racket-textual-5.0.2-bin-ppc-osx-mac.dmg -9889541 5.0.2/racket-textual/racket-textual-5.0.2-bin-x86_64-linux-f7.sh -5939776 5.0.2/racket-textual/racket-textual-5.0.2-src-mac.dmg -5815219 5.0.2/racket-textual/racket-textual-5.0.2-src-unix.tgz -7283576 5.0.2/racket-textual/racket-textual-5.0.2-src-win.zip -50263773 5.0.2/racket/racket-5.0.2-bin-i386-linux-debian.sh -50264748 5.0.2/racket/racket-5.0.2-bin-i386-linux-f12.sh -50304157 5.0.2/racket/racket-5.0.2-bin-i386-linux-ubuntu-jaunty.sh -51514800 5.0.2/racket/racket-5.0.2-bin-i386-osx-mac.dmg -31130193 5.0.2/racket/racket-5.0.2-bin-i386-win32.exe -50204906 5.0.2/racket/racket-5.0.2-bin-ppc-darwin.sh -51567239 5.0.2/racket/racket-5.0.2-bin-ppc-osx-mac.dmg -50579715 5.0.2/racket/racket-5.0.2-bin-x86_64-linux-f7.sh -17699549 5.0.2/racket/racket-5.0.2-src-mac.dmg -17622692 5.0.2/racket/racket-5.0.2-src-unix.tgz -21092427 5.0.2/racket/racket-5.0.2-src-win.zip -9015818 5.0/racket-textual/racket-textual-5.0-bin-i386-linux-debian.sh -9025266 5.0/racket-textual/racket-textual-5.0-bin-i386-linux-f12.sh -9039169 5.0/racket-textual/racket-textual-5.0-bin-i386-linux-ubuntu-jaunty.sh -9324539 5.0/racket-textual/racket-textual-5.0-bin-i386-osx-mac.dmg -7023498 5.0/racket-textual/racket-textual-5.0-bin-i386-win32.exe -8999839 5.0/racket-textual/racket-textual-5.0-bin-ppc-darwin.sh -9330306 5.0/racket-textual/racket-textual-5.0-bin-ppc-osx-mac.dmg -9159233 5.0/racket-textual/racket-textual-5.0-bin-x86_64-linux-f7.sh -5539138 5.0/racket-textual/racket-textual-5.0-src-mac.dmg -5408767 5.0/racket-textual/racket-textual-5.0-src-unix.tgz -7041524 5.0/racket-textual/racket-textual-5.0-src-win.zip -46469932 5.0/racket/racket-5.0-bin-i386-linux-debian.sh -46483844 5.0/racket/racket-5.0-bin-i386-linux-f12.sh -46515740 5.0/racket/racket-5.0-bin-i386-linux-ubuntu-jaunty.sh -47637362 5.0/racket/racket-5.0-bin-i386-osx-mac.dmg -28973247 5.0/racket/racket-5.0-bin-i386-win32.exe -46418573 5.0/racket/racket-5.0-bin-ppc-darwin.sh -47693225 5.0/racket/racket-5.0-bin-ppc-osx-mac.dmg -46784914 5.0/racket/racket-5.0-bin-x86_64-linux-f7.sh -16727955 5.0/racket/racket-5.0-src-mac.dmg -16661627 5.0/racket/racket-5.0-src-unix.tgz -20043612 5.0/racket/racket-5.0-src-win.zip -10608594 5.1.1/racket-textual/racket-textual-5.1.1-bin-i386-linux-f12.sh -10617031 5.1.1/racket-textual/racket-textual-5.1.1-bin-i386-linux-ubuntu-jaunty.sh -10944378 5.1.1/racket-textual/racket-textual-5.1.1-bin-i386-osx-mac.dmg -7871781 5.1.1/racket-textual/racket-textual-5.1.1-bin-i386-win32.exe -10563612 5.1.1/racket-textual/racket-textual-5.1.1-bin-ppc-darwin.sh -10925675 5.1.1/racket-textual/racket-textual-5.1.1-bin-ppc-osx-mac.dmg -10777466 5.1.1/racket-textual/racket-textual-5.1.1-bin-x86_64-linux-f14.sh -6088017 5.1.1/racket-textual/racket-textual-5.1.1-src-mac.dmg -5972450 5.1.1/racket-textual/racket-textual-5.1.1-src-unix.tgz -7072928 5.1.1/racket-textual/racket-textual-5.1.1-src-win.zip -51562160 5.1.1/racket/racket-5.1.1-bin-i386-linux-f12.sh -51583365 5.1.1/racket/racket-5.1.1-bin-i386-linux-ubuntu-jaunty.sh -53227597 5.1.1/racket/racket-5.1.1-bin-i386-osx-mac.dmg -33299725 5.1.1/racket/racket-5.1.1-bin-i386-win32.exe -51319041 5.1.1/racket/racket-5.1.1-bin-ppc-darwin.sh -54275107 5.1.1/racket/racket-5.1.1-bin-ppc-osx-mac.dmg -51928808 5.1.1/racket/racket-5.1.1-bin-x86_64-linux-f14.sh -16221515 5.1.1/racket/racket-5.1.1-src-mac.dmg -15884853 5.1.1/racket/racket-5.1.1-src-unix.tgz -19117693 5.1.1/racket/racket-5.1.1-src-win.zip -10294418 5.1.2/racket-textual/racket-textual-5.1.2-bin-i386-linux-f12.sh -10305056 5.1.2/racket-textual/racket-textual-5.1.2-bin-i386-linux-ubuntu-jaunty.sh -10649433 5.1.2/racket-textual/racket-textual-5.1.2-bin-i386-osx-mac.dmg -7735142 5.1.2/racket-textual/racket-textual-5.1.2-bin-i386-win32.exe -10229144 5.1.2/racket-textual/racket-textual-5.1.2-bin-ppc-darwin.sh -10600014 5.1.2/racket-textual/racket-textual-5.1.2-bin-ppc-osx-mac.dmg -10465204 5.1.2/racket-textual/racket-textual-5.1.2-bin-x86_64-linux-debian-lenny.sh -10476031 5.1.2/racket-textual/racket-textual-5.1.2-bin-x86_64-linux-debian-squeeze.sh -10474930 5.1.2/racket-textual/racket-textual-5.1.2-bin-x86_64-linux-f14.sh -10849704 5.1.2/racket-textual/racket-textual-5.1.2-bin-x86_64-osx-mac.dmg -8035589 5.1.2/racket-textual/racket-textual-5.1.2-bin-x86_64-win32.exe -5927007 5.1.2/racket-textual/racket-textual-5.1.2-src-mac.dmg -5814309 5.1.2/racket-textual/racket-textual-5.1.2-src-unix.tgz -6858089 5.1.2/racket-textual/racket-textual-5.1.2-src-win.zip -50068153 5.1.2/racket/racket-5.1.2-bin-i386-linux-f12.sh -50101512 5.1.2/racket/racket-5.1.2-bin-i386-linux-ubuntu-jaunty.sh -51665644 5.1.2/racket/racket-5.1.2-bin-i386-osx-mac.dmg -32577645 5.1.2/racket/racket-5.1.2-bin-i386-win32.exe -49784628 5.1.2/racket/racket-5.1.2-bin-ppc-darwin.sh -52725371 5.1.2/racket/racket-5.1.2-bin-ppc-osx-mac.dmg -50416939 5.1.2/racket/racket-5.1.2-bin-x86_64-linux-debian-lenny.sh -50437726 5.1.2/racket/racket-5.1.2-bin-x86_64-linux-debian-squeeze.sh -50446330 5.1.2/racket/racket-5.1.2-bin-x86_64-linux-f14.sh -51976069 5.1.2/racket/racket-5.1.2-bin-x86_64-osx-mac.dmg -33226602 5.1.2/racket/racket-5.1.2-bin-x86_64-win32.exe -16293184 5.1.2/racket/racket-5.1.2-src-mac.dmg -15960181 5.1.2/racket/racket-5.1.2-src-unix.tgz -19203148 5.1.2/racket/racket-5.1.2-src-win.zip -10277328 5.1.3/racket-textual/racket-textual-5.1.3-bin-i386-linux-f12.sh -10286517 5.1.3/racket-textual/racket-textual-5.1.3-bin-i386-linux-ubuntu-jaunty.sh -10646200 5.1.3/racket-textual/racket-textual-5.1.3-bin-i386-osx-mac.dmg -7721338 5.1.3/racket-textual/racket-textual-5.1.3-bin-i386-win32.exe -10209882 5.1.3/racket-textual/racket-textual-5.1.3-bin-ppc-darwin.sh -10578888 5.1.3/racket-textual/racket-textual-5.1.3-bin-ppc-osx-mac.dmg -10445665 5.1.3/racket-textual/racket-textual-5.1.3-bin-x86_64-linux-debian-lenny.sh -10458130 5.1.3/racket-textual/racket-textual-5.1.3-bin-x86_64-linux-debian-squeeze.sh -10458009 5.1.3/racket-textual/racket-textual-5.1.3-bin-x86_64-linux-f14.sh -10844242 5.1.3/racket-textual/racket-textual-5.1.3-bin-x86_64-osx-mac.dmg -8024578 5.1.3/racket-textual/racket-textual-5.1.3-bin-x86_64-win32.exe -5909369 5.1.3/racket-textual/racket-textual-5.1.3-src-mac.dmg -5795883 5.1.3/racket-textual/racket-textual-5.1.3-src-unix.tgz -6840314 5.1.3/racket-textual/racket-textual-5.1.3-src-win.zip -50047413 5.1.3/racket/racket-5.1.3-bin-i386-linux-f12.sh -50082199 5.1.3/racket/racket-5.1.3-bin-i386-linux-ubuntu-jaunty.sh -51638634 5.1.3/racket/racket-5.1.3-bin-i386-osx-mac.dmg -32548344 5.1.3/racket/racket-5.1.3-bin-i386-win32.exe -49765546 5.1.3/racket/racket-5.1.3-bin-ppc-darwin.sh -52694190 5.1.3/racket/racket-5.1.3-bin-ppc-osx-mac.dmg -50391225 5.1.3/racket/racket-5.1.3-bin-x86_64-linux-debian-lenny.sh -50405579 5.1.3/racket/racket-5.1.3-bin-x86_64-linux-debian-squeeze.sh -50431407 5.1.3/racket/racket-5.1.3-bin-x86_64-linux-f14.sh -51949468 5.1.3/racket/racket-5.1.3-bin-x86_64-osx-mac.dmg -33194397 5.1.3/racket/racket-5.1.3-bin-x86_64-win32.exe -16270003 5.1.3/racket/racket-5.1.3-src-mac.dmg -15939654 5.1.3/racket/racket-5.1.3-src-unix.tgz -19185643 5.1.3/racket/racket-5.1.3-src-win.zip -10661589 5.1/racket-textual/racket-textual-5.1-bin-i386-linux-f12.sh -10674322 5.1/racket-textual/racket-textual-5.1-bin-i386-linux-ubuntu-jaunty.sh -11019666 5.1/racket-textual/racket-textual-5.1-bin-i386-osx-mac.dmg -7899916 5.1/racket-textual/racket-textual-5.1-bin-i386-win32.exe -10627504 5.1/racket-textual/racket-textual-5.1-bin-ppc-darwin.sh -11009730 5.1/racket-textual/racket-textual-5.1-bin-ppc-osx-mac.dmg -10835079 5.1/racket-textual/racket-textual-5.1-bin-x86_64-linux-f14.sh -6064958 5.1/racket-textual/racket-textual-5.1-src-mac.dmg -5945844 5.1/racket-textual/racket-textual-5.1-src-unix.tgz -6071742 5.1/racket-textual/racket-textual-5.1-src-win.zip -51529968 5.1/racket/racket-5.1-bin-i386-linux-f12.sh -51560486 5.1/racket/racket-5.1-bin-i386-linux-ubuntu-jaunty.sh -53300468 5.1/racket/racket-5.1-bin-i386-osx-mac.dmg -33200268 5.1/racket/racket-5.1-bin-i386-win32.exe -51306060 5.1/racket/racket-5.1-bin-ppc-darwin.sh -54367850 5.1/racket/racket-5.1-bin-ppc-osx-mac.dmg -51892721 5.1/racket/racket-5.1-bin-x86_64-linux-f14.sh -16095941 5.1/racket/racket-5.1-src-mac.dmg -15759982 5.1/racket/racket-5.1-src-unix.tgz -17987080 5.1/racket/racket-5.1-src-win.zip -10268779 5.2.1/racket-textual/racket-textual-5.2.1-bin-i386-linux-f12.sh -10279415 5.2.1/racket-textual/racket-textual-5.2.1-bin-i386-linux-ubuntu-karmic.sh -10829117 5.2.1/racket-textual/racket-textual-5.2.1-bin-i386-osx-mac.dmg -7719949 5.2.1/racket-textual/racket-textual-5.2.1-bin-i386-win32.exe -10766423 5.2.1/racket-textual/racket-textual-5.2.1-bin-ppc-osx-mac.dmg -10453826 5.2.1/racket-textual/racket-textual-5.2.1-bin-x86_64-linux-debian-squeeze.sh -10458751 5.2.1/racket-textual/racket-textual-5.2.1-bin-x86_64-linux-f14.sh -10960644 5.2.1/racket-textual/racket-textual-5.2.1-bin-x86_64-osx-mac.dmg -8048658 5.2.1/racket-textual/racket-textual-5.2.1-bin-x86_64-win32.exe -5944766 5.2.1/racket-textual/racket-textual-5.2.1-src-mac.dmg -5822408 5.2.1/racket-textual/racket-textual-5.2.1-src-unix.tgz -6874674 5.2.1/racket-textual/racket-textual-5.2.1-src-win.zip -58246608 5.2.1/racket/racket-5.2.1-bin-i386-linux-f12.sh -58279927 5.2.1/racket/racket-5.2.1-bin-i386-linux-ubuntu-karmic.sh -60604498 5.2.1/racket/racket-5.2.1-bin-i386-osx-mac.dmg -39516478 5.2.1/racket/racket-5.2.1-bin-i386-win32.exe -61654421 5.2.1/racket/racket-5.2.1-bin-ppc-osx-mac.dmg -58616709 5.2.1/racket/racket-5.2.1-bin-x86_64-linux-debian-squeeze.sh -58626727 5.2.1/racket/racket-5.2.1-bin-x86_64-linux-f14.sh -60847004 5.2.1/racket/racket-5.2.1-bin-x86_64-osx-mac.dmg -40203933 5.2.1/racket/racket-5.2.1-bin-x86_64-win32.exe -17941288 5.2.1/racket/racket-5.2.1-src-mac.dmg -17211427 5.2.1/racket/racket-5.2.1-src-unix.tgz -20641716 5.2.1/racket/racket-5.2.1-src-win.zip -10072568 5.2/racket-textual/racket-textual-5.2-bin-i386-linux-f12.sh -10087724 5.2/racket-textual/racket-textual-5.2-bin-i386-linux-ubuntu-karmic.sh -10419223 5.2/racket-textual/racket-textual-5.2-bin-i386-osx-mac.dmg -7639819 5.2/racket-textual/racket-textual-5.2-bin-i386-win32.exe -10001213 5.2/racket-textual/racket-textual-5.2-bin-ppc-darwin.sh -10368884 5.2/racket-textual/racket-textual-5.2-bin-ppc-osx-mac.dmg -10243046 5.2/racket-textual/racket-textual-5.2-bin-x86_64-linux-debian-lenny.sh -10256265 5.2/racket-textual/racket-textual-5.2-bin-x86_64-linux-debian-squeeze.sh -10259861 5.2/racket-textual/racket-textual-5.2-bin-x86_64-linux-f14.sh -10631349 5.2/racket-textual/racket-textual-5.2-bin-x86_64-osx-mac.dmg -7965785 5.2/racket-textual/racket-textual-5.2-bin-x86_64-win32.exe -5926754 5.2/racket-textual/racket-textual-5.2-src-mac.dmg -5806691 5.2/racket-textual/racket-textual-5.2-src-unix.tgz -6846137 5.2/racket-textual/racket-textual-5.2-src-win.zip -54306960 5.2/racket/racket-5.2-bin-i386-linux-f12.sh -54333056 5.2/racket/racket-5.2-bin-i386-linux-ubuntu-karmic.sh -56070009 5.2/racket/racket-5.2-bin-i386-osx-mac.dmg -36205596 5.2/racket/racket-5.2-bin-i386-win32.exe -54161422 5.2/racket/racket-5.2-bin-ppc-darwin.sh -57109008 5.2/racket/racket-5.2-bin-ppc-osx-mac.dmg -54654394 5.2/racket/racket-5.2-bin-x86_64-linux-debian-lenny.sh -54678069 5.2/racket/racket-5.2-bin-x86_64-linux-debian-squeeze.sh -54685565 5.2/racket/racket-5.2-bin-x86_64-linux-f14.sh -56380421 5.2/racket/racket-5.2-bin-x86_64-osx-mac.dmg -36902485 5.2/racket/racket-5.2-bin-x86_64-win32.exe -16601808 5.2/racket/racket-5.2-src-mac.dmg -16260740 5.2/racket/racket-5.2-src-unix.tgz -19575041 5.2/racket/racket-5.2-src-win.zip -11552351 5.3.1/racket-textual/racket-textual-5.3.1-bin-i386-linux-f12.sh -11570689 5.3.1/racket-textual/racket-textual-5.3.1-bin-i386-linux-ubuntu-karmic.sh -12143855 5.3.1/racket-textual/racket-textual-5.3.1-bin-i386-osx-mac.dmg -8803203 5.3.1/racket-textual/racket-textual-5.3.1-bin-i386-win32.exe -12081255 5.3.1/racket-textual/racket-textual-5.3.1-bin-ppc-osx-mac.dmg -11748331 5.3.1/racket-textual/racket-textual-5.3.1-bin-x86_64-linux-debian-squeeze.sh -11757467 5.3.1/racket-textual/racket-textual-5.3.1-bin-x86_64-linux-f14.sh -12278659 5.3.1/racket-textual/racket-textual-5.3.1-bin-x86_64-osx-mac.dmg -9171125 5.3.1/racket-textual/racket-textual-5.3.1-bin-x86_64-win32.exe -6254337 5.3.1/racket-textual/racket-textual-5.3.1-src-mac.dmg -6134415 5.3.1/racket-textual/racket-textual-5.3.1-src-unix.tgz -7252130 5.3.1/racket-textual/racket-textual-5.3.1-src-win.zip -64527997 5.3.1/racket/racket-5.3.1-bin-i386-linux-f12.sh -64562401 5.3.1/racket/racket-5.3.1-bin-i386-linux-ubuntu-karmic.sh -67179194 5.3.1/racket/racket-5.3.1-bin-i386-osx-mac.dmg -43655604 5.3.1/racket/racket-5.3.1-bin-i386-win32.exe -67981764 5.3.1/racket/racket-5.3.1-bin-ppc-osx-mac.dmg -64911589 5.3.1/racket/racket-5.3.1-bin-x86_64-linux-debian-squeeze.sh -64927156 5.3.1/racket/racket-5.3.1-bin-x86_64-linux-f14.sh -67721160 5.3.1/racket/racket-5.3.1-bin-x86_64-osx-mac.dmg -44343519 5.3.1/racket/racket-5.3.1-bin-x86_64-win32.exe -19042596 5.3.1/racket/racket-5.3.1-src-mac.dmg -18296513 5.3.1/racket/racket-5.3.1-src-unix.tgz -21668825 5.3.1/racket/racket-5.3.1-src-win.zip -11948337 5.3.2/racket-textual/racket-textual-5.3.2-bin-i386-linux-f12.sh -11962344 5.3.2/racket-textual/racket-textual-5.3.2-bin-i386-linux-ubuntu-karmic.sh -15258690 5.3.2/racket-textual/racket-textual-5.3.2-bin-i386-osx-mac.dmg -9034873 5.3.2/racket-textual/racket-textual-5.3.2-bin-i386-win32.exe -15168349 5.3.2/racket-textual/racket-textual-5.3.2-bin-ppc-osx-mac.dmg -12150829 5.3.2/racket-textual/racket-textual-5.3.2-bin-x86_64-linux-debian-squeeze.sh -12155747 5.3.2/racket-textual/racket-textual-5.3.2-bin-x86_64-linux-f14.sh -15373372 5.3.2/racket-textual/racket-textual-5.3.2-bin-x86_64-osx-mac.dmg -9405386 5.3.2/racket-textual/racket-textual-5.3.2-bin-x86_64-win32.exe -5432417 5.3.2/racket-textual/racket-textual-5.3.2-src-mac.dmg -6220657 5.3.2/racket-textual/racket-textual-5.3.2-src-unix.tgz -7345556 5.3.2/racket-textual/racket-textual-5.3.2-src-win.zip -80046600 5.3.2/racket/racket-5.3.2-bin-i386-linux-f12.sh -80071196 5.3.2/racket/racket-5.3.2-bin-i386-linux-ubuntu-karmic.sh -77185236 5.3.2/racket/racket-5.3.2-bin-i386-osx-mac.dmg -53476867 5.3.2/racket/racket-5.3.2-bin-i386-win32.exe -73863798 5.3.2/racket/racket-5.3.2-bin-ppc-osx-mac.dmg -80444872 5.3.2/racket/racket-5.3.2-bin-x86_64-linux-debian-squeeze.sh -80455630 5.3.2/racket/racket-5.3.2-bin-x86_64-linux-f14.sh -77714727 5.3.2/racket/racket-5.3.2-bin-x86_64-osx-mac.dmg -54173869 5.3.2/racket/racket-5.3.2-bin-x86_64-win32.exe -17441261 5.3.2/racket/racket-5.3.2-src-mac.dmg -18903002 5.3.2/racket/racket-5.3.2-src-unix.tgz -22453626 5.3.2/racket/racket-5.3.2-src-win.zip -11948492 5.3.3/racket-textual/racket-textual-5.3.3-bin-i386-linux-f12.sh -11964412 5.3.3/racket-textual/racket-textual-5.3.3-bin-i386-linux-ubuntu-karmic.sh -15256661 5.3.3/racket-textual/racket-textual-5.3.3-bin-i386-osx-mac.dmg -9035043 5.3.3/racket-textual/racket-textual-5.3.3-bin-i386-win32.exe -15168071 5.3.3/racket-textual/racket-textual-5.3.3-bin-ppc-osx-mac.dmg -12151112 5.3.3/racket-textual/racket-textual-5.3.3-bin-x86_64-linux-debian-squeeze.sh -12158241 5.3.3/racket-textual/racket-textual-5.3.3-bin-x86_64-linux-f14.sh -15374489 5.3.3/racket-textual/racket-textual-5.3.3-bin-x86_64-osx-mac.dmg -9406684 5.3.3/racket-textual/racket-textual-5.3.3-bin-x86_64-win32.exe -5432743 5.3.3/racket-textual/racket-textual-5.3.3-src-mac.dmg -6220717 5.3.3/racket-textual/racket-textual-5.3.3-src-unix.tgz -7345556 5.3.3/racket-textual/racket-textual-5.3.3-src-win.zip -80042709 5.3.3/racket/racket-5.3.3-bin-i386-linux-f12.sh -80064095 5.3.3/racket/racket-5.3.3-bin-i386-linux-ubuntu-karmic.sh -77158882 5.3.3/racket/racket-5.3.3-bin-i386-osx-mac.dmg -53475451 5.3.3/racket/racket-5.3.3-bin-i386-win32.exe -77805576 5.3.3/racket/racket-5.3.3-bin-ppc-osx-mac.dmg -80441231 5.3.3/racket/racket-5.3.3-bin-x86_64-linux-debian-squeeze.sh -80445042 5.3.3/racket/racket-5.3.3-bin-x86_64-linux-f14.sh -77740581 5.3.3/racket/racket-5.3.3-bin-x86_64-osx-mac.dmg -54177148 5.3.3/racket/racket-5.3.3-bin-x86_64-win32.exe -17441645 5.3.3/racket/racket-5.3.3-src-mac.dmg -18903284 5.3.3/racket/racket-5.3.3-src-unix.tgz -22453769 5.3.3/racket/racket-5.3.3-src-win.zip -12320423 5.3.4/racket-textual/racket-textual-5.3.4-bin-i386-linux-f12.sh -12334215 5.3.4/racket-textual/racket-textual-5.3.4-bin-i386-linux-ubuntu-karmic.sh -15652299 5.3.4/racket-textual/racket-textual-5.3.4-bin-i386-osx-mac.dmg -9278646 5.3.4/racket-textual/racket-textual-5.3.4-bin-i386-win32.exe -15553227 5.3.4/racket-textual/racket-textual-5.3.4-bin-ppc-osx-mac.dmg -12545952 5.3.4/racket-textual/racket-textual-5.3.4-bin-x86_64-linux-debian-squeeze.sh -12547477 5.3.4/racket-textual/racket-textual-5.3.4-bin-x86_64-linux-f14.sh -15778683 5.3.4/racket-textual/racket-textual-5.3.4-bin-x86_64-osx-mac.dmg -9656737 5.3.4/racket-textual/racket-textual-5.3.4-bin-x86_64-win32.exe -5514976 5.3.4/racket-textual/racket-textual-5.3.4-src-mac.dmg -6314719 5.3.4/racket-textual/racket-textual-5.3.4-src-unix.tgz -7450712 5.3.4/racket-textual/racket-textual-5.3.4-src-win.zip -81404184 5.3.4/racket/racket-5.3.4-bin-i386-linux-f12.sh -81442144 5.3.4/racket/racket-5.3.4-bin-i386-linux-ubuntu-karmic.sh -78402102 5.3.4/racket/racket-5.3.4-bin-i386-osx-mac.dmg -54269511 5.3.4/racket/racket-5.3.4-bin-i386-win32.exe -79000954 5.3.4/racket/racket-5.3.4-bin-ppc-osx-mac.dmg -81847504 5.3.4/racket/racket-5.3.4-bin-x86_64-linux-debian-squeeze.sh -81863215 5.3.4/racket/racket-5.3.4-bin-x86_64-linux-f14.sh -78954459 5.3.4/racket/racket-5.3.4-bin-x86_64-osx-mac.dmg -54968330 5.3.4/racket/racket-5.3.4-bin-x86_64-win32.exe -17824228 5.3.4/racket/racket-5.3.4-src-mac.dmg -19314579 5.3.4/racket/racket-5.3.4-src-unix.tgz -22930176 5.3.4/racket/racket-5.3.4-src-win.zip -12292655 5.3.5/racket-textual/racket-textual-5.3.5-bin-i386-linux-f12.sh -15648971 5.3.5/racket-textual/racket-textual-5.3.5-bin-i386-osx-mac.dmg -9278714 5.3.5/racket-textual/racket-textual-5.3.5-bin-i386-win32.exe -15550280 5.3.5/racket-textual/racket-textual-5.3.5-bin-ppc-osx-mac.dmg -12518673 5.3.5/racket-textual/racket-textual-5.3.5-bin-x86_64-linux-debian-squeeze.sh -12500092 5.3.5/racket-textual/racket-textual-5.3.5-bin-x86_64-linux-f18.sh -12514647 5.3.5/racket-textual/racket-textual-5.3.5-bin-x86_64-linux-ubuntu-precise.sh -15777345 5.3.5/racket-textual/racket-textual-5.3.5-bin-x86_64-osx-mac.dmg -9653899 5.3.5/racket-textual/racket-textual-5.3.5-bin-x86_64-win32.exe -5514952 5.3.5/racket-textual/racket-textual-5.3.5-src-mac.dmg -6264428 5.3.5/racket-textual/racket-textual-5.3.5-src-unix.tgz -7450709 5.3.5/racket-textual/racket-textual-5.3.5-src-win.zip -80912617 5.3.5/racket/racket-5.3.5-bin-i386-linux-f12.sh -78333891 5.3.5/racket/racket-5.3.5-bin-i386-osx-mac.dmg -54222087 5.3.5/racket/racket-5.3.5-bin-i386-win32.exe -78969552 5.3.5/racket/racket-5.3.5-bin-ppc-osx-mac.dmg -81335329 5.3.5/racket/racket-5.3.5-bin-x86_64-linux-debian-squeeze.sh -81315398 5.3.5/racket/racket-5.3.5-bin-x86_64-linux-f18.sh -81340721 5.3.5/racket/racket-5.3.5-bin-x86_64-linux-ubuntu-precise.sh -78898223 5.3.5/racket/racket-5.3.5-bin-x86_64-osx-mac.dmg -54926791 5.3.5/racket/racket-5.3.5-bin-x86_64-win32.exe -17939101 5.3.5/racket/racket-5.3.5-src-mac.dmg -19260480 5.3.5/racket/racket-5.3.5-src-unix.tgz -23057646 5.3.5/racket/racket-5.3.5-src-win.zip -12295243 5.3.6/racket-textual/racket-textual-5.3.6-bin-i386-linux-f12.sh -15658693 5.3.6/racket-textual/racket-textual-5.3.6-bin-i386-osx-mac.dmg -9277473 5.3.6/racket-textual/racket-textual-5.3.6-bin-i386-win32.exe -15558719 5.3.6/racket-textual/racket-textual-5.3.6-bin-ppc-osx-mac.dmg -12518633 5.3.6/racket-textual/racket-textual-5.3.6-bin-x86_64-linux-debian-squeeze.sh -12502053 5.3.6/racket-textual/racket-textual-5.3.6-bin-x86_64-linux-f18.sh -12514865 5.3.6/racket-textual/racket-textual-5.3.6-bin-x86_64-linux-ubuntu-precise.sh -15785347 5.3.6/racket-textual/racket-textual-5.3.6-bin-x86_64-osx-mac.dmg -9655376 5.3.6/racket-textual/racket-textual-5.3.6-bin-x86_64-win32.exe -5518958 5.3.6/racket-textual/racket-textual-5.3.6-src-mac.dmg -6266358 5.3.6/racket-textual/racket-textual-5.3.6-src-unix.tgz -7452375 5.3.6/racket-textual/racket-textual-5.3.6-src-win.zip -80959315 5.3.6/racket/racket-5.3.6-bin-i386-linux-f12.sh -78522953 5.3.6/racket/racket-5.3.6-bin-i386-osx-mac.dmg -54275461 5.3.6/racket/racket-5.3.6-bin-i386-win32.exe -79152425 5.3.6/racket/racket-5.3.6-bin-ppc-osx-mac.dmg -81401477 5.3.6/racket/racket-5.3.6-bin-x86_64-linux-debian-squeeze.sh -81379740 5.3.6/racket/racket-5.3.6-bin-x86_64-linux-f18.sh -81399545 5.3.6/racket/racket-5.3.6-bin-x86_64-linux-ubuntu-precise.sh -79072519 5.3.6/racket/racket-5.3.6-bin-x86_64-osx-mac.dmg -54977925 5.3.6/racket/racket-5.3.6-bin-x86_64-win32.exe -17944355 5.3.6/racket/racket-5.3.6-src-mac.dmg -19278914 5.3.6/racket/racket-5.3.6-src-unix.tgz -23080500 5.3.6/racket/racket-5.3.6-src-win.zip -11235593 5.3/racket-textual/racket-textual-5.3-bin-i386-linux-f12.sh -11248024 5.3/racket-textual/racket-textual-5.3-bin-i386-linux-ubuntu-karmic.sh -11806657 5.3/racket-textual/racket-textual-5.3-bin-i386-osx-mac.dmg -8616632 5.3/racket-textual/racket-textual-5.3-bin-i386-win32.exe -11733097 5.3/racket-textual/racket-textual-5.3-bin-ppc-osx-mac.dmg -11429790 5.3/racket-textual/racket-textual-5.3-bin-x86_64-linux-debian-squeeze.sh -11433426 5.3/racket-textual/racket-textual-5.3-bin-x86_64-linux-f14.sh -11944406 5.3/racket-textual/racket-textual-5.3-bin-x86_64-osx-mac.dmg -8985418 5.3/racket-textual/racket-textual-5.3-bin-x86_64-win32.exe -6200415 5.3/racket-textual/racket-textual-5.3-src-mac.dmg -6076092 5.3/racket-textual/racket-textual-5.3-src-unix.tgz -7163517 5.3/racket-textual/racket-textual-5.3-src-win.zip -63546257 5.3/racket/racket-5.3-bin-i386-linux-f12.sh -63584563 5.3/racket/racket-5.3-bin-i386-linux-ubuntu-karmic.sh -66195664 5.3/racket/racket-5.3-bin-i386-osx-mac.dmg -43257532 5.3/racket/racket-5.3-bin-i386-win32.exe -66989480 5.3/racket/racket-5.3-bin-ppc-osx-mac.dmg -63926568 5.3/racket/racket-5.3-bin-x86_64-linux-debian-squeeze.sh -63943730 5.3/racket/racket-5.3-bin-x86_64-linux-f14.sh -66712297 5.3/racket/racket-5.3-bin-x86_64-osx-mac.dmg -43943553 5.3/racket/racket-5.3-bin-x86_64-win32.exe -18849342 5.3/racket/racket-5.3-src-mac.dmg -18111154 5.3/racket/racket-5.3-src-unix.tgz -21394184 5.3/racket/racket-5.3-src-win.zip -87193371 5.92/racket-5.92-i386-linux-ubuntu-precise.sh -81829558 5.92/racket-5.92-i386-macosx.dmg -57355560 5.92/racket-5.92-i386-win32.exe -82689151 5.92/racket-5.92-ppc-macosx.dmg -89120041 5.92/racket-5.92-src-builtpkgs.tgz -18822537 5.92/racket-5.92-src.tgz -87349133 5.92/racket-5.92-x86_64-linux-ubuntu-quantal.sh -82559349 5.92/racket-5.92-x86_64-macosx.dmg -58072274 5.92/racket-5.92-x86_64-win32.exe -7102006 5.92/racket-minimal-5.92-i386-linux-ubuntu-precise.sh -7192974 5.92/racket-minimal-5.92-i386-macosx.dmg -5651168 5.92/racket-minimal-5.92-i386-win32.exe -7297318 5.92/racket-minimal-5.92-ppc-macosx.dmg -5709126 5.92/racket-minimal-5.92-src.tgz -7267956 5.92/racket-minimal-5.92-x86_64-linux-ubuntu-quantal.sh -7595402 5.92/racket-minimal-5.92-x86_64-macosx.dmg -6049031 5.92/racket-minimal-5.92-x86_64-win32.exe -87328282 5.93/racket-5.93-i386-linux-ubuntu-precise.sh -81919471 5.93/racket-5.93-i386-macosx.dmg -57413685 5.93/racket-5.93-i386-win32.exe -82725624 5.93/racket-5.93-ppc-macosx.dmg -89272049 5.93/racket-5.93-src-builtpkgs.tgz -18849177 5.93/racket-5.93-src.tgz -87499570 5.93/racket-5.93-x86_64-linux-ubuntu-quantal.sh -82717767 5.93/racket-5.93-x86_64-macosx.dmg -58128353 5.93/racket-5.93-x86_64-win32.exe -7102212 5.93/racket-minimal-5.93-i386-linux-ubuntu-precise.sh -7195272 5.93/racket-minimal-5.93-i386-macosx.dmg -5647643 5.93/racket-minimal-5.93-i386-win32.exe -7297127 5.93/racket-minimal-5.93-ppc-macosx.dmg -5709673 5.93/racket-minimal-5.93-src.tgz -7267738 5.93/racket-minimal-5.93-x86_64-linux-ubuntu-quantal.sh -7594116 5.93/racket-minimal-5.93-x86_64-macosx.dmg -6054011 5.93/racket-minimal-5.93-x86_64-win32.exe -87237623 6.0/racket-6.0-i386-linux-ubuntu-precise.sh -81801632 6.0/racket-6.0-i386-macosx.dmg -57361148 6.0/racket-6.0-i386-win32.exe -82640960 6.0/racket-6.0-ppc-macosx.dmg -89160136 6.0/racket-6.0-src-builtpkgs-unix.tgz -18850536 6.0/racket-6.0-src-unix.tgz -87418969 6.0/racket-6.0-x86_64-linux-ubuntu-precise.sh -82648682 6.0/racket-6.0-x86_64-macosx.dmg -58074859 6.0/racket-6.0-x86_64-win32.exe -7103247 6.0/racket-minimal-6.0-i386-linux-ubuntu-precise.sh -7193764 6.0/racket-minimal-6.0-i386-macosx.dmg -5650145 6.0/racket-minimal-6.0-i386-win32.exe -7299767 6.0/racket-minimal-6.0-ppc-macosx.dmg -9033437 6.0/racket-minimal-6.0-src-builtpkgs.tgz -5709676 6.0/racket-minimal-6.0-src.tgz -7287938 6.0/racket-minimal-6.0-x86_64-linux-ubuntu-precise.sh -7594094 6.0/racket-minimal-6.0-x86_64-macosx.dmg -6052567 6.0/racket-minimal-6.0-x86_64-win32.exe diff --git a/pkgs/plt-services/meta/web/download/mirror-link.rkt b/pkgs/plt-services/meta/web/download/mirror-link.rkt deleted file mode 100644 index 82b965dd8f..0000000000 --- a/pkgs/plt-services/meta/web/download/mirror-link.rkt +++ /dev/null @@ -1,177 +0,0 @@ -#lang racket/base - -#| - -This file polls mirror links: (mirror-link ) will return the -url only if it is live, and its size fits the expected size. Otherwise -it returns #f, or #t in some rare cases where the size is not known from -the poll. - -This is done only if the "KNOWN_MIRRORS_FILE" environment variable is -set, otherwise all mirror links are included. If the variable is set, -it should point at a cache file that holds information about polls, used -to avoid re-polling all links all the time. - -Polling a URL can result in one of four options: -1. The URL doesn't seem to exist. In this case, the link is not shown, - and the URL will be re-polled if a web-page build is done 15 - minutes (or more) later. -2. The URL exists, but no size information is available (via a HEAD - query, or via an FTP directory listing). The link will be shown in - this case, but it will be re-polled two days later. (With a 1..2 - random factor, and a nightly build that happens at the same time, - this will be around 3-5 days.) So far, all mirrors provide size - information, so this works fine. -3. The URL exists and we get its size, but the size does not match. The - URL is not shown, and will be re-polled in an hour. The assumption - here is either bad synchronization, or we caught it in progress. -4. The size is correct, so the URL is shown. This case still leads to - re-polling, but only after a month. The reason for this is in case a - mirror is not maintained -- we'll want the links to eventually - disappear. - -|# - -(require net/url net/ftp net/sendmail) - -;; the mirrors file has (list url secs result) entries containing the url as a -;; string, the time it was checked (the result of `current-seconds'), and the -;; result of the `verify-*' function. -(define known-mirrors-file - (let ([f (getenv "KNOWN_MIRRORS_FILE")]) (and (not (equal? "" f)) f))) -(define known-mirrors - (if (and known-mirrors-file (file-exists? known-mirrors-file)) - (call-with-input-file* known-mirrors-file - (λ (inp) (for/list ([x (in-producer read eof inp)]) x))) - '())) - -;; main entry to getting a known entry result: given the url, return the -;; remembered result unless it doesn't exist or it expired; in those cases use -;; the thunk to get a current result and remember it; note that expiration -;; times are different for different results, and the decision whether to check -;; one is randomized (cheaply, since it'll be sensitive to how frequently a -;; build is done -- usually by the nightly build). -(define (known-mirror-get url size thunk get-responsible-email) - (define entry (assoc url known-mirrors)) - (define last-time (and entry (cadr entry))) - (define result (and entry (caddr entry))) - (define R (+ 1 (random))) ; random 1..2 number, to avoid congestion - (define new - (and (cond - ;; failed, check again after 15 minutes (to accomodate re-runs after - ;; a release was done) - [(eq? #f result) - (or (not entry) ; actually missing => try now - (current-time . > . (+ last-time (* 15 60 R))))] - ;; known but without a size to verify, check again after two days - [(eq? #t result) - (current-time . > . (+ last-time (* 2 24 60 60 R)))] - ;; has a bad size, check again after an hour - [(not (= result size)) - (current-time . > . (+ last-time (* 60 60 R)))] - ;; otherwise check again after a month - [else (current-time . > . (+ last-time (* 30 24 60 60 R)))]) - (list url current-time (thunk)))) - (when new - ;; keep them sorted by time - (set! known-mirrors - `(,@(if entry (remq entry known-mirrors) known-mirrors) ,new)) - (call-with-output-file* known-mirrors-file #:exists 'truncate - (λ (outp) (for ([entry (in-list known-mirrors)]) - (fprintf outp "~s\n" entry))))) - (when (and new ; we computed a new value - (equal? result size) ; we had a good result - (not (equal? (caddr new) size))) ; but now it's bad - ;; this means that a good mirror just went bad => nag someone - (send-mail-message - "eli@barzilay.org" "*** Mirror Link Down ***" - ;; FIXME: if these messages are useful, change it to nag the mirror owner - ;; instead of a fixed email -- use (list (get-responsible-email)) - '("eli@barzilay.org") '() '() - `("A mirror link that used to be fine is now broken:" - ,(format " ~a" url) - ,(format "The expected size is ~a, we now have ~a" size (caddr new)) - "" - "This mirror will not be listed for now, until a re-poll finds it" - "working."))) - (if new (caddr new) result)) - -;; use the time when the file is loaded (no point for a finer granularity) -(define current-time (current-seconds)) - -(provide mirror-link) -(define (mirror-link url size get-responsible-email) - (and (or (not known-mirrors-file) ; no file => don't check, just use all - (let ([r (known-mirror-get url size (λ () (validate url size)) - get-responsible-email)]) - (or (eq? r #t) (equal? r size)))) - url)) - -(define (validate url size) - (eprintf " checking ~a\n" url) - ((case (string->symbol (cadr (or (regexp-match #rx"^([^:]*):" url) - (error 'mirror-link "bad url: ~a" url)))) - [(http https) verify-http] - [(ftp) verify-ftp] - [else (error 'mirror-link "unrecognizable url scheme: ~a\n" url)]) - url)) - -;; Verifiers return #f for failures, #t for dumb success (= didn't get size), -;; and a number for success with the remote file's size. -;; -;; Note: if `net/url' gets to deal with `ftp://' URLs, then only a -;; single verification function will be needed. But for that it will -;; need to mimic HEAD requests too. - -(define-syntax-rule (with-handlers+timeout name body ...) - (let ([cust (make-custodian)] [ch (make-channel)]) - (parameterize ([current-custodian cust]) - (thread (λ () (channel-put ch (with-handlers ([exn:fail? exn-message]) - body ...))))) - (begin0 (or (sync/timeout 20 ch) (format "~a connection timeout" name)) - (custodian-shutdown-all cust)))) - -(define (verify-http url) - (define (check-contents inp) - (define status (read-line inp)) - (define status* (regexp-match #rx"^HTTP/[0-9.]+ ([0-9]+)" status)) - (cond [(not status*) - (eprintf "WARNING: bad status line for ~a:\n ~s\n" url status) - #f] - [(not (regexp-match #rx"^2..$" (cadr status*))) - (eprintf "WARNING: bad status code for ~a: ~s\n" url (cadr status*)) - #f] - [else - (or (for/or ([line (in-lines inp)]) - (cond [(regexp-match #rx"^(?i:content-length: *([0-9]+) *)$" - line) - => (compose string->number cadr)] - [else #f])) - (begin (eprintf "WARNING: no `content-length' for ~a\n" url) - #t))])) - (define r - (with-handlers+timeout 'http - (call/input-url (string->url url) head-impure-port check-contents))) - (if (string? r) - (begin (eprintf "WARNING: failure getting http info for ~a (~a)\n" url r) - #f) - r)) - -(define (verify-ftp url) - (define-values [host port? path] - (apply values - (cdr (or (regexp-match #rx"^ftp://([^/:]+)(?::([0-9]+))?(/.*)$" url) - (error 'verify-ftp "bad ftp url: ~a" url))))) - (define port (or port? 21)) - (define r - (with-handlers+timeout 'ftp - (define c (ftp-establish-connection host port "anonymous" "anonymous@")) - (begin0 (ftp-directory-list c path) (ftp-close-connection c)))) - (cond [(not (and (list? r) (= 1 (length r)) (list? (car r)))) - (eprintf "WARNING: failure getting ftp info for ~a~a\n" - url (if (string? r) (format " (~a)" r) "")) - #f] - [(not (= 4 (length (car r)))) - (eprintf "WARNING: no size for: ~a\n" url) - #t] - [else (string->number (list-ref (car r) 3))])) diff --git a/pkgs/plt-services/meta/web/download/release-info.rkt b/pkgs/plt-services/meta/web/download/release-info.rkt deleted file mode 100644 index f8c5ad001c..0000000000 --- a/pkgs/plt-services/meta/web/download/release-info.rkt +++ /dev/null @@ -1,60 +0,0 @@ -#lang racket/base - -(require racket/system racket/port racket/match racket/runtime-path - racket/promise) - -(define-runtime-path THIS-GIT "../../../../../.git") - -(define (warn fmt . xs) - (eprintf "Warning: ~a\a\n" (apply format fmt xs)) - (flush-output (current-error-port)) - (sleep 1) - #f) - -(define git* - (lazy - (define exe (or (find-executable-path "git") - (warn "no `git' executable => no release info"))) - (define (try dir) (and dir (directory-exists? dir) dir)) - (define dir (and exe (or (ormap try (list (getenv "GIT_DIR") THIS-GIT)) - (warn "no git dir found => no release info\n (~a)" - "set $GIT_DIR to a racket repo .git dir")))) - (define nowhere (open-output-nowhere)) - (and dir (λ args (define o (open-output-string)) - (parameterize ([current-directory dir] - [current-output-port o] - [current-error-port nowhere]) - (and (apply system* exe "--no-pager" args) - (get-output-string o))))))) - -(provide get-version-tag-info) -(define (get-version-tag-info version) - (define git (force git*)) - (let/ec return - (unless git (return #f)) - (define (bad . args) (apply warn args) (return #f)) - (define (try fmt) - (let* ([tag (format fmt version)] - [text (and (git "cat-file" "-e" tag) - (git "cat-file" "tag" tag))]) - (and text (cons tag text)))) - (let* ([text (or (try "v~a") (try "old-v~a") - (bad "no git info for ~s (missing tag)" version))] - [tag (car text)] - [text (cdr text)] - [check (λ (x) (or x (bad "malformed git info for ~s" tag)))] - [sep (check (regexp-match-positions #rx"\n\n" text))] - [meta (map (λ (h) - (let ([m (check (regexp-match-positions #rx" " h))]) - (list (string->symbol (substring h 0 (caar m))) - (substring h (cdar m))))) - (regexp-split #rx"\n" (substring text 0 (caar sep))))] - [text (substring text (cdar sep))]) - (match meta - [`((object ,_) (type "commit") (tag ,_) - (tagger ,(regexp #rx"^(.* <.*>) ([0-9]+) ([-+]?[0-9][0-9])00$" - (list _ tagger date ofs)))) - ;; ignore the time offset (it probably depends on where the tag - ;; was made) - (list tagger (seconds->date (string->number date)) text)] - [_ (check #f)])))) diff --git a/pkgs/plt-services/meta/web/download/resources.rkt b/pkgs/plt-services/meta/web/download/resources.rkt deleted file mode 100644 index d087ca00f7..0000000000 --- a/pkgs/plt-services/meta/web/download/resources.rkt +++ /dev/null @@ -1,3 +0,0 @@ -#lang meta/web - -(define+provide-context "download") diff --git a/pkgs/plt-services/meta/web/download/symlinks.rkt b/pkgs/plt-services/meta/web/download/symlinks.rkt deleted file mode 100644 index 40b4055a37..0000000000 --- a/pkgs/plt-services/meta/web/download/symlinks.rkt +++ /dev/null @@ -1,15 +0,0 @@ -#lang meta/web - -(require "resources.rkt") - -(provide (all-defined-out)) - -(define (in-ftp . paths) - (string-join (cons "/var/ftp/pub/racket" paths) "/")) - -(define docs (symlink "/www/docs")) -(define installers (symlink (in-ftp "installers"))) -(define libs (symlink (in-ftp "libs/tags") "libs")) -(define stubs (symlink "/www/stubs")) - -(define releases-dir (symlink (in-ftp "releases"))) diff --git a/pkgs/plt-services/meta/web/download/version.rkt b/pkgs/plt-services/meta/web/download/version.rkt deleted file mode 100644 index 88e63e95df..0000000000 --- a/pkgs/plt-services/meta/web/download/version.rkt +++ /dev/null @@ -1,7 +0,0 @@ -#lang meta/web - -(require "resources.rkt" "data.rkt") - -(define version.txt - (plain (lazy (let ([v (release-version current-release)]) - (format "~s" `((recent ,v) (stable ,v))))))) diff --git a/pkgs/plt-services/meta/web/lang/reader.rkt b/pkgs/plt-services/meta/web/lang/reader.rkt deleted file mode 100644 index 15b850f781..0000000000 --- a/pkgs/plt-services/meta/web/lang/reader.rkt +++ /dev/null @@ -1,18 +0,0 @@ -#lang s-exp syntax/module-reader -meta/web/common/main - -;; Similar to `#lang scribble/html', but with a plain scribble reader -;; (not the inside one). - -#:read scribble:read -#:read-syntax scribble:read-syntax -#:info (web-reader-info) - -(require (prefix-in scribble: scribble/reader)) - -(define (web-reader-info) - (lambda (key defval default) - (case key - [(color-lexer) - (dynamic-require 'syntax-color/scribble-lexer 'scribble-lexer)] - [else (default key defval)]))) diff --git a/pkgs/plt-services/meta/web/minis/all.rkt b/pkgs/plt-services/meta/web/minis/all.rkt deleted file mode 100644 index f5c71bb862..0000000000 --- a/pkgs/plt-services/meta/web/minis/all.rkt +++ /dev/null @@ -1,3 +0,0 @@ -#lang racket/base - -(require "lists.rkt" "bugs.rkt" "drracket.rkt") diff --git a/pkgs/plt-services/meta/web/minis/bugs.rkt b/pkgs/plt-services/meta/web/minis/bugs.rkt deleted file mode 100644 index 37c4181bae..0000000000 --- a/pkgs/plt-services/meta/web/minis/bugs.rkt +++ /dev/null @@ -1,265 +0,0 @@ -#lang meta/web - -(define-context "bugs") - -(define planet-bugs "http://planet.racket-lang.org/trac/newticket") - -;; a starred option is the default -(define platform-options - '([* "...or choose" ""] - ["Windows 7/Vista, 32-bit" windows-7-32] - ["Windows 7/Vista, 64-bit" windows-7-64] - ["Windows Vista" windows-vista] - ["Windows XP" windows-xp] - ["Windows 2000" windows-2000] - ["Windows NT" windows-nt] - ["Windows 95/98/Me" windows-9x] - ["Mac OS X PowerPC (MacOS X)" mac-ppc-osx] - ["Mac OS X Intel (MacOS X)" mac-i386-osx] - ["Linux, Fedora/RedHat based" linux-fedora] - ["Linux, Ubuntu/Debian based" linux-ubuntu] - ["Linux, other distro" linux-other] - ["Sun Solaris" solaris] - ;; ["Sun Solaris 8" solaris-8] - ;; ["Sun Solaris, other version" solaris-other] - ["Other Unix" unix-other] - ;; ["Macintosh PowerPC (MacOS Classic)" mac-ppc-macos] - ;; ["Macintosh 68K" mac-68k] - ;; ["BeOS" beos] - ;; ["MzScheme kernel" mzkernel] - )) -(define severity-options - '([ "Critical" critical] - [* "Serious" serious] - [ "Non-critical" non-critical])) -(define bug-class-options - '([* "Software Bug" sw-bug] - [ "Documentation Bug" doc-bug] - [ "Change Request" change-request] - [ "Support" support])) - -(require (only-in "../www/download.rkt" download)) - -(define (cgi-link from . to) - (apply symlink (format "/www/cgi-bin/~a" from) to)) -(define bug-report-cgi (cgi-link "bug-report" "bug-report.cgi")) -(define bug-report-captcha (cgi-link "bug-report-captcha")) - -(provide captcha-file+num captcha-text) -(define captcha-file+num (make-parameter #f)) -(define captcha-text (make-parameter #f)) -(define captcha-text-file - @plain[#:file "captcha-text" #:newline #f (or (captcha-text) "")]) - -(define query (cgi-link "gnatsweb" "query")) - -(define (bugs-script) - @script/inline{ - var bugform = null; - var browser_platform = ""; - var params = new Array(); - var cookies = new Array(); - @|| - function initBugData() { - bugform = document.getElementById("BugForm"); - if (navigator.platform && navigator.platform != "") - browser_platform = navigator.platform; - if (navigator.cpuClass && navigator.cpuClass != "") - browser_platform += " / " + navigator.cpuClass; - if (navigator.userAgent && navigator.userAgent != "") - browser_platform += " / " + navigator.userAgent; - if (location.search.length > 0) { - var paramstrs = location.search.substring(1).split(@"/[;&]/"); - for (var i in paramstrs) { - var param = paramstrs[i].split(/=/); - if (param.length == 2) - params[param[0]] = unescape(param[1]).replace(/\+/g," "); - } - } - if (document.cookie.length > 0) { - var cookiestrs = document.cookie.split(@"/; */"); - for (var i in cookiestrs) { - var eql = cookiestrs[i].indexOf('='); - if (eql >= 0) - cookies[cookiestrs[i].substring(0,eql)] = - unescape(cookiestrs[i].substring(eql+1)); - } - } - if (params["v"]) bugform.version.value = params["v"]; - DoUserFields(RestoreUserField); - if (bugform.platform.value == "") { - if (bugform.platform_options.selectedIndex == 0) UpdatePlatformUser(); - else UpdatePlatformOptions(); - } - if (bugform.email.value == "") bugform.email.focus(); - else if (bugform.name.value == "") bugform.name.focus(); - else bugform.subject.focus(); - } - @|| - function SaveUserField(field, name) { - if (field.value != "") { - var d = new Date(); - d.setTime(d.getTime()+(365*24*60*60*1000)); - document.cookie = name + "=" + escape(field.value) - + "; expires="+ d.toGMTString() - + "; path=/"; - } - } - function RestoreUserField(field, name) { - if (field.value == "" && cookies[name]) field.value = cookies[name]; - } - function DoUserFields(op) { - op(bugform.email, "email"); - op(bugform.name, "name"); - op(bugform.version, "version"); - op(bugform.platform, "platform"); - op(bugform.platform_user, "platform_user"); - op(bugform.platform_options, "platform_options"); - } - @|| - function CheckSubmit() { - DoUserFields(SaveUserField); - if (bugform.email.value == "") { - window.alert("Please enter an Email"); - return false; - } - if (bugform.subject.value == "" && bugform.description.value == "") { - window.alert("Please enter a summary and/or a description" - + " of your bug"); - return false; - } - if (bugform.version.value == "") { - window.alert("Please enter your Racket version"); - return false; - } - return true; - } - @|| - var old_platform_user = null; - function UpdatePlatformUser() { - var newval = bugform.platform_user.value; - if (old_platform_user != newval) { - if (newval == "" && old_platform_user != browser_platform) { - newval = browser_platform; - bugform.platform_user.value = browser_platform; - bugform.platform_user.select(); - } - bugform.platform.value = newval; - bugform.platform_options.selectedIndex = 0; - bugform.platform_user.focus(); - old_platform_user = newval; - } - } - @|| - function UpdatePlatformOptions() { - var d = new Date(); - var opts = bugform.platform_options; - var newval = opts.options[opts.selectedIndex].value; - if (newval == "") { - bugform.platform.value = browser_platform; - bugform.platform_user.value = old_platform_user = browser_platform; - } else { - bugform.platform.value = newval; - bugform.platform_user.value = old_platform_user = "...or type"; - } - bugform.platform_user.select(); - opts.focus(); - }}) - -(provide (rename-out [index bug-reports])) -(define index - @page[#:title "Bug Reports" #:extra-headers bugs-script - #:extra-body-attrs `(onLoad: "initBugData();")]{ - @p[style: '("padding: 5px; color: #aa0000; background-color: #ffffee;" - " border: 1px solid; font-weight: bold;")]{ - If you can, please use the “Submit Bug Report” item in DrRacket's Help - menu. It works better than this page, because it helps you supply - precise information about your Racket installation and working - environment.} - @p{@strong{Note:} Bug reports for PLaneT packages are submitted on the - @a[href: planet-bugs]{PLaneT server}.} - @p{Before submitting a bug report, you may wish to: - @ul{@li{Consult the @-docs,} - @li{@download a newer Racket version if there is one (Racket - displays its version number on startup),} - @li{@a[href: (list query "/")]{Query existing bug reports}.}}} - @(define (mk-options opts) - (for/list ([s (in-list opts)]) - (if (eq? '* (car s)) - @option[selected: 'true value: (caddr s)]{@(cadr s)} - @option[value: (cadr s)]{@(car s)}))) - @(define (field name mode html-mode html-title . args) - (define title (and html-title (b html-title ":"))) - (define html-input - (case mode - [(text) - (let ([args (if (memq value: args) args (list* value: "" args))]) - (apply input type: 'text name: name args))] - [(textarea) - (apply textarea name: name style: "font-family: monospace;" args)] - [(options) - (if (null? args) - (error 'field "internal error (missing options)") - (apply select name: name - `(,@(cdr args) ,(mk-options (car args)))))] - [else (error 'field "internal error")])) - (case html-mode - [(line) (list (and title (list title " ")) html-input br)] - [(br) (list (and title (list title br)) html-input br br)] - [(tr) (tr (td title) (td html-input))] - [(as-is) (list (and title (list title " ")) html-input)] - [else (error 'field "internal error")])) - @form[action: bug-report-cgi method: 'post id: 'BugForm - ;; enctype: "multipart/form-data" - style: '("border: 2px solid #4444ff; padding: 6px;" - " background-color: #eeeeff;") - onsubmit: "return CheckSubmit();"]{ - @input[type: 'hidden name: 'cont value: thanks] - @field['name 'text 'br "Your name" size: 40] - @field['email 'text 'br "Your e-mail address" size: 40] - @field['subject 'text 'br "Summary of the problem" size: 60] - @table{ - @field['version 'text 'tr "Version" size: 14] - @; Note: if this is ever used to produce something that - @; help/bug-report.rkt can parse, then the following three - @; fields are actually a single editable drop-down called - @; "platform". - @tr{@td{@b{Platform:}} - @td{@field['platform_user 'text 'as-is #f value: #f size: 30 - onchange: "UpdatePlatformUser();" - onkeyup: "UpdatePlatformUser();"]@; - @|nbsp|@; - @field['platform_options 'options 'as-is #f platform-options - onchange: "UpdatePlatformOptions();"]@; - @input[type: 'hidden name: 'platform]}} - @field['severity 'options 'tr "Severity" severity-options] - @field['class 'options 'tr "Class" bug-class-options]} - @br - @field['description 'textarea 'br "Description of the problem" - rows: 12 cols: 70] - @field['how-to-repeat 'textarea 'br - '("If possible, please give a short sequence of steps to" - " reproduce the problem") - rows: 8 cols: 70] - @; An attachement requires a cgi script that can deal with input - @; that is in "multipart/form-data" format. - @; @field['file 'attachment 'line "Attachment" size: 20] - @(let* ([c (captcha-file+num)] - [n (and c (cdr c))] - [c (and c (img src: (cgi-link (car c)) align: "middle"))]) - (and c @field['captcha 'text 'line - @list{Please type @c and then a “@tt{*@n}”} - size: 10])) - @input[type: 'submit value: "Submit"]}}) - -(define thanks - @page[#:title "Thanks!" #:extra-headers bugs-script #:referrer values]{ - @p{@strong{Thanks!}} - @p{Your Racket bug report has been submitted.} - @p{You should receive an email confirming your report in a few minutes. - The confirmation will be sent to the email address you specified in - your report.} - @p{If you do not receive such confirmation, please report the problem to - @tt{@small{racket@"@"racket-lang.org}} - or to the Racket - @a[href: "http://lists.racket-lang.org/users/"]{mailing list}.}}) diff --git a/pkgs/plt-services/meta/web/minis/drracket.rkt b/pkgs/plt-services/meta/web/minis/drracket.rkt deleted file mode 100644 index b8fa71ed2a..0000000000 --- a/pkgs/plt-services/meta/web/minis/drracket.rkt +++ /dev/null @@ -1,154 +0,0 @@ -#lang meta/web - -(define-context "drracket") - -;; This just shows an ascii logo and redirects to the main page. Thanks -;; to Can Burak Cilingir for both the logo and the drracket.org domain -;; name. - -(define index - (page #:title "DrRacket" #:extra-headers (lazy headers) (center-div logo))) - -(require (only-in "../www/all.rkt" main)) - -(define (logo) - (define (text->lines text) - (cond [(null? text) '()] - [(null? (cdr text)) - (if (equal? "\n" (car text)) '() text)] - [(equal? "\n" (cadr text)) - (cons (car text) (text->lines (cddr text)))] - [else - (text->lines (cons (string-append (car text) (cadr text)) - (cddr text)))])) - (define (do-line chars colors) - (let loop ([chars (map (λ (c) (if (eq? #\space c) nbsp c)) - (string->list chars))] - [colors (string->list colors)]) - (let* ([class (car colors)] - [n (for/or ([color (in-list (cdr colors))] [i (in-naturals 1)]) - (and (not (equal? class color)) i))] - [block (if n (take chars n) chars)] - [block (if (eq? #\space class) - block (span class: (list "c" class) block))]) - (if n - (cons block (loop (drop chars n) (drop colors n))) - (list block))))) - (pre style: "font-family: monospace, fixed; font-weight: bold;" - (add-newlines (map do-line (text->lines char-matrix) - (text->lines color-matrix))))) - -(define (headers) - (list - (style/inline type: 'text/css - (add-newlines (map (λ (c) @list{.c@(car c) { - color: #@(cadr c); - background-color: #@(caddr c); - }}) - colors))) - (meta http-equiv: "refresh" - content: (list "2;URL=" (url-of main))))) - -(define char-matrix - @list|{ - 88XSS% - .888;@88@:88@XXS%tt - 8@Xt tX88X X88@XS%%t:. - 8%:.. ::t@88;88@XX%%t;:.. - @t. 8: :X@ %888XX%%t;:. : - 8 . . . 8 .S8%888@XS%%t;:. .S - @ .:8S888@XStt;;:. .; - X. . 8. :% ;888XS%tt;::. .t - @: . . . . 8% t@8X88@X%%;;::. :t - 8: . % .SX%88@XStt;::.. .;S - 8S . . S .%S8888XS%t;::.. .:tX - 8; . . . . S 8; t@8@X@XS%t;::.. .:;S - @@: . . . 8.8 8..%@8X8@XStt;:... .:;%@ - @X: . . . ;8 8XS88@X88%%;::.. ..;%@ - @@: . . . X;.% 888Xtt88St;::.. .:;tX - @8; . .X..X ;@St; .8;;:.. ..:;%@ - X8S. . . . 8 8 ;S8;;. 8X::. ...;t%@ - %@@%. . X ; %%% :. ;tX%;:. ..:;tS8 - tX8X;. . 8. .X .S@888@.:t%%@;: ..::t%S8 - :%X8Xt:. . .8 . 8 ;X8888X8:;%S@X t...::;tS@@ - ;%@88%t;:.. . ; S :S@8888XXXX%SX888::.::;t%X8 - .;tX@8@XS%ttt:t%X .tX@8888@XS%%SS@@88888.:;t%S8X - :t%X8888@@:8888 S@888888XXS%t;tSX88888@@t;t%S@8 - :;t%S@88t%%% ;8888@@@SS%%t;;:::;8@88@XX @%X@8 - . :;t%S:....8@@@XSSS%%tt;:::....S8@8XS X S@8 - :. .:@t%;:.8%%%%ttt;;:::.... ;SXS X 8S - t:. 88X@8@;;;;;;;:::... ..:.:8 X S8 - 8X@88X%::.::::... ...:::;tt;. .S8 - 88X:.:.........::::;;;tt%%SS@;8@ - 8SS%tt;;;;;;t;tttt%%SSX@88X - @@XXSSSSSSSSXX@@888@ - @@8888XS}|) - -(define colors - '([a "000" "00a"] - [b "000" "555"] - [c "000" "a00"] - [d "00a" "000"] - [e "00a" "555"] - [f "00a" "55f"] - [g "0aa" "555"] - [h "555" "000"] - [i "555" "00a"] - [j "555" "a00"] - [k "555" "aaa"] - [l "55f" "00a"] - [m "55f" "aaa"] - [n "a00" "000"] - [o "a00" "555"] - [p "a00" "f55"] - [q "a0a" "555"] - [r "a0a" "55f"] - [s "a0a" "a00"] - [t "a0a" "aaa"] - [u "a0a" "f55"] - [v "a50" "555"] - [w "a50" "a00"] - [x "a50" "aaa"] - [y "a50" "f55"] - [z "aaa" "555"] - [0 "aaa" "f55"] - [1 "aaa" "fff"] - [2 "f55" "a00"] - [3 "f55" "aaa"] - [4 "f5f" "f55"] - [5 "fff" "aaa"])) - -(define color-matrix - @list|{ - ifllll - qktx555155kflllllllg - 2pppppppp5111155fllllllllll - pppppppppppp511111kffllllllllllv - ppppppppppppppp1111115ffllllllllllla - jpppppppppppppppp0111111rfflllllllllliaa - ppppppppppppppppppp1111111ffllllllllllllaa - pppppppppppppppppppp11111115ffllllllllllliaa - ppppppppppppppppppppp11111111mfflllllllllllaaa - pppppppppppppppppppppp111111115fflllllllllllaaaa - 2ppppppppppppppppppppp31111111115flllllllllllaaaaa - pppppppppppppppppppppp115p1111111kfllllllllllaaaaa - 2ppppppppppppppppppppp111ppp1111155fllllllllllaaaaaa - 2pppppppppppppppppppp511ppppp1111555ifllllllllaaaaaa - 2ppppppppppppppppppp3114pppppp111555kllllllllaaaaaaa - 2pppppppppppppppppp3113pppppppp155555qfllllllaaaaaaa - 2ppppppppppppppppp0111pppppppppk155555illllliaaaaaaa - 22ppppppppppppppp3111ppppppppppp555kkkklillaaaaaaaaa - 222ppppppppppppp01113pppppppppppp5kkkkkklilaaaaaaaaa - 2222ppppppppppp01111pppppppppp222kkkkkkkqliaaaaaaaad - 2222pppppppppp1111ppppppppp222222kkkkkkkqlaaaaaaaa - 22222pppppppu1111yppppppp22222222okkkkkzkiiaaaaaad - 222222ppppy1511kppppp222222222222zkkzzzzziaaaaad - 22222222255555p22222222222222222skzzzzzzgiaaad - c2222225555k222222222222222222w2okzzzzgzgaad - cc222zkkkkqp222222222222222jjjwjzzzqzqqved - ccjqkkkkk222222222222222wjcccccjqzqqqqbh - ozzzzzj2j2j2j2j2w22jccccccccccqvqqbh - ojjjccccjcccccccccccccccccccjgbh - cccccccccccccccccccccccccnn - cccccccccccccccccnnn - nncnnnnn}|) diff --git a/pkgs/plt-services/meta/web/minis/lists.rkt b/pkgs/plt-services/meta/web/minis/lists.rkt deleted file mode 100644 index 9de048d5db..0000000000 --- a/pkgs/plt-services/meta/web/minis/lists.rkt +++ /dev/null @@ -1,168 +0,0 @@ -#lang meta/web - -(provide mailing-lists-quick) - -(define-context "lists") - -(struct ML (name gmane-name google-name description)) - -(define MLs - (list (ML "users" "user" "racket-users" - @text{A discussion list for all things related to Racket. - Ask your questions here!}) - (ML "announce" "announce" #f - @text{A low-volume, moderated list for announcements, only. - @small{(These are posted on the @TT{users} list too, no need - to subscribe to both.)}}) - (ML "dev" "devel" #f - @text{A mailing list for Racket development. - @small{(For people who want to see how the sausages are made - — and help make them.)}}))) - -(define lists - @page[#:title "Mailing Lists" #:file "" #:part-of 'community - #:description - @'{Racket mailing lists for users, developers, announcements, and more.} - (define (list-cells what) (map (λ (r) (r what)) list-renderers)) - ]{ - @p{This is the Racket mailing list server. We have several public mailing - lists, some are listed below with several mirrors for each one. The - complete list of public mailing lists is available on - @a[href: "listinfo"]{this page}.} - @(define gap1 (tr (map (λ (_) @td{@div[style: "height: 1ex;"]{}}) MLs))) - @(define gap2 (tr (map (λ (_) @td{}) MLs))) - @(define (sec . text) - @list{@gap1 - @tr{@td[style: '("background-color: #dddddd; font-weight: bold;" - " padding: 0;") - colspan: (length MLs)]{@text}} - @gap2}) - @table[style: "width: 100%; margin: auto; text-align: center;" - frame: 'box rules: 'cols cellpadding: 5]{ - @tr[style: "border-bottom: 1px solid; background-color: #ccccff;"]{ - @(list-cells 'header-cell)} - @tr[valign: 'top style: "text-align: left;"]{@(list-cells 'description)} - @tr{@(list-cells 'main-page-cell)} - @tr{@(list-cells 'graph-cell)} - @sec{Subscription: enter your email here to subscribe to a mailing list} - @tr{@(list-cells 'subscribe-cell)} - @sec{Gmane Mirror} - @tr{@(list-cells 'gmane-cell)} - @sec{Archive at mail-archive.com} - @tr{@(list-cells 'mail-archive-cell)} - @sec{Google group mirror} - @tr{@(list-cells 'google-cell)}}}) - -(define (list-renderer ml) - (define name (ML-name ml)) - (define at-domain "@racket-lang.org") - (define email (list name at-domain)) - (define description (ML-description ml)) - (define gmane - (let ([gm (ML-gmane-name ml)]) - (and gm @list{gmane.comp.lang.racket.@(ML-gmane-name ml)}))) - (define (gmane-link base . body) - (unless gmane - (error 'list-renderer "internal error: no gmane info for ~a" name)) - (let* ([path (if (pair? base) (list "/" (cdr base) "/") "/")] - [base (if (pair? base) (car base) base)] - [pfx (if (regexp-match? #rx"://" base) base (list "http://" base))]) - @a[href: (list pfx ".gmane.org" path gmane)]{@body})) - (define (mail-archive-link suffix . body) - @a[href: (list "http://www.mail-archive.com/" email "/" suffix)]{@body}) - (define google-groups-url - (let ([g (ML-google-name ml)]) - (and g (list "http://groups.google.com/group/" g "/")))) - (define ((mk-form make) url #:method [method 'get] . body) - (make @form[action: url method: method - style: "display: inline; clear: none;"]{ - @div{@body}})) - (define (mk-subscribe mk) - @(mk-form mk)[(list (url-of lists #t) name "/subscribe") #:method 'post]{ - @input[type: 'text name: 'email size: 20 value: "" - placeholder: "Email to Subscribe" - title: @list{Enter your email to subscribe - to the "@name" mailing list.}]}) - (define form-cell (mk-form td)) - (λ (what) - (case what - [(header-cell) - @th[style: "width: 33%;"]{ - @; the mixed styles will help against some spam harvesting too - @span[style: '("font-size: x-large;" - " font-family: monospace; font-weight: bold;")]{ - @TT{@name}@; - @span[style: "font-size: small;"]{@at-domain}}}] - [(description) @td{@description}] - [(main-page-cell) - @td{@a[href: (list name "/")]{@big{@b{@TT{@name}}} page} - @bull - @a[href: (list name "/archive/")]{archive}}] - [(graph-cell) - @td{@img[src: (list "http://gmane.org/plot-rate.php?group=" gmane) - style: "width: 80%;"]}] - [(subscribe-cell) (mk-subscribe td)] - [(google-cell) - (if google-groups-url - @form-cell[(list google-groups-url "search")]{ - @a[href: google-groups-url]{ - @(string-titlecase - (regexp-replace* #rx"-" (ML-google-name ml) " "))} - @br - @span[style: "white-space: nowrap;"]{ - Search: @input[type: 'text name: 'q value: "" size: 20].}} - @td{@small{—none—}})] - [(mail-archive-cell) - @form-cell["http://www.mail-archive.com/search"]{ - @input[type: 'hidden name: 'l value: email] - @mail-archive-link["info.html"]{Archive} - @bull - @mail-archive-link[""]{Browse} - @bull - @mail-archive-link["maillist.xml"]{RSS} - @br - @span[style: "white-space: nowrap;"]{ - Search: @input[type: 'text name: 'q value: "" size: 20].}}] - [(gmane-cell) - @form-cell["http://search.gmane.org/"]{ - @input[type: 'hidden name: 'group value: gmane] - @gmane-link["dir"]{@TT{@gmane}} - @br - @gmane-link["news"]{threaded} - @bull - @gmane-link["blog"]{blog} - @bull - @gmane-link["nntp://news"]{newsgroup} - @br - Feed: - @gmane-link['("rss" "messages/complete")]{messages} - @bull - @gmane-link['("rss" "topics/complete")]{topics} - @br - @;Excerpt feed: - @;@gmane-link['("rss" "messages/excerpts")]{messages} - @;@bull - @;@gmane-link['("rss" "topics/excerpts")]{topics} - @;@br - @span[style: "white-space: nowrap;"]{ - Search: @input[type: 'text name: 'query value: "" size: 20].}}] - [(quick) - @text{ - @big{@TT{@b{@name}}@small{@tt{@at-domain}}} - @div[style: "margin-left: 2em;"]{ - @description - @br - @div[style: "float: right;"]{@(mk-subscribe values)} - [@a[href: (list (url-of lists) name "/")]{list page}, - @gmane-link["dir"]{gmane mirror}, - @mail-archive-link[""]{mail-archive}@; - @(and google-groups-url - @text{, @a[href: google-groups-url]{google group mirror}})]}}] - [else (error 'list-cell "internal error")]))) - -(define list-renderers (map list-renderer MLs)) - -(define (mailing-lists-quick) - @text{@(apply parlist @strong{Mailing Lists} - (map (λ (r) (r 'quick)) list-renderers)) - @p{See the @lists{mailing list server} for more details.}}) diff --git a/pkgs/plt-services/meta/web/stubs/all.rkt b/pkgs/plt-services/meta/web/stubs/all.rkt deleted file mode 100644 index 3d4320d2ad..0000000000 --- a/pkgs/plt-services/meta/web/stubs/all.rkt +++ /dev/null @@ -1,10 +0,0 @@ -#lang racket/base - -(provide documentation planet packages) - -(require "docs.rkt" ; for the doc tweaking script - ;; these need to be copied to the service - "packages.rkt" "planet.rkt" "blog.rkt" - "pre.rkt" "git.rkt" ; / these are used on the - "mailman.rkt" "dirlist.rkt" ; \ server directly - "wiki.rkt") diff --git a/pkgs/plt-services/meta/web/stubs/blog.rkt b/pkgs/plt-services/meta/web/stubs/blog.rkt deleted file mode 100644 index 99e7ca49ec..0000000000 --- a/pkgs/plt-services/meta/web/stubs/blog.rkt +++ /dev/null @@ -1,1084 +0,0 @@ -#lang meta/web - -(require (prefix-in www: (only-in "../www/resources.rkt" the-resources)) - racket/port) - -(define-context "stubs/blog" #:resources www:the-resources) - -(define racket-css - @text{ - @;{ - Instead of hiding the blogger navbar (and eliminate what it is used for), - just make it appear below the Racket bar, and make it transparent. The - next one is supposed to make it get back to being opaque when the mouse - hovers on it, but it doesn't seem to work on IE. - ;} - #navbar-iframe { - position: absolute; - top: 160px; right: 0px; - opacity: 0.33; filter: alpha(opacity=33); - } - #navbar-iframe:hover { - opacity: 1.0; filter: alpha(opacity=100); - } - /* --- navbar styles --- */ - @navbar-style - }) - -(define (get-resource-text . args) - (let ([str (xml->string (apply www:the-resources args))]) - ;; due to some obscure xml issue the `nbsp' entity is not recognized - ;; in blogger pages - (regexp-replace* #rx" " str "\\ "))) - -(define (racket-navbar) (get-resource-text 'navbar 'community)) -(define (racket-favicon) (get-resource-text 'favicon-headers)) - -(provide blog) -(define blog - @plain[#:file "" #:referrer (λ (u) @a[href: u]{Blog})]{ -@; This is the blogger style template file, with one hole for the CSS and one -@; for the navbar, and a few more tweaks (first by soegaard and then by eli). -@; - - - - - -<data:blog.pageTitle/> - - - - - - - - - - - - - - - -*/ - -/* Use this with templates/template-twocol.html */ - -body { - background: $bgcolor; - margin: 0; - color: $textcolor; - // ELI: I don't know why this was here, it was butchering the whole layout - // font: x-small Georgia Serif; - // font-size/* */:/**/small; - // font-size: /**/small; - // text-align: center; - } -a:link { - color: $linkcolor; - text-decoration: none; -} -a:visited { - color: $visitedlinkcolor; - text-decoration: none; -} -a:hover { - color: $titlecolor; - text-decoration: underline; -} -a img { - border-width: 0; -} - -/* Header ------------------------------------------------ */ - -/* ELI: seems like this has no effect on anything */ - -#header-wrapper { - width: 800px; /* this used to be 660 [soegaard] */ - margin: 0 auto 10px; - border: 1px solid $bordercolor; -} - -#header-inner { - background-position: center; - margin-left: auto; - margin-right: auto; -} - -#header { - margin: 5px; - border: 1px solid $bordercolor; - text-align: center; - color: $pagetitlecolor; -} - -#header h1 { - margin: 5px 5px 0; - padding:15px 20px .25em; - line-height: 1.2em; - text-transform: uppercase; - letter-spacing: .2em; - font: $pagetitlefont; -} - -#header a { - color: $pagetitlecolor; - text-decoration: none; -} - -#header a:hover { - color: $pagetitlecolor; -} - -#header .description { - margin: 0 5px 5px; - padding: 0 20px 15px; - max-width: 840px; /* this used to be 700 [soegaard] */ - text-transform: uppercase; - letter-spacing: .2em; - line-height: 1.4em; - font: $descriptionfont; - color: $descriptioncolor; -} - -#header img { - margin-left: auto; - margin-right: auto; -} - -/* Wrappers ------------------------------------------------ */ - -/* The whole main area */ -#outer-wrapper { - // ELI: - margin-top: 0; - margin-bottom: 0; - @page-sizes - padding: 10px; - text-align: left; - font: $bodyfont; - } - -/* The text area */ -#main-wrapper { - width: 63%; /* used to be 410px [soegaard,ELI] */ - float: left; - word-wrap: break-word; /* fix for long text breaking sidebar float in IE */ - overflow: hidden; /* fix for long non-text content breaking IE sidebar float */ - } - -/* Sidebar stuff */ -#sidebar-wrapper { - width: 33%; /* used to be 220px [ELI] */ - font-size: 87.5%; /* ELI */ - float: right; - word-wrap: break-word; /* fix for long text breaking sidebar float in IE */ - overflow: hidden; /* fix for long non-text content breaking IE sidebar float */ -} - -/* Headings ------------------------------------------------ */ - -h2 { - margin: 1.5em 0 .75em; - font: $headerfont; - line-height: 1.4em; - text-transform: uppercase; - letter-spacing: .2em; - color: $sidebarcolor; -} - - -/* Posts ------------------------------------------------ */ -h2.date-header { - margin: 1.5em 0 .5em; -} - -.post { - margin: .5em 0 1.5em; - border-bottom: 1px dotted $bordercolor; - padding-bottom: 1.5em; -} -.post h3 { - margin: .25em 0 0; - padding: 0 0 4px; - font-size: 140%; - font-weight: normal; - line-height: 1.4em; - color: $titlecolor; -} - -.post h3 a, .post h3 a:visited, .post h3 strong { - display: block; - text-decoration: none; - color: $titlecolor; - font-weight: normal; -} - -.post h3 strong, .post h3 a:hover { - color: $textcolor; -} - -.post p { - margin: 0 0 .75em; - line-height: 1.6em; -} - -.post-footer { - margin: .75em 0; - color: $sidebarcolor; - text-transform: uppercase; - letter-spacing: .1em; - font: $postfooterfont; - line-height: 1.4em; -} - -.comment-link { - margin-left: .6em; -} -.post img { - padding: 4px; - border: 1px solid $bordercolor; -} -.post blockquote { - margin: 1em 20px; -} -.post blockquote p { - margin: .75em 0; -} - -.post-header-line-1 { /* add some vertical space after author [soegaard] */ - margin-bottom: .6em; - font-style: italic; -} - -/* Comments ------------------------------------------------ */ -#comments h4 { - margin: 1em 0; - font-weight: bold; - line-height: 1.4em; - text-transform: uppercase; - letter-spacing: .2em; - color: $sidebarcolor; -} - -#comments-block { - margin: 1em 0 1.5em; - line-height: 1.6em; -} -#comments-block .comment-author { - margin: .5em 0; -} -#comments-block .comment-body { - margin: .25em 0 0; -} -#comments-block .comment-footer { - margin: -.25em 0 2em; - line-height: 1.4em; - text-transform: uppercase; - letter-spacing: .1em; -} -#comments-block .comment-body p { - margin: 0 0 .75em; -} -.deleted-comment { - font-style: italic; - color: gray; -} - -#blog-pager-newer-link { - float: left; -} - -#blog-pager-older-link { - float: right; -} - -#blog-pager { - text-align: center; -} - -.feed-links { - clear: both; - line-height: 2.5em; -} - -/* Sidebar Content ------------------------------------------------ */ -.sidebar { - color: $sidebartextcolor; - line-height: 1.5em; -} - -.sidebar ul { - list-style: none; - margin: 0 0 0; - padding: 0 0 0; -} -.sidebar li { - margin: 0; - padding: 0 0 .25em 15px; - text-indent: -15px; - line-height: 1.5em; -} - -.sidebar .widget, .main .widget { - border-bottom: 1px dotted $bordercolor; - margin: 0 0 1.5em; - padding: 0 0 1.5em; -} - -.main .Blog { - border-bottom-width: 0; -} - - -/* Profile ------------------------------------------------ */ -.profile-img { - float: left; - margin: 0 5px 5px 0; - padding: 4px; - border: 1px solid $bordercolor; -} - -.profile-data { - margin: 0; - text-transform: uppercase; - letter-spacing: .1em; - font: $postfooterfont; - color: $sidebarcolor; - font-weight: bold; - line-height: 1.6em; -} - -.profile-datablock { - margin: .5em 0 .5em; -} - -.profile-textblock { - margin: 0.5em 0; - line-height: 1.6em; -} - -.profile-link { - font: $postfooterfont; - text-transform: uppercase; - letter-spacing: .1em; -} - -/* Colors for highlighting via http://www.scheme.dk/paste/ */ - -.scheme { color: brown; margin: 4pt; } /* background punctuation */ -.scheme .keyword { color: rgb(68,0,203); font-weight: bold; } -.scheme .builtin { color: navy; } -.scheme .variable { color: black; } -.scheme .global { color: purple; } -.scheme .selfeval { color: green; } -.scheme .comment { color: teal; } - -/* Footer ------------------------------------------------ */ -#footer { - width: 660px; - clear: both; - margin: 0 auto; - padding-top: 15px; - line-height: 1.6em; - text-transform: uppercase; - letter-spacing: .1em; - text-align: center; -} - -/** Page structure tweaks for layout editor wireframe */ -body#layout #header { - margin-left: 0px; - margin-right: 0px; -} - -/*** Racket CSS begin ***/ -@racket-css -/*** Racket CSS end ***/ - -]]> - -@racket-favicon - - - - - - -@racket-navbar - - -
- - - - -
- -
- -
- -
- - - -
- - - - - - - - - - - -
-
- - - - - - - - - - - -

- -
- -
-
-   - - -
-
- -
-
- - -
-
- -
- -

- -

- - -
- - -

- - - - - - - - - -

- - -
- - - - - - - - - - -
- -
-

-
-
-
-

- - - - 1 - - - - - - - - - - - - - - -

- -

- - - - , - - -

- -

-

-
- - - -
-
- -
-
-
-
-
-
-
-
- - - -
- -

-

- - -