From: Mischa POSLAWSKY <perl@shiar.org>
Date: Mon, 6 Jun 2022 16:54:06 +0000 (+0200)
Subject: dieren: primarily dutch page language
X-Git-Tag: v1.14~75
X-Git-Url: http://git.shiar.net/sheet.git/commitdiff_plain/b5b60a0ee0f90c2895e1e4e27926840ea29c2be7

dieren: primarily dutch page language
---

diff --git a/common.inc.plp b/common.inc.plp
index 898e8bb..6ea1197 100644
--- a/common.inc.plp
+++ b/common.inc.plp
@@ -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">', $_
diff --git a/dieren.plp b/dieren.plp
index 4d0ee93..390643b 100644
--- a/dieren.plp
+++ b/dieren.plp
@@ -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>
 <:
