unicode: support legend in common method
[sheet.git] / unicode.plp
index 0ec6374da5a9474b24f714ad1a8ab90b05fa60fa..245be4759a68c2024afadb331f4a86c952c0b676 100644 (file)
@@ -158,18 +158,10 @@ $glyphs->print(map {
        }
 } @config);
 
        }
 } @config);
 
-:></div>
-
-<div class="legend">
-       <table class="glyphs"><tr>
-       <td class="X l5">ascii
-       <td class="X l4"><:= $glyphs->{style} eq 'di' ? 'digraph' : 'latin1' :>
-       <td class="X l3"><:= $glyphs->{style} eq 'di' ? 'proposed' : 'HTML4' :>
-       <td class="X l2">unicode ≤6.0
-       <td class="X l1">other unicode
-       <td class="X ex">discouraged
-       </table>
-</div>
+say "</div>\n";
 
 
+say for $glyphs->legend;
+
+:>
 <script type="text/javascript" src="/clipboard.js"></script>
 
 <script type="text/javascript" src="/clipboard.js"></script>