diff --git a/collects/meta/web/minis/bugs.rkt b/collects/meta/web/minis/bugs.rkt index 621916edcd..37c4181bae 100644 --- a/collects/meta/web/minis/bugs.rkt +++ b/collects/meta/web/minis/bugs.rkt @@ -38,7 +38,7 @@ [ "Change Request" change-request] [ "Support" support])) -(require (only-in "../www/all.rkt" download)) +(require (only-in "../www/download.rkt" download)) (define (cgi-link from . to) (apply symlink (format "/www/cgi-bin/~a" from) to)) @@ -166,6 +166,7 @@ opts.focus(); }}) +(provide (rename-out [index bug-reports])) (define index @page[#:title "Bug Reports" #:extra-headers bugs-script #:extra-body-attrs `(onLoad: "initBugData();")]{ diff --git a/collects/meta/web/minis/lists.rkt b/collects/meta/web/minis/lists.rkt index 5cbb143068..591647ed6b 100644 --- a/collects/meta/web/minis/lists.rkt +++ b/collects/meta/web/minis/lists.rkt @@ -71,10 +71,17 @@ (define google-groups-url (let ([g (ML-google-name ml)]) (and g (list "http://groups.google.com/group/" g "/")))) - (define (form-cell url #:method [method 'get] . body) - @td{@form[action: url method: method - style: "display: inline; clear: none;"]{ - @div{@body}}}) + (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 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) @@ -92,9 +99,7 @@ [(graph-cell) @td{@img[src: (list "http://gmane.org/plot-rate.php?group=" gmane) style: "width: 80%;"]}] - [(subscribe-cell) - @form-cell[(list name "/subscribe") #:method 'post]{ - @input[type: 'text name: 'email size: 20 value: ""]}] + [(subscribe-cell) (mk-subscribe td)] [(google-cell) (if google-groups-url @form-cell[(list google-groups-url "search")]{ @@ -145,6 +150,7 @@ @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}@; diff --git a/collects/meta/web/www/community.rkt b/collects/meta/web/www/community.rkt index ae55887e51..6480971f2b 100644 --- a/collects/meta/web/www/community.rkt +++ b/collects/meta/web/www/community.rkt @@ -1,7 +1,7 @@ #lang meta/web (require "resources.rkt" "people.rkt" "irc.rkt" - "../minis/lists.rkt" + "../minis/lists.rkt" "../minis/bugs.rkt" "../stubs/blog.rkt" "../stubs/git.rkt" (prefix-in pre: "../stubs/pre.rkt")) @@ -17,8 +17,9 @@ @text{@people — the people behind Racket.}] @parlist[@strong{Development} @text{@git (also available on - @a[href: "http://github.com/plt/racket/"]{GitHub})} - @text{@pre:installers and @pre:index{more}.}] + @a[href: "http://github.com/plt/racket/"]{GitHub}).} + @text{@pre:installers and @pre:index{more}.} + @text{@bug-reports — create and query existing reports.}] @parlist[@strong{Support} @text{ Thanks to @a[href: "http://www.nsf.gov/"]{the NSF},