Web pages tweaks.

* Add a reference from the community page to the bug reports page.

* Make it possible to subscribe to lists right from the community page.
  Improve the email input boxes with placeholder text and a short
  explanation on hovering.

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();")]{

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}@;

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},