suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Use absolute URLs in the quick subscription boxes.

Browse Source 
Closes PR 12757.

(Also some reformatting.)
This commit is contained in:
Eli Barzilay 2012-05-09 02:42:52 -04:00
parent f335b47a18
commit 06728e1dd2
2 changed files with 14 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
collects/meta/web/minis/lists.rkt
View File

@ -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))

15
collects/meta/web/www/community.rkt
View File

@ -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.}]})