style/mono: support browser and unicode pages
authorMischa POSLAWSKY <perl@shiar.org>
Fri, 12 Nov 2010 00:09:04 +0000 (01:09 +0100)
committerMischa POSLAWSKY <perl@shiar.org>
Fri, 12 Nov 2010 04:15:55 +0000 (05:15 +0100)
browser.plp
mono.css
unicode.plp

index 29002d0..8c0bd6a 100644 (file)
@@ -32,6 +32,7 @@ my %CSTATS = (
        'p j' => 'l2',
        'j'   => 'l2',
        'p'   => 'l2',
+       'u'   => 'ex',
 );
 my %CSTATUS = (
        unoff => 'ex', # unofficial
@@ -145,7 +146,7 @@ for my $id (sort {
                                my $usage = sum(map { $canihas->{$browser}->{$_} } @span);
                                printf '<td class="%s" colspan="%d" title="%.1f%%">%s',
                                        join(' ',
-                                               $CSTATS{ $data->{$browser}->{$prev} },
+                                               X => $CSTATS{ $data->{$browser}->{$prev} },
                                                sprintf('opacity%.0f', $usage / $scorediv),
                                        ),
                                        scalar @span,
index 885ddc9..a8a710c 100644 (file)
--- a/mono.css
+++ b/mono.css
@@ -3,6 +3,20 @@
 
 body dl.legend-options dt {background: #EEE}
 
+td,
+.X  {background: #EEE}
+.ex a, .ex a:visited,
+.ex {background: #BBB; color: #FFF; text-shadow: 0 0 4px #000}
+.l0 a, .l0 a:visited,
+.l0 {background: #000; color: #FFF}
+.l2 a, .l2 a:visited,
+.l2 {background: #444; color: #FFF}
+.l4 {background: #AAA; color: #000}
+.l5 {background: #DDD; color: #000}
+.l6 {background: #EEE; color: #000}
+.l6.ex, .l5.ex, .l4.ex, .l2.ex,
+.l0.ex                {color: #888; text-shadow: none}
+
 .pm, .g1 {background: #FFF}   /* motion */
 .po, .g2 {background: #DDD}   /* window */
 .co, .g3 {background: #AAA}   /* command */
index 70f13e6..3a6a0c9 100644 (file)
@@ -10,7 +10,7 @@ Html({
        keywords => [qw'
                unicode glyph char character reference common ipa symbol sign mark table digraph
        '],
-       stylesheet => [qw'light dark red'],
+       stylesheet => [qw'light dark mono red'],
        data => [qw'digraphs.inc.pl'],
 });
 
@@ -215,7 +215,7 @@ $verbose ? (
        <td class="X l4"><:= $glyphs->{digraph} ? 'digraph' : 'latin1' :>
        <td class="X l2"><:= $glyphs->{digraph} ? 'proposed' : 'BMP' :>
        <td class="X l0">other unicode
-       <td class="X ex">discouraged
+       <td class="X l2 ex">discouraged
        </table>
 </div>