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

Minor tweak: use full 6 hex digits for all colors to avoid IE bogosity.

Browse Source
This commit is contained in:
Eli Barzilay 2011-05-27 18:32:41 -04:00
parent 7ae13761ce
commit 8ef1d1a547
8 changed files with 26 additions and 25 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/meta/web/common/extras.rkt
View File

@ -21,10 +21,10 @@
;; a grayish tt text ;; a grayish tt text
(provide TT) (provide TT)
(define (TT . xs) (define (TT . xs)
@tt[style: "background-color: #dde;"]{@xs}) @tt[style: "background-color: #d8d8e8;"]{@xs})
(provide PRE) (provide PRE)
(define (PRE . xs) (define (PRE . xs)
@pre[style: "background-color: #dde;"]{@xs}) @pre[style: "background-color: #d8d8e8;"]{@xs})
;; some tags with convenient separators ;; some tags with convenient separators
(provide make-separated-tag (rename-out [the-separator ~]) (provide make-separated-tag (rename-out [the-separator ~])

10
collects/meta/web/common/resources.rkt
View File

@ -41,14 +41,14 @@
;; be used in places with their own CSS (eg, blog.racket-lang.org) ;; be used in places with their own CSS (eg, blog.racket-lang.org)
@list{ @list{
.racketnav { .racketnav {
background-color: #000; background-color: #000000;
color: #fff; color: #ffffff;
margin-bottom: 1em; margin-bottom: 1em;
padding: 0.5em 0em; padding: 0.5em 0em;
white-space: nowrap; white-space: nowrap;
} }
.racketnav a { .racketnav a {
color: #fff; color: #ffffff;
text-decoration: none; text-decoration: none;
} }
.racketnav .navcontent { .racketnav .navcontent {
@ -68,11 +68,11 @@
} }
.racketnav .navcurlink a { .racketnav .navcurlink a {
padding: 0em 1em; padding: 0em 1em;
background-color: #555; background-color: #555555;
} }
.racketnav .navlink a:hover, .racketnav .navlink a:hover,
.racketnav .navcurlink a:hover { .racketnav .navcurlink a:hover {
background-color: #888; background-color: #888888;
} }
.racketnav .navlinkcell { .racketnav .navlinkcell {
text-align: center; text-align: center;

6
collects/meta/web/minis/bugs.rkt
View File

@ -170,7 +170,7 @@
(define index (define index
@page[#:title "Bug Reports" #:extra-headers bugs-script @page[#:title "Bug Reports" #:extra-headers bugs-script
#:extra-body-attrs `(onLoad: "initBugData();")]{ #:extra-body-attrs `(onLoad: "initBugData();")]{
@p[style: '("padding: 5px; color: #a00; background-color: #ffe;" @p[style: '("padding: 5px; color: #aa0000; background-color: #ffffee;"
" border: 1px solid; font-weight: bold;")]{ " border: 1px solid; font-weight: bold;")]{
If you can, please use the “Submit Bug Report” item in DrRacket's Help If you can, please use the “Submit Bug Report” item in DrRacket's Help
menu. It works better than this page, because it helps you supply menu. It works better than this page, because it helps you supply
@ -192,8 +192,8 @@
[else (error 'field "internal error")]))) [else (error 'field "internal error")])))
@form[action: bug-report-cgi method: 'post id: 'BugForm @form[action: bug-report-cgi method: 'post id: 'BugForm
;; enctype: "multipart/form-data" ;; enctype: "multipart/form-data"
style: '("border: 2px solid #44f; padding: 6px;" style: '("border: 2px solid #4444ff; padding: 6px;"
" background-color: #eef;") " background-color: #eeeeff;")
onsubmit: "return CheckSubmit();"]{ onsubmit: "return CheckSubmit();"]{
@input[type: 'hidden name: 'cont value: thanks] @input[type: 'hidden name: 'cont value: thanks]
@field['br "Your name"]{ @field['br "Your name"]{

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

@ -31,13 +31,13 @@
(tr (map (lambda (_) @td{}) MLs))) (tr (map (lambda (_) @td{}) MLs)))
@(define (sec . text) @(define (sec . text)
@list{@gap1 @list{@gap1
@tr{@td[style: '("background-color: #ddd; font-weight: bold;" @tr{@td[style: '("background-color: #dddddd; font-weight: bold;"
" padding: 0;") " padding: 0;")
colspan: (length MLs)]{@text}} colspan: (length MLs)]{@text}}
@gap2}) @gap2})
@table[style: "width: 100%; margin: auto; text-align: center;" @table[style: "width: 100%; margin: auto; text-align: center;"
frame: 'box rules: 'cols cellpadding: 5]{ frame: 'box rules: 'cols cellpadding: 5]{
@tr[style: "border-bottom: 1px solid; background-color: #ccf;"]{ @tr[style: "border-bottom: 1px solid; background-color: #ccccff;"]{
@(list-cells 'header-cell)} @(list-cells 'header-cell)}
@tr[valign: 'top style: "text-align: left;"]{@(list-cells 'description)} @tr[valign: 'top style: "text-align: left;"]{@(list-cells 'description)}
@tr{@(list-cells 'main-page-cell)} @tr{@(list-cells 'main-page-cell)}

2
collects/meta/web/stubs/git.rkt
View File

@ -105,7 +105,7 @@
font-family: monospace; font-family: monospace;
font-size: large; font-size: large;
font-weight: bold; font-weight: bold;
background-color: #eee; background-color: #eeeeee;
} }
.code, .path, .man { .code, .path, .man {
white-space: nowrap; white-space: nowrap;

6
collects/meta/web/stubs/mailman.rkt
View File

@ -11,7 +11,7 @@
@style/inline{ @style/inline{
h1 { h1 {
text-align: center; text-align: center;
background-color: #9cf; background-color: #99ccff;
padding: 0.5em; padding: 0.5em;
font-size: 150%; font-size: 150%;
font-weight: bold; font-weight: bold;
@ -19,7 +19,7 @@
h2 { h2 {
text-align: left; text-align: left;
padding: 0.1em 0.5em; padding: 0.1em 0.5em;
background-color: #fda; background-color: #ffddaa;
font-size: 120%; font-size: 120%;
font-weight: bold; font-weight: bold;
} }
@ -147,7 +147,7 @@
for the @MM{List-Name} mailing list.} for the @MM{List-Name} mailing list.}
@subp{@MM{Case-Preserved-User} @subp{@MM{Case-Preserved-User}
@MM{Disabled-Notice} @MM{Disabled-Notice}
@div[style: "background-color: #faa;"]{@MM{Results}}} @div[style: "background-color: #ffaaaa;"]{@MM{Results}}}
@(define (tablesec . body) @(define (tablesec . body)
(apply table cellspacing: 5 cellpadding: 3 width: "100%" align: 'center (apply table cellspacing: 5 cellpadding: 3 width: "100%" align: 'center
body)) body))

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

@ -357,8 +357,9 @@
set_display("none"); set_display("none");
showing = new_showing; showing = new_showing;
set_display("block"); set_display("block");
rewbutton_s.color = (showing==0) ? "#aaa" : "#444"; rewbutton_s.color = (showing==0) ? "#aaaaaa" : "#444444";
advbutton_s.color = (showing==@(sub1 (length l))) ? "#aaa" : "#444"; advbutton_s.color =
(showing==@(sub1 (length l))) ? "#aaaaaa" : "#444444";
} }
function advance_show() { function advance_show() {
if (showing < @(sub1 (length l))) change_show_to(showing+1); if (showing < @(sub1 (length l))) change_show_to(showing+1);
@ -428,7 +429,7 @@
width: 100%; width: 100%;
font-size: large; font-size: large;
font-weight: bold; font-weight: bold;
color: #d00; color: #dd0000;
} }
.threepanes { .threepanes {
width: 100%; width: 100%;
@ -455,10 +456,10 @@
} }
#advancebutton, #rewindbutton, #helpbutton, #closebutton { #advancebutton, #rewindbutton, #helpbutton, #closebutton {
text-decoration: none; text-decoration: none;
border: 1px solid #ddd; border: 1px solid #ddddd;
font-weight: bold; font-weight: bold;
color: #444; color: #44444;
background-color: #eee; background-color: #eeeee;
padding: 0px 1px 0px 1px; padding: 0px 1px 0px 1px;
} }
#advancebutton, #rewindbutton { #advancebutton, #rewindbutton {
@ -473,7 +474,7 @@
} }
.helpcontent { .helpcontent {
width: 20em; width: 20em;
background-color: #ffe; background-color: #ffffee;
padding: 10px; padding: 10px;
margin-top: 3px; margin-top: 3px;
border: 1px solid black; border: 1px solid black;

4
collects/meta/web/www/learning.rkt
View File

@ -48,7 +48,7 @@
", ")) ", "))
@h1{Graduate Study with PLT} @h1{Graduate Study with PLT}
@p{An open letter to graduate applicants:} @p{An open letter to graduate applicants:}
@div[style: (box-style 3 "#ddd")]{ @div[style: (box-style 3 "#dddddd")]{
@p*{ @p*{
Dear Prospective Graduate Student, Dear Prospective Graduate Student,
@|br br| @|br br|
@ -58,7 +58,7 @@
Because you are more interested in PLT than in our specific institutions, Because you are more interested in PLT than in our specific institutions,
we have created the following common application form. By filling it in we have created the following common application form. By filling it in
once, you can automatically apply to all current PLT institutions. once, you can automatically apply to all current PLT institutions.
@~ @|style: (box-style 1 "#bbb")|@; @~ @|style: (box-style 1 "#bbbbbb")|@;
Yes, we know you don't like @place-names (circle those applicable). But Yes, we know you don't like @place-names (circle those applicable). But
we like them, or we wouldn't be living there. Think about the message we like them, or we wouldn't be living there. Think about the message
you're sending by rejecting our choices. Moreover, we think very highly you're sending by rejecting our choices. Moreover, we think very highly