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.

diff --git a/base.css b/base.css
index 6476c812ff974e5b8e2387ec12622e45f0f13bf7..3dc2fac4254818448c17d84582eb19f1d6146e77 100644 (file)
--- 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 (file)
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>';