X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/9afb22425e28f6f3e9a53f06e19ad4279562d810..e50cae0ec4af55472c2cf91951e13bed049eea94:/digraphs.plp diff --git a/digraphs.plp b/digraphs.plp index ce14962..b40eac0 100644 --- a/digraphs.plp +++ b/digraphs.plp @@ -23,7 +23,8 @@ Also see common digraphs.
are available as ex commands. <: -my $di = do 'digraphs.inc.pl'; +my $di = do 'digraphs.inc.pl' + or die "Error loading digraphs data: ", $@ // $!; my @chars = ( [qw{! " % ' ( ) * + , - . /}], @@ -35,6 +36,18 @@ my @chars2 = (['_'], @chars); # trailing character (extended set) my @columns = !exists $get{split} ? \@chars2 : ([@chars2[0, 1, 3, 4, 6]], [@chars2[2, 5, 7]]); +if (exists $get{xorg}) { + my $xorg = do 'data/digraphs-xorg.inc.pl' + or die "Error loading Xorg data: ", $@ // $!; + $_ = [ord $_] for values %{$xorg}; + $xorg->{$_}->[2] = # class = same as rfc | any other spec | xorg only + $di->{$_} ? $di->{$_}->[2] =~ /\bu-di\b/ ? 'l5' : 'l3' : 'l1' + for keys %{$xorg}; + $chars2[0] = [qw( # ^ _ ` ~ )]; + @chars = @chars2; + $di = $xorg; +} + for my $colchars (@columns) { print '%s', join(' ', @class), EscapeHTML($desc), $glyph; |