color: #000; /* on default (light) background hover */
} /* mode link */
+/* code syntax */
+.sy-comment { color: #888 }
+.sy-constant { color: #8AC }
+.sy-type,
+.sy-identifier { color: #C9B }
+.sy-special { color: #A9C }
+.sy-error { font-weight: bold; background-color: #800; color: #EEE }
+.sy-todo { background-color: #880 }
+
/* character properties */
.glyphs th, .glyphs td {
border-color: #888;
}
+/* code syntax */
+#source pre { color: #444 }
+.sy-comment { color: #888; text-shadow: #888 0 0 1em }
+.sy-constant { color: inherit; font-style: italic }
+.sy-type,
+.sy-identifier { color: #000 }
+.sy-statement { color: #000 }
+.sy-preProc { color: #000 }
+.sy-special { color: #000; font-style: italic }
+.sy-error { font-weight: bold; background-color: #000; color: #FFF }
+.sy-todo { background-color: #CCC }
+
color: #FF0;
} /* mode link */
+/* code syntax */
+.sy-comment { color: #888 }
+.sy-constant { color: #C88 }
+.sy-type,
+.sy-identifier { color: #C44 }
+.sy-statement { text-shadow: #F00 0 0 0.5em }
+.sy-special { color: #CA8 }
+.sy-error { font-weight: bold; background-color: #A00; color: #EEE }
+.sy-todo { background-color: #400 }
+
<head>
<meta http-equiv="content-type" content="<:= $header{content_type} :>">
<title>sheet page source code</title>
-<link rel="stylesheet" type="text/css" media="all" href="/base.css">
+<link rel="stylesheet" type="text/css" media="all" href="/base.css"><:
+ my %styles = map {$_ => $_} qw(dark mono red);
+ 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", $_
+ ) for keys %styles;
+:>
</head>
<body id="source">