style/mono: support browser and unicode pages

diff --git a/browser.plp b/browser.plp
index 29002d09535aa44bc4fb5b16d5246413b065e290..8c0bd6a70a76e17e9ca7786365f028d774c7b06e 100644 (file)
--- a/browser.plp
+++ b/browser.plp
@@ -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,

diff --git a/mono.css b/mono.css
index 885ddc9c4e7c7a3957c423c75485adcbd67d46ee..a8a710c9c73ce67acc0187e7037168cce7e7b01e 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 */

diff --git a/unicode.plp b/unicode.plp
index 70f13e6cd0cfb58150eeadb34e965ec132efdc39..3a6a0c9d7688badaba7740ceaac70001e116f510 100644 (file)
--- a/unicode.plp
+++ b/unicode.plp
@@ -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>