chars: font coverage from hashed data entry
[sheet.git] / dieren.plp
index 390643bb9e3abac133a2bc7efb5e493e891df20c..f7935fee7562cc61ab4bb820138c1cd62421c73d 100644 (file)
@@ -32,6 +32,9 @@ $Request ||= 'standaard';
 my $pageinfo = $subpages{$Request}
        or Html(), Abort("Onbekende dierenpagina <q>$Request</q>", '404 request not found');
 
+my $proto = sprintf('http%s://', !!$ENV{HTTPS} && 's');
+my $preview = "$proto$ENV{HTTP_HOST}/dieren.jpg";
+
 Html({
        title => $pageinfo->{title}.' cheat sheet',
        version => '1.1',
@@ -42,7 +45,8 @@ Html({
                relatie vernoemd vernoeming combinatie samenstelling voorvoegsel onverwant
                land zee lucht  animals dutch language
        '],
-       raw => <<'EOT',
+       raw => <<"EOT",
+<meta property="og:image" content="$preview" />
 <style>
 figure[hidden] {
        opacity: 0; /* secret */
@@ -57,7 +61,7 @@ figure[hidden]:hover > figcaption {
        transition-delay: 2s;
 }
 
-@media (max-width: 60em) {
+\@media (max-width: 60em) {
        td, th {
                font-size: 50%;
        }
@@ -83,7 +87,7 @@ say $pageinfo->{altlink};
 </p>
 
 <:
-my $table = readdata('dieren');
+my $table = Data('dieren');
 
 if (exists $get{r}) {
        use List::MoreUtils qw( part );