diff --git a/collects/meta/web/minis/lists.rkt b/collects/meta/web/minis/lists.rkt index 591647ed6b..846d5f2812 100644 --- a/collects/meta/web/minis/lists.rkt +++ b/collects/meta/web/minis/lists.rkt @@ -72,11 +72,11 @@ (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}})) + (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]{ + @(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 @@ -155,8 +155,7 @@ @gmane-link["dir"]{gmane mirror}, @mail-archive-link[""]{mail-archive}@; @(and google-groups-url - @text{, - @a[href: google-groups-url]{google group mirror}})]}}] + @text{, @a[href: google-groups-url]{google group mirror}})]}}] [else (error 'list-cell "internal error")]))) (define list-renderers (map list-renderer MLs)) diff --git a/collects/meta/web/www/community.rkt b/collects/meta/web/www/community.rkt index e4da7a9a4e..c250b05e94 100644 --- a/collects/meta/web/www/community.rkt +++ b/collects/meta/web/www/community.rkt @@ -26,11 +26,14 @@ @text{ Thanks to @a[href: "http://www.nsf.gov/"]{the NSF}, @a[href: "http://www.darpa.mil/"]{DARPA}, - the @a[href: "http://www.ed.gov/FIPSE/"]{Fund for the Improvement of Postsecondary Education (FIPSE)} - at the @a[href: "http://www.ed.gov/"]{US Department of Education}, - the @a[href: "http://www.exxonmobil.com/Corporate/community_foundation.aspx"]{Exxon Foundation}, - CORD, - partners of the Academy of Information Technology, + the + @a[href: "http://www.ed.gov/FIPSE/"]{ + Fund for the Improvement of Postsecondary Education (FIPSE)} + at the @a[href: "http://www.ed.gov/"]{US Department of Education}, + the @a[href: '("http://www.exxonmobil.com/Corporate/" + "community_foundation.aspx")]{Exxon Foundation}, + CORD,partners of the Academy of Information Technology, @a[href: "http://microsoft.com"]{Microsoft}, @a[href: "http://mozilla.org"]{Mozilla}, - and @a[href: "http://google.com"]{Google} for their generous support over the years.}]}) + and @a[href: "http://google.com"]{Google} + for their generous support over the years.}]})