summary |
shortlog |
log |
commit | commitdiff |
tree
raw |
patch |
inline | side by side (from parent 1:
4f83f10)
Add table groups (major borders) bringing a bit more structure to the sea of
6400 cells. A couple of other css-related changes.
font-size: 200%;
margin: 0 0 0.2em;
}
font-size: 200%;
margin: 0 0 0.2em;
}
margin: 1em 0 0;
text-align: center;
}
margin: 1em 0 0;
text-align: center;
}
border-collapse: collapse;
table-layout: fixed; /* prevent resizing, notably in msie6 */
}
border-collapse: collapse;
table-layout: fixed; /* prevent resizing, notably in msie6 */
}
+tbody, colgroup {
+ border: 2px double #888;
+}
+tbody {
+ border-width: 2px 0;
+}
+colgroup {
+ border-width: 0 2px;
+}
+
#legend {
margin-top: 1em;
}
#legend {
margin-top: 1em;
}
width: 100%;
table-layout: auto;
}
width: 100%;
table-layout: auto;
}
+#legend tbody {
+ border: 0;
+}
#legend td {
padding: 0 0.2em;
}
#legend td {
padding: 0 0.2em;
}
-my @chars = ((map {chr} ord '!' .. ord 'Z'), 'a'..'z');
-splice @chars, $_, 1, () for 2, 3-1, 5-2, 31-3; # remove character exceptions # $ & @
-my @chars2 = (@chars, '_'); # trailing character (extended set)
+my @chars = (
+ [qw{! " % ' ( ) * + , - . /}],
+ ['0'..'9'], [qw{: ; < = > ?}],
+ ['A'..'M'], ['N'..'Z'],
+ ['a'..'m'], ['n'..'z'],
+);
+my @chars2 = (@chars, ['_']); # trailing character (extended set)
+print '<table><col>';
+print qq'<colgroup span="$_">' for map {scalar @$_} @chars2;
+print "\n";
for my $section (qw{thead tfoot}) {
print "<$section><tr><th> ";
for my $section (qw{thead tfoot}) {
print "<$section><tr><th> ";
- print "<th>$_" for @chars2;
+ print "<th>$_" for map {@$_} @chars2;
-print '<tbody>';
-for my $c1 (@chars) {
- print "<tr><th>$c1";
- for my $c2 (@chars2) {
- my $mnem = $c1 . $c2;
- if (not defined $di->{$mnem}) {
- print '<td>';
- next;
- }
- my ($codepoint, $name, $prop, $script) = @{ $di->{$mnem} };
+for my $c1group (@chars) {
+ print '<tbody>';
+ for my $c1 (@$c1group) {
+ print "<tr><th>$c1";
+ for my $c2 (map {@$_} @chars2) {
+ my $mnem = $c1 . $c2;
+ if (not defined $di->{$mnem}) {
+ print '<td>';
+ next;
+ }
+ my ($codepoint, $name, $prop, $script) = @{ $di->{$mnem} };
- my $glyph = chr $codepoint;
- utf8::upgrade($glyph); # prevent latin1 output
- my $desc = $mnem . ($name && " ($name)");
- my @class = ('X', grep {$_} $prop, $script);
+ my $glyph = chr $codepoint;
+ utf8::upgrade($glyph); # prevent latin1 output
+ my $desc = $mnem . ($name && " ($name)");
+ my @class = ('X', grep {$_} $prop, $script);
- $glyph = quote($glyph);
- $glyph = "<span>$glyph</span>" if $prop eq 'Zs';
+ $glyph = quote($glyph);
+ $glyph = "<span>$glyph</span>" if $prop eq 'Zs';
- printf "\n".'<td class="%s" title="%s">%s',
- join(' ', @class), quote($desc), $glyph;
+ printf "\n".'<td class="%s" title="%s">%s',
+ join(' ', @class), quote($desc), $glyph;
+ }
+ print "\n<th>$c1\n";
<a href="http://vi.shiar.net/digraphs">vi.<strong>shiar.net</strong>/digraphs</a>
<a href="git://dev.shiar.net/vi-cheat"><:= "v$VERSION" :></a>
created by Shiar •
<a href="http://vi.shiar.net/digraphs">vi.<strong>shiar.net</strong>/digraphs</a>
<a href="git://dev.shiar.net/vi-cheat"><:= "v$VERSION" :></a>
created by Shiar •