keyboard/altgr/msx: approximate glyphs from display font

[sheet.git] / keyboard.plp

diff --git a/keyboard.plp b/keyboard.plp
index 62e150a7dd726b75c4d1d9ba0f4898a837b149ef..a2c2f2e95e3afcbd51abc87c96425e5a7ecf46d4 100644 (file)
--- a/keyboard.plp
+++ b/keyboard.plp
@@ -26,6 +26,7 @@ if ($Request =~ /^altgr/ and open my $cssinc, '<', 'keyboard/altgr.css') {
 Html({
        title => "\L$mode\E keyboard cheat sheet",
        version => $info->{version} || '0.1',
+       canonical => -e "$Request.plp" ? "/$Request" : undef, # historic shorthand
        description => $info->{description} //
                ["Keyboard cheat sheet for the default controls of $mode."],
        keywords => [@{ $info->{keywords} // [] }, qw'
@@ -42,7 +43,7 @@ Html({
        '404 request not found',
 );
 
-say "<h1>$mode cheat sheet</h1>";
+say "<h1>$mode keyboard</h1>";
 say "<p>$_</p>" for $info->{intro} // ();
 say "<h2>", $info->{mode}->{''}, " (default)</h2>"
        if $info->{mode} and %{ $info->{mode} } > 1;