<(common.inc.plp)><: my $mode = $Request || 'vim'; my $include = 'digraphs' . ($mode ne 'vim' && "-$mode"); my $cmp = exists $get{cmp} ? ($get{cmp} // 1) : !!$Request; my $di = eval { Data($include) } || {}; warn "error in $include: ", @{$@} if ref $@; Html({ title => "$mode digraph cheat sheet", version => '1.4', description => $di->{description} // [ "Complete table of digraph characters from", ($di->{title} // $mode) . ".", ], keywords => [@{ $di->{keywords} // [] }, qw' digraph mnemonic compose composition pair character char glyph table unicode vim '], stylesheet => [qw'light'], data => ["data/$include.json"], }); %{$di} or Abort( "Requested digraphs $mode not available", '404 request not found', ); say "

$di->{title} Digraphs

"; say "

" for $di->{intro} // (); 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 = ( [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; } for my $colchars (@columns) { print ''; print qq'' for map {scalar @$_} @{$colchars}; say ''; for my $section (qw{thead tfoot}) { print "<$section>'; for my $c1 (@$c1group) { print '

↳"; print '	', EscapeHTML($_) for map {@$_} @{$colchars}; say '	'; } 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 = $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 = EscapeHTML($glyph); $glyph = "$glyph" if $script =~ /\bZs\b/; printf "\n".'	%s', join(' ', @class), EscapeHTML($desc), $glyph; } say "\n	", EscapeHTML($c1); } } say '

'; print '

' if exists $get{split}; } :>

<: unless ($cmp) { :>

control

space

combining

spacing modifier

quote

punctuation

symbol

math

currency

numeric

greek

cyrillic

latin

hebrew

arabic

korean

japanese

chinese

<: } :> <: printf qq(\n\t

%s), $cmp ? $_ : $di->{flagclass}{$_} // "u-$_", $di->{flag}->{$_} for sort keys %{ $di->{flag} }; :>