keyboard: categorise keys by result similarity

[sheet.git] / digraphs.plp

diff --git a/digraphs.plp b/digraphs.plp
index 950c1b252ea8416a4f8aa1b4b15209e13a7f913e..24eb8f5cee88a05c7cff1c8bb7e695eab1b8c63c 100644 (file)
--- a/digraphs.plp
+++ b/digraphs.plp
@@ -1,6 +1,6 @@
 <(common.inc.plp)><:
 
-my $mode = ($ENV{PATH_INFO} // '') eq '/xorg' || exists $get{xorg};
+my $mode = ($Request // '') eq 'xorg' || exists $get{xorg};
 my $modename = $mode ? 'X.Org' : 'RFC-1345';
 
 Html({
@@ -14,7 +14,7 @@ Html({
                character char glyph table unicode vim xorg x11 x
        '],
        stylesheet => [qw'light'],
-       data => [qw( digraphs.inc.pl )],
+       data => [qw( data/digraphs.inc.pl )],
 });
 
 :>
@@ -38,7 +38,7 @@ say '<p class="aside">Unofficial <span class="u-l2">proposals</span>',
 :>
 
 <:
-my $di = do 'digraphs.inc.pl'
+my $di = do 'data/digraphs.inc.pl'
        or die "Error loading digraphs data: ", $@ // $!;
 
 if (exists $get{v}) {