X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/ff415f6392ee38af55f1657c02d5a0069779b82f..e48187f517b4d15cc417c5306a21fa5e40bc9ded:/digraphs.plp

diff --git a/digraphs.plp b/digraphs.plp
index 068961d..cec6406 100644
--- a/digraphs.plp
+++ b/digraphs.plp
@@ -2,6 +2,7 @@
 use utf8;
 use strict;
 use warnings;
+no  warnings 'qw';  # to quote or not to quote, that is the question
 use open IO => ':utf8';
 
 our $VERSION = '1.0';
@@ -46,11 +47,11 @@ my @chars = (
 );
 my @chars2 = (['_'], @chars);  # trailing character (extended set)
 
-print '<table><col>';
+print '<table class="glyphs dimap"><col>';
 print qq'<colgroup span="$_">' for map {scalar @$_} @chars2;
 print "</colgroup><col>\n";
 for my $section (qw{thead tfoot}) {
-	print "<$section><tr><th>&nbsp;";
+	print "<$section><tr><th>↳";
 	print '<th>', quote($_) for map {@$_} @chars2;
 	print "<th>&nbsp;\n";
 }
@@ -87,7 +88,7 @@ for my $c1group (@chars) {
 print "</table>\n";
 :>
 <div id="legend">
-	<table><tr>
+	<table class="glyphs"><tr>
 	<td class="X Cc">control
 	<td class="X Zs"><span>spacing</span>
 	<td class="X Mn">modifier
@@ -108,7 +109,7 @@ print "</table>\n";
 	<td class="X Bopomofo">chinese
 	</table>
 
-	<table><tr>
+	<table class="glyphs"><tr>
 	<td class="X">unicode
 	<td class="X Xl">latin1
 	<td class="X Xa">ascii