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

Some minor tweaks to make it valid.

Browse Source
This commit is contained in:
Eli Barzilay 2010-06-15 12:46:12 -04:00
parent dc0959ce05
commit 0905701e89
2 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -37,7 +37,7 @@
@span[style: "font-size: 82.5%;"]{@at-domain}}} @span[style: "font-size: 82.5%;"]{@at-domain}}}
@p{@ML-description[ml]} @p{@ML-description[ml]}
@form[action: (list name "/subscribe") method: 'post]{ @form[action: (list name "/subscribe") method: 'post]{
@span[style: "white-space: nowrap;"]{ @p[style: "white-space: nowrap;"]{
Quick subscribe: @input[type: 'text name: 'email size: 20 value: ""]}} Quick subscribe: @input[type: 'text name: 'email size: 20 value: ""]}}
@(cond [(ML-google-name ml) @(cond [(ML-google-name ml)
=> (lambda (g) => (lambda (g)
@ -48,8 +48,8 @@
@(let* ([gmane @list{gmane.comp.lang.racket.@(ML-gmane-name ml)}] @(let* ([gmane @list{gmane.comp.lang.racket.@(ML-gmane-name ml)}]
[G "gmane.org"]) [G "gmane.org"])
@form[action: @`{http://search.@,|G|/} method: 'get]{ @form[action: @`{http://search.@,|G|/} method: 'get]{
@input[type: 'hidden name: 'group value: gmane] @p{@input[type: 'hidden name: 'group value: gmane]
@p{Mirrord as the Mirrord as the
@a[href: @`{http://dir.@,|G|/@,gmane}]{@TT{@gmane}} @a[href: @`{http://dir.@,|G|/@,gmane}]{@TT{@gmane}}
newsgroup on Gmane: newsgroup on Gmane:
Browse using Browse using
@ -70,8 +70,8 @@
@(let ([url @list{http://www.mail-archive.com/@|email|/}]) @(let ([url @list{http://www.mail-archive.com/@|email|/}])
@form[action: "http://www.mail-archive.com/search" method: 'get @form[action: "http://www.mail-archive.com/search" method: 'get
style: "display: inline; clear: none;"]{ style: "display: inline; clear: none;"]{
@input[type: 'hidden name: 'l value: email] @p{@input[type: 'hidden name: 'l value: email]
@p{@a[href: (list url "info.html")]{Archived} @a[href: (list url "info.html")]{Archived}
at @tt{mail-archive.com}: at @tt{mail-archive.com}:
@a[href: url]{Browse}, @a[href: url]{Browse},
@a[href: (list url "maillist.xml")]{RSS}, @a[href: (list url "maillist.xml")]{RSS},

2
collects/meta/web/www/download.rkt
View File

@ -37,5 +37,5 @@
@a[href: "download/" @a[href: "download/"
onmouseover: "set_download_image(1);" onmouseover: "set_download_image(1);"
onmouseout: "set_download_image(0);"]{ onmouseout: "set_download_image(0);"]{
@img[id: "download_button" border: "0" src: img1 @img[id: "download_button" src: img1 style: "border-width: 0;"
alt: "Download Racket" title: "Download Racket"]}})) alt: "Download Racket" title: "Download Racket"]}}))