dieren: primarily dutch page language
authorMischa POSLAWSKY <perl@shiar.org>
Mon, 6 Jun 2022 16:54:06 +0000 (18:54 +0200)
committerMischa POSLAWSKY <perl@shiar.org>
Mon, 11 Jul 2022 02:02:34 +0000 (04:02 +0200)
common.inc.plp
dieren.plp

index 898e8bbcd5dd24774d6a32f166f14dae0def9fee..6ea11976106b6363bd8b0d88dfca1b267cae6476 100644 (file)
@@ -133,6 +133,7 @@ sub Html {
        # default fallbacks
        $meta->{stylesheet} ||= [qw( light dark circus mono red )];
        $meta->{charset} ||= 'utf-8';
+       $meta->{lang} ||= 'en';
 
        # convert options to arrays
        ref $_ eq 'ARRAY' or $_ = [$_]
@@ -161,7 +162,7 @@ sub Html {
        PLP_START {
                # leading output
                say '<!DOCTYPE html>';
-               say '<html lang="en">';
+               say qq(<html lang="$meta->{lang}">);
                say '';
                say '<head>';
                say sprintf '<meta http-equiv="content-type" content="%s">', $_
index 4d0ee93c83a9557522d7c3e01065846d56514c30..390643bb9e3abac133a2bc7efb5e493e891df20c 100644 (file)
@@ -34,7 +34,8 @@ my $pageinfo = $subpages{$Request}
 
 Html({
        title => $pageinfo->{title}.' cheat sheet',
-       version => '1.0',
+       version => '1.1',
+       lang => 'nl',
        description => "Tabeloverzicht met afbeeldingen van $pageinfo->{intro}",
        keywords => [qw'
                dier beest naam naamgeving woord taal nederlands gerelateerd
@@ -72,7 +73,7 @@ EOT
 });
 
 :>
-<h1>Dierennamen <small>(Dutch animal names)</small></h1>
+<h1>Dierennamen <small lang=en>(Dutch animal names)</small></h1>
 
 <p>
 <: