$modenot available", + '404 request not found', +); - -
$_
" for $di->{intro} // (); -<: -my $di = do 'digraphs.inc.pl'; - -sub quote { - local $_ = shift; - s/"/"/g; - s//>/g; - return $_; +if (exists $get{v}) { + # show characters for inverted mnemonics (vim alternatives) + $di->{key}->{ substr($_, 1, 1) . substr($_, 0, 1) } ||= [ + $di->{key}->{$_}->[0], '', 'l0 ex', '', $di->{key}->{$_}->[4] + ] for grep { ref $di->{key}->{$_} } keys %{ $di->{key} }; } -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) +my @columns = !exists $get{split} ? \@chars2 : + ([@chars2[0, 1, 3, 4, 6]], [@chars2[2, 5, 7]]); + +if ($mode eq 'xorg') { + #TODO determine character usage from declared keys + $chars2[0] = [qw( # ^ _ ` ~ )]; + @chars = @chars2; +} -print '| "; - print " | $_" for @chars2; + print "<$section> | |||||
|---|---|---|---|---|---|---|
| â³"; + print ' | ', EscapeHTML($_) for map {@$_} @{$colchars}; + say ' | '; } -print ' | ||||
| $c1"; - for my $c2 (@chars2) { - my $mnem = $c1 . $c2; - if (not defined $di->{$mnem}) { - print ' | '; - next; - } - my ($codepoint, $name, $prop, $script) = @{ $di->{$mnem} }; +for my $c1group (@chars) { + print ' | |||||
| ', EscapeHTML($c1); + for my $c2 (map {@$_} @$colchars) { + my $mnem = $c1 . $c2; + if (not defined $di->{key}->{$mnem}) { + print ' | '; + next; + } + if (ref $di->{key}->{$mnem} ne 'ARRAY') { + printf ' | ', EscapeHTML($mnem); + next; + } + my ($codepoint, $name, $support, $script, $string) = + @{ $di->{key}->{$mnem} }; - my $glyph = chr $codepoint; - utf8::upgrade($glyph); # prevent latin1 output - my $desc = $mnem . ($name && " ($name)"); - my @class = ('X', grep {$_} $prop, $script); + my $glyph = $string || !!$codepoint && chr $codepoint; + utf8::upgrade($glyph); # prevent latin1 output + my $desc = $mnem . ($name && " ($name)"); + my @class = ('X', grep {$_} $script); + push @class, $cmp ? $support : + $di->{flagclass}->{$support} // "u-$support" if $support; - $glyph = quote($glyph); - $glyph = "$glyph" if $prop eq 'Zs'; + $glyph = EscapeHTML($glyph); + $glyph = "$glyph" if $script =~ /\bZs\b/; - printf "\n".' | %s', - join(' ', @class), quote($desc), $glyph; + printf "\n".' | %s', + join(' ', @class), EscapeHTML($desc), $glyph; + } + say "\n | ", EscapeHTML($c1); } - print "\n | $c1\n"; } -print " |
| control - | spacing - | modifier - | spacing modifier + | space + | combining + | spacing modifier | quote | punctuation | symbol @@ -84,17 +117,15 @@ print " |
| unicode - | latin1 - | ascii - | private - | proposed
+<: } :>
+
|