Character mnemonics following compose key â<:
+say join("\n",
+ $mode ? (
+ ' in the X Window System (Shift+AltGr by default).',
+ 'Differences from RFC-1345 are indicated.',
+ ) : (':',
+ 'i^k in Vim,',
+ '^u^\ in Emacs,',
+ '^a^v in Screen.',
+ 'Similar but different from X.Org.',
+ ),
+ 'Also see common Unicode.
' for map {scalar @$_} @chars2;
-print "\n";
+for my $colchars (@columns) {
+print '
';
+print qq'
' for map {scalar @$_} @{$colchars};
+say '
';
for my $section (qw{thead tfoot}) {
- print "<$section>
";
- print "
$_" for map {@$_} @chars2;
+ print "<$section>
â³";
+ print '
', EscapeHTML($_) for map {@$_} @{$colchars};
+ say '
';
}
for my $c1group (@chars) {
print '
';
for my $c1 (@$c1group) {
- print "
$c1";
- for my $c2 (map {@$_} @chars2) {
+ print '
', EscapeHTML($c1);
+ for my $c2 (map {@$_} @$colchars) {
my $mnem = $c1 . $c2;
- if (not defined $di->{$mnem}) {
+ if (not defined $di->{key}->{$mnem}) {
print '
';
next;
}
- if (ref $di->{$mnem} ne 'ARRAY') {
- printf '
', quote($mnem);
+ if (ref $di->{key}->{$mnem} ne 'ARRAY') {
+ printf '