common: ignore unrelated errors after loading data

[sheet.git] / keyboard.plp

diff --git a/keyboard.plp b/keyboard.plp
index 59e8ad5d1e4909212a90b49b8495b86d1de95e0c..a2c2f2e95e3afcbd51abc87c96425e5a7ecf46d4 100644 (file)
--- a/keyboard.plp
+++ b/keyboard.plp
@@ -26,11 +26,13 @@ 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'
                sheet cheat reference overview keyboard control commands shortkey
        '],
+       image => $info->{image},
        stylesheet => [qw( light dark circus mono red )],
        data => ["$include.inc.pl"],
        raw => \@keystyle,
@@ -41,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;