red on black keyboard style

Emulate my shiar.nl homepage styling to allow page inclusion.
Very distinct and simple (nearly monochromatic), if nothing else
at least showcasing CSS possibilities.

diff --git a/nethack.plp b/nethack.plp
index bb0be709369898e8132cd1d384a66b7593f7b998..0a5a4be588b973d93e1a5e309fe8ac4196854daa 100644 (file)
--- a/nethack.plp
+++ b/nethack.plp
@@ -31,7 +31,7 @@ $header{content_type} = $ctype;
 <link rel="stylesheet" type="text/css" media="all" href="base.css">
 <!--[if lte IE 6]><style> .help dl.legend dt {margin:0 0 1px} </style><![endif]-->
 <!--[if lte IE 7]><style> .help dl.legend dd {float:none} </style><![endif]--><:
 <link rel="stylesheet" type="text/css" media="all" href="base.css">
 <!--[if lte IE 6]><style> .help dl.legend dt {margin:0 0 1px} </style><![endif]-->
 <!--[if lte IE 7]><style> .help dl.legend dd {float:none} </style><![endif]--><:

-       my %styles = map {$_ => $_} qw(dark circus mono terse);
+       my %styles = map {$_ => $_} qw(dark circus mono red terse);

        our $style = exists $get{style} && $styles{$get{style}} || 'light';
        printf(qq{\n<link rel="%s" type="text/css" media="all" href="%s" title="%s">},
                $_ eq $style ? 'stylesheet' : 'alternate stylesheet', "$_.css", $_
        our $style = exists $get{style} && $styles{$get{style}} || 'light';
        printf(qq{\n<link rel="%s" type="text/css" media="all" href="%s" title="%s">},
                $_ eq $style ? 'stylesheet' : 'alternate stylesheet', "$_.css", $_

diff --git a/red.css b/red.css
new file mode 100644 (file)
index 0000000..154238b
--- /dev/null
+++ b/red.css
@@ -0,0 +1,48 @@
+body {
+       background: #000;
+       color: #CCC;
+}
+a:link    { color:#DDB; }
+a:visited { color:#CCCCC0; }
+a:active  { color:#FF0; }
+a:hover   { color:#FF0; text-decoration: none}
+
+dl.legend dt,
+ul.keys li {
+       border-radius: 0;
+       -moz-border-radius: 0;
+       border-color: #800;
+}
+ul.keys li {
+       text-align: left;
+}
+ul.keys li b {
+       margin-right: 3px;
+       font-size: 100%;
+       background: #800;
+       float: left;
+       min-width: 1.5em;
+       line-height: 5ex;
+       font-style: normal;
+}
+
+.ci   {background: none; font-style: italic} /* info */
+.pm   {background: none} .pm b, dt.pm {color: #DD6} /* motion */
+.po   {background: none} .po b, dt.po {color: #6CD} /* window */
+.co   {background: none} .co b, dt.co {color: none} /* command */
+.mi   {background: #300} /* ins */
+.mo   {background: #600} /* state */
+.mv   {background: #600; font-style: italic} .mv b, dt.mv {color: #DD6} /* visual */
+.me   {background: #600; font-style: italic} /* mode */
+dl.legend-options dt,
+.no   {background: none} .no b {color: #000} /* unassigned */
+
+.co[onclick]:hover,
+.mi[onclick]:hover,
+.mo[onclick]:hover,
+.mv[onclick]:hover,
+.me[onclick]:hover {
+       background: #800;
+       color: #FF0;
+} /* mode link */
+

diff --git a/vim.plp b/vim.plp
index 4be5d712e89737d9d33e6fba47d23d27c0b64991..3ae41b1f8ddf0b6a23527a0523de5b204b1184d4 100644 (file)
--- a/vim.plp
+++ b/vim.plp
@@ -31,7 +31,7 @@ $header{content_type} = $ctype;
 <link rel="stylesheet" type="text/css" media="all" href="base.css">
 <!--[if lte IE 6]><style> .help dl.legend dt {margin:0 0 1px} </style><![endif]-->
 <!--[if lte IE 7]><style> .help dl.legend dd {float:none} </style><![endif]--><:
 <link rel="stylesheet" type="text/css" media="all" href="base.css">
 <!--[if lte IE 6]><style> .help dl.legend dt {margin:0 0 1px} </style><![endif]-->
 <!--[if lte IE 7]><style> .help dl.legend dd {float:none} </style><![endif]--><:

-       my %styles = map {$_ => $_} qw(dark circus mono terse);
+       my %styles = map {$_ => $_} qw(dark circus mono red terse);

        our $style = exists $get{style} && $styles{$get{style}} || 'light';
        printf(qq{\n<link rel="%s" type="text/css" media="all" href="%s" title="%s">},
                $_ eq $style ? 'stylesheet' : 'alternate stylesheet', "$_.css", $_
        our $style = exists $get{style} && $styles{$get{style}} || 'light';
        printf(qq{\n<link rel="%s" type="text/css" media="all" href="%s" title="%s">},
                $_ eq $style ? 'stylesheet' : 'alternate stylesheet', "$_.css", $_