X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/5b650c213c6d17e56a58af1297f423846784cb64..7d90d00434f3568aa4bae2c8a7585668018c298d:/dieren.plp

diff --git a/dieren.plp b/dieren.plp
index 67525c4..320222f 100644
--- a/dieren.plp
+++ b/dieren.plp
@@ -9,6 +9,29 @@ Html({
 		relatie vernoemd vernoeming combinatie samenstelling onverwant
 		land zee lucht  animals dutch language
 	'],
+	raw => <<'EOT',
+<style>
+table {
+	width: 100%;
+}
+tr:first-child th {
+	word-break: break-all;
+}
+img {
+	vertical-align: bottom;
+	width: 100%;
+}
+img[hidden] {
+	transition: opacity 1s 0s;
+	display: inline;
+	opacity: 0;
+}
+img[hidden]:hover {
+	opacity: 1;
+	transition-delay: 2s;
+}
+</style>
+EOT
 });
 
 :>
@@ -21,7 +44,8 @@ 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
+	>muis:     muis       zeemuis      watermuis?   aardmuis     vleermuis
+	>rat:      rat        zeerat       waterrat     woestijnrat  buidelrat
 	>egel:     egel       zee-egel     wateregel?   aardegel?    mierenegel
 	>varken:   varken     zeevarken    waterzwijn   aardvarken   stekelvarken
 	>koe:      koe        zeekoe       meerkoetje   aardkoe?     haiku?
@@ -31,6 +55,16 @@ my @table = qw(
 	>wolf:     wolf       zeewolf      waterwolf?   aardwolf     buidelwolf
 	>haan:     haan       zeehaan      waterhaan    rotshaan     sprinkhaan
 );
+push @table, qw(
+	>hoorn:    eenhoorn   zee-eenhoorn waterhoorn?  aardhoorn? neushoorn eekhoorn
+	>haas:     haas       zeehaas      ?            ?           ?
+	>olifant:  olifant    zeeolifant   waterolifant? landolifant? ?
+	>vlo:      vlo        strandvlo    watervlo     aardvlo     ?
+	>bra:      bh?        zebra        waterbra?    aardbra?   cobra
+	>draak:    draak      zeedraak     waterdraak?  aarddraak? ?
+) if exists $get{v};
+splice @table, 6 * 10, 0, 'neusbeer' if exists $get{v};
+splice @table, 6 *  5, 0, 'beverrat' if exists $get{v};
 
 say '<table>';
 for my $name (@table) {
@@ -46,11 +80,16 @@ for my $name (@table) {
 		next;
 	}
 	print qq{<td title="$name">};
+	my $hidden = $name =~ s/\?$//;
 	if (-e (my $img = "data/dieren/$name.jpg")) {
 		printf '<img src="/%s"', $img;
-		printf ' alt="%s"', $name;
+		printf ' alt="%s"', -l $img ? readlink($img) =~ s/\.jpg$//r : $name;
+		print ' hidden' if $hidden;
 		print ' />';
 	}
+	elsif (!$hidden) {
+		print $name;
+	}
 	print '</td>';
 }
 say '</tr></table>';