X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/e06a2e0f127e3d06571d6afd8e7a0ae95a9d24ef..581e110835997aac4917c7112fdc7dad1ed99080:/dieren.plp

diff --git a/dieren.plp b/dieren.plp
index cb20391..2017eac 100644
--- a/dieren.plp
+++ b/dieren.plp
@@ -21,6 +21,15 @@ 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
 });
@@ -35,19 +44,31 @@ 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
+	#>haas:    haas       zeehaas      ?            ?            ?
+	>muis:     muis       zeemuis      watermuis?   aardmuis     vleermuis
+	>rat:      rat        zeerat       waterrat     woestijnrat  buidelrat #beverrat
 	>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
+	#>hoorn:   eenhoorn   zee-eenhoorn waterhoorn?  aardhoorn?   neushoorn eekhoorn
+	#>bra:     bh?        zebra        waterbra?    aardbra?     cobra
+	#>olifant: olifant    zeeolifant  waterolifant? landolifant? ?
+	>beer:     beer       zeebeer      waterbeertje ijsbeer      wasbeer   #neusbeer
 	>leeuw:    leeuw      zeeleeuw     waterleeuw?  aardleeuw?   mierenleeuw
 	>wolf:     wolf       zeewolf      waterwolf?   aardwolf     buidelwolf
 	>haan:     haan       zeehaan      waterhaan    rotshaan     sprinkhaan
+	#>vlo:     vlo        strandvlo    watervlo     aardvlo      ?
+	#>draak:   draak      zeedraak     waterdraak?  aarddraak?   ?
 );
 
 say '<table>';
-for my $name (@table) {
+while (my $name = shift @table) {
+	if ($name =~ s/^#// and not exists $get{v}) {
+		while ($name = shift @table) {
+			last if $name =~ m/^>/;
+		}
+	}
 	if ($name =~ s/^>//) {
 		# leading dash starts a new row
 		say '</tr>' if $name;
@@ -60,11 +81,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"', -l $img ? readlink($img) =~ s/\.jpg$//r : $name;
+		print ' hidden' if $hidden;
 		print ' />';
 	}
+	elsif (!$hidden) {
+		print $name;
+	}
 	print '</td>';
 }
 say '</tr></table>';