keyboard/altgr/index: move ctrl rows to distinct inventory mode

[sheet.git] / tools / mkdigraphlist

diff --git a/tools/mkdigraphlist b/tools/mkdigraphlist
index 535698712117af07f6f162873bbf12eecc7af747..4cddd4174231876de10f06c95ce5bfc7bd3fba50 100755 (executable)
--- a/tools/mkdigraphlist
+++ b/tools/mkdigraphlist
@@ -34,16 +34,42 @@ $table{$_} = 0 for (
 $table{$_} = [
        ord $di->{$_},   # original code point
        $uninfo->{ $di->{$_} }->[1] // '',  # name
 $table{$_} = [
        ord $di->{$_},   # original code point
        $uninfo->{ $di->{$_} }->[1] // '',  # name

-       join(' ',
+       (

                $rfc->{$_}
                $rfc->{$_}

-                       ? $vim->{$_} ? 'l4' : 'l1'  # vim+rfc or rfc only
+                       ? $vim->{$_} ? 'l5' : 'l1'  # vim+rfc or rfc only
+                       : $vimold && $vimold->{$_} ? 'l4'  # compat vim if known

                        : $vim->{$_} ? 'l3' : 'l2', # vim only or neither
                        : $vim->{$_} ? 'l3' : 'l2', # vim only or neither

-               $vimold && $vim->{$_} && !$vimold->{$_} ? 'ex' : (), # new vim feature

        ),
        ),

-       ($uninfo->{ $di->{$_} }->[0] // '') =~ s/ u-di| u-prop| ex//gr,  # class
+       ($uninfo->{ $di->{$_} }->[0] // '') =~ s/ u-di| u-prop//gr,  # class

        $uninfo->{ $di->{$_} }->[4] // (),  # string
 ] for sort keys %{$di};
        $uninfo->{ $di->{$_} }->[4] // (),  # string
 ] for sort keys %{$di};

-print JSON->new->ascii->canonical->encode(\%table);
+
+print JSON->new->ascii->canonical->encode({
+       title => 'RFC-1345',
+       key  => \%table,
+       intro => join("\n",
+               'Character mnemonics following compose key ⎄:',
+               'i^k in <a href="/vi">Vim</a>,',
+               '^u^\ in <a href="/readline">Emacs</a>,',
+               '^a^v in <a href="/screen">Screen</a>.',
+               'Similar but different from <a href="/digraphs/xorg">X.Org</a>.',
+               'Also see <a href="/keyboard/altgr">monograph maps</a>',
+               'for more specific combinations with AltGr.</p>',
+               '<p class="aside">Unofficial <span class="u-l2">proposals</span>',
+               'are available as <a href="/digraphs.vim">ex commands</a>.',
+       ),
+       flag => {
+               l5 => 'full support',
+               l4 => 'vim extension',
+               l3 => 'vim v8.0',
+               l2 => 'proposal',
+               l1 => 'not in vim',
+       },
+       flagclass => {
+               l5 => '', # common
+               l3 => 'u-l5', # rare
+       },
+});

 
 __END__
 
 
 __END__
 


@@ -53,14 +79,14 @@ mkdigraphlist - Output character list of combined digraph data
 
 =head1 SYNOPSIS
 
 
 =head1 SYNOPSIS
 

-    mkdigraphlist | jq -r '."DO"[0]' | perl -nE 'say chr' # $
+    mkdigraphlist | jq -r '.key."DO"[0]' | perl -nE 'say chr' # $

 
 =head1 DESCRIPTION
 
 Combines precompiled digraph includes of rfc (1345), vim, and shiar
 and outputs a complete map including character details and usage classes.
 
 
 =head1 DESCRIPTION
 
 Combines precompiled digraph includes of rfc (1345), vim, and shiar
 and outputs a complete map including character details and usage classes.
 

-The value can either be a scalar string containing another
+The C<key> values can either be a scalar string containing another

 digraph which can be considered identical (usually inverted),
 or an array ref containing at least the resulting character's
 Unicode code point value.  If available, the following UCD data
 digraph which can be considered identical (usually inverted),
 or an array ref containing at least the resulting character's
 Unicode code point value.  If available, the following UCD data


@@ -69,8 +95,10 @@ and replacement output string.
 For example:
 
   {
 For example:
 
   {

-   "AE" => [198, "LATIN CAPITAL LETTER AE", "u-di", "Latin Lu Xl u-v11"],
-   "EA" => "AE",
+   "key": {
+    "AE" => [198, "LATIN CAPITAL LETTER AE", "u-di", "Latin Lu Xl u-v11"],
+    "EA" => "AE",
+   }

   }
 
 =head1 AUTHOR
   }
 
 =head1 AUTHOR