From 5b650c213c6d17e56a58af1297f423846784cb64 Mon Sep 17 00:00:00 2001
From: Mischa POSLAWSKY <perl@shiar.org>
Date: Sun, 17 Nov 2019 17:14:22 +0100
Subject: [PATCH] dieren: research similar dutch animal nouns

No comprehensive lists to be found online, so made a table of popular
animals and prefixes, and searched for pictures in similar poses.
---
 base.css   |  3 +++
 dieren.plp | 56 ++++++++++++++++++++++++++++++++++++++++++++++++++++++
 2 files changed, 59 insertions(+)
 create mode 100644 dieren.plp

diff --git a/base.css b/base.css
index 6476c81..3dc2fac 100644
--- a/base.css
+++ b/base.css
@@ -116,9 +116,12 @@ body > pre {
 	white-space: pre;
 }
 
+h1 small,
 h2 small {
 	position: absolute; /* side note; do not influence alignment */
 	margin-left: 1em;
+	font-size: 80%;
+	line-height: 175%;
 }
 
 dl > dt {
diff --git a/dieren.plp b/dieren.plp
new file mode 100644
index 0000000..67525c4
--- /dev/null
+++ b/dieren.plp
@@ -0,0 +1,56 @@
+<(common.inc.plp)><:
+
+Html({
+	title => 'dieren cheat sheet',
+	version => '1.0',
+	description => [],
+	keywords => [qw'
+		dier beest naam naamgeving woord taal nederlands gerelateerd
+		relatie vernoemd vernoeming combinatie samenstelling onverwant
+		land zee lucht  animals dutch language
+	'],
+});
+
+:>
+<h1>Dierennamen <small>(Dutch animal names)</small></h1>
+
+<p>Dieren die in het Nederlands vernoemd zijn naar andere dieren.</p>
+
+<:
+my @table = qw(
+	>:         origineel: zee-:        meer_water:  aardig:      anders:
+	>hond:     hond       zeehond      waterhond?   aardhond?    vleerhond
+	>kat:      kat        zeekat       meerkat      caterpillar? tijgerkat
+	>muis:     muis       zeemuis      waterrat?    aardmuis     vleermuis
+	>egel:     egel       zee-egel     wateregel?   aardegel?    mierenegel
+	>varken:   varken     zeevarken    waterzwijn   aardvarken   stekelvarken
+	>koe:      koe        zeekoe       meerkoetje   aardkoe?     haiku?
+	>paard:    paard      zeepaardje   nijlpaard    aardpaard?   luipaard
+	>beer:     beer       zeebeer      waterbeertje ijsbeer      wasbeer
+	>leeuw:    leeuw      zeeleeuw     waterleeuw?  aardleeuw?   mierenleeuw
+	>wolf:     wolf       zeewolf      waterwolf?   aardwolf     buidelwolf
+	>haan:     haan       zeehaan      waterhaan    rotshaan     sprinkhaan
+);
+
+say '<table>';
+for my $name (@table) {
+	if ($name =~ s/^>//) {
+		# leading dash starts a new row
+		say '</tr>' if $name;
+		print "<tr>";
+	}
+	if ($name =~ s/:$//) {
+		# trailing colon indicates header text
+		$name =~ y/_/ /;
+		print "<th>$name</th>";
+		next;
+	}
+	print qq{<td title="$name">};
+	if (-e (my $img = "data/dieren/$name.jpg")) {
+		printf '<img src="/%s"', $img;
+		printf ' alt="%s"', $name;
+		print ' />';
+	}
+	print '</td>';
+}
+say '</tr></table>';
-- 
2.30.0