style: generic naming scheme for support classes

[sheet.git] / browser.plp

diff --git a/browser.plp b/browser.plp
index b82f5fb6b2eeeab4d3575411b80a5f37b9071d46..29002d09535aa44bc4fb5b16d5246413b065e290 100644 (file)
--- a/browser.plp
+++ b/browser.plp
@@ -24,22 +24,22 @@ browser usage statistics.</p>
 my $caniuse = do 'browser-support.inc.pl' or die $! || $@;
 
 my %CSTATS = (
-       n => 'di-b',
-       y => 'di-aa',
-       a     => 'di-d',
-       'a x' => 'di-d',
-       j     => 'di-prop',
-       p     => 'di-prop',
-       'p j' => 'di-prop',
-       'y x' => 'di-a',
+       'n'   => 'l0',
+       'y'   => 'l6',
+       'y x' => 'l5',
+       'a'   => 'l4',
+       'a x' => 'l4',
+       'p j' => 'l2',
+       'j'   => 'l2',
+       'p'   => 'l2',
 );
 my %CSTATUS = (
-       unoff => 'di-rare', # unofficial
-       wd    => 'di-b', # draft
-       pr    => 'di-prop', # proposed
-       cr    => 'di-d', # candidate
-       rec   => 'di-a', # recommendation
-       ietf  => 'di-aa', # standard
+       unoff => 'ex', # unofficial
+       wd    => 'l0', # draft
+       pr    => 'l2', # proposed
+       cr    => 'l4', # candidate
+       rec   => 'l5', # recommendation
+       ietf  => 'l6', # standard
 );
 my @browsers = qw(trident gecko webkit_saf webkit_chr presto);
 my %versions;
@@ -199,11 +199,11 @@ alert(t);
 
 <div class="legend">
        <table class="glyphs"><tr>
-       <td class="X di-aa">supported
-       <td class="X di-a">prefixed
-       <td class="X di-d">partial
-       <td class="X di-prop">external (js/plugin)
-       <td class="X di-b">missing
+       <td class="X l6">supported
+       <td class="X l5">prefixed
+       <td class="X l4">partial
+       <td class="X l2">external (js/plugin)
+       <td class="X l0">missing
        </table>
 
        <div class="right">