dieren.plp

   1 <(common.inc.plp)><:
   2
   3 Html({
   4         title => 'dieren cheat sheet',
   5         version => '1.0',
   6         description => [],
   7         keywords => [qw'
   8                 dier beest naam naamgeving woord taal nederlands gerelateerd
   9                 relatie vernoemd vernoeming combinatie samenstelling onverwant
  10                 land zee lucht  animals dutch language
  11         '],
  12         raw => <<'EOT',
  13 <style>
  14 table {
  15         width: 100%;
  16 }
  17 tr:first-child th {
  18         word-break: break-all;
  19 }
  20 img {
  21         vertical-align: bottom;
  22         width: 100%;
  23 }
  24 img[hidden] {
  25         transition: opacity 1s 0s;
  26         display: inline;
  27         opacity: 0;
  28 }
  29 img[hidden]:hover {
  30         opacity: 1;
  31         transition-delay: 2s;
  32 }
  33 </style>
  34 EOT
  35 });
  36
  37 :>
  38 <h1>Dierennamen <small>(Dutch animal names)</small></h1>
  39
  40 <p>Dieren die in het Nederlands vernoemd zijn naar andere dieren.</p>
  41
  42 <:
  43 my @table = qw(
  44         >:         origineel: zee-:        meer_water:  aardig:      anders:
  45         >hond:     hond       zeehond      waterhond?   aardhond?    vleerhond
  46         >kat:      kat        zeekat       meerkat      caterpillar? tijgerkat
  47         >muis:     muis       zeemuis      watermuis?   aardmuis     vleermuis
  48         >rat:      rat        zeerat       waterrat     woestijnrat  buidelrat
  49         >egel:     egel       zee-egel     wateregel?   aardegel?    mierenegel
  50         >varken:   varken     zeevarken    waterzwijn   aardvarken   stekelvarken
  51         >koe:      koe        zeekoe       meerkoetje   aardkoe?     haiku?
  52         >paard:    paard      zeepaardje   nijlpaard    aardpaard?   luipaard
  53         >beer:     beer       zeebeer      waterbeertje ijsbeer      wasbeer
  54         >leeuw:    leeuw      zeeleeuw     waterleeuw?  aardleeuw?   mierenleeuw
  55         >wolf:     wolf       zeewolf      waterwolf?   aardwolf     buidelwolf
  56         >haan:     haan       zeehaan      waterhaan    rotshaan     sprinkhaan
  57 );
  58 push @table, qw(
  59         >hoorn:    eenhoorn   zee-eenhoorn waterhoorn?  aardhoorn? neushoorn eekhoorn
  60         >haas:     haas       zeehaas      ?            ?           ?
  61         >olifant:  olifant    zeeolifant   waterolifant? landolifant? ?
  62         >vlo:      vlo        strandvlo    watervlo     aardvlo     ?
  63         >bra:      bh?        zebra        waterbra?    aardbra?   cobra
  64         >draak:    draak      zeedraak     waterdraak?  aarddraak? ?
  65 ) if exists $get{v};
  66 splice @table, 6 * 10, 0, 'neusbeer' if exists $get{v};
  67 splice @table, 6 *  5, 0, 'beverrat' if exists $get{v};
  68
  69 say '<table>';
  70 for my $name (@table) {
  71         if ($name =~ s/^>//) {
  72                 # leading dash starts a new row
  73                 say '</tr>' if $name;
  74                 print "<tr>";
  75         }
  76         if ($name =~ s/:$//) {
  77                 # trailing colon indicates header text
  78                 $name =~ y/_/ /;
  79                 print "<th>$name</th>";
  80                 next;
  81         }
  82         print qq{<td title="$name">};
  83         my $hidden = $name =~ s/\?$//;
  84         if (-e (my $img = "data/dieren/$name.jpg")) {
  85                 printf '<img src="/%s"', $img;
  86                 printf ' alt="%s"', -l $img ? readlink($img) =~ s/\.jpg$//r : $name;
  87                 print ' hidden' if $hidden;
  88                 print ' />';
  89         }
  90         elsif (!$hidden) {
  91                 print $name;
  92         }
  93         print '</td>';
  94 }
  95 say '</tr></table>';