digraphs: translate vim support levels to appropriate fg classes

[sheet.git] / tools / mkdigraphs-xorg

diff --git a/tools/mkdigraphs-xorg b/tools/mkdigraphs-xorg
index 8df64cdaa41cffe664bca2982dee251894dc011a..67c60a6f4fd7e4b92b1b658702ff71dd8e5ff2cb 100755 (executable)
--- a/tools/mkdigraphs-xorg
+++ b/tools/mkdigraphs-xorg
@@ -39,7 +39,7 @@ while ($_ = readline) {
        my $comparison = (
                !$vidi->{key}->{$mnem} ? 'l3' :  # free
                $vidi->{key}->{$mnem}->[0] != $cp ? 'l1' :  # conflict
-               $vidi->{key}->{$mnem}->[2] eq 'l4' ? 'l5' :  # rfc
+               $vidi->{key}->{$mnem}->[2] eq 'l5' ? 'l5' :  # rfc
                'l4'  # any
        );
        $table{$mnem} = [
@@ -52,7 +52,15 @@ while ($_ = readline) {
 }
 
 print JSON->new->canonical->indent->encode({
+       title => 'X.Org',
        key   => \%table,
+       intro => join("\n",
+               'Character mnemonics following compose key ⎄:',
+               'in the X Window System (Shift+AltGr by default).',
+               'Differences from <a href="/digraphs">RFC-1345</a> are indicated.',
+               'Also see <a href="/unicode">common Unicode</a>.',
+       ),
+       keywords => [qw( xorg x11 x )],
        flag  => {
                'l5' => "matching RFC-1345",
                'l4' => "matching proposal",