digraphs: page metadata in subpage includes

[sheet.git] / tools / mkdigraphs-xorg

diff --git a/tools/mkdigraphs-xorg b/tools/mkdigraphs-xorg
index 8df64cdaa41cffe664bca2982dee251894dc011a..edef62de6ef24110d4aeca26733abf5c68335702 100755 (executable)
--- a/tools/mkdigraphs-xorg
+++ b/tools/mkdigraphs-xorg
@@ -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",