X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/8da117a41c1c761b470b933ebb96da7134ac6195..637b7a6936d2937561bdbcd44595384fc5cc14f3:/dieren.plp

diff --git a/dieren.plp b/dieren.plp
index 50f9981..4332d56 100644
--- a/dieren.plp
+++ b/dieren.plp
@@ -39,30 +39,21 @@ Html({
 	'],
 	raw => <<'EOT',
 <style>
-table {
-	width: 100%;
-}
-th {
-	width: 1%; /* min-content */
-}
-td {
-	width: 15%; /* 1fr */
-	vertical-align: top;
-}
 figure[hidden] {
+	opacity: 0; /* secret */
 	transition: opacity 1s 0s;
-	display: inline;
-	opacity: 0;
+	display: block;
 }
 figure[hidden]:hover {
 	opacity: 1;
 	transition-delay: 1s;
 }
+figure[hidden]:hover > figcaption {
+	transition-delay: 2s;
+}
 
 @media (max-width: 60em) {
-	figcaption {
-		position: static;
-		padding: 0;
+	td, th {
 		font-size: 50%;
 	}
 	figcaption small {
@@ -71,9 +62,6 @@ figure[hidden]:hover {
 	th:first-child {
 		display: none;
 	}
-	th {
-		font-size: 50%;
-	}
 }
 </style>
 EOT
@@ -92,7 +80,7 @@ say $pageinfo->{altlink};
 <:
 my @table = qw(
 	 >:        origineel: zee-:        meer_water:    land/aardig: anders:      #:
-	 >hond:    hond       zeehond      waterhond??    prairiehond  vleerhond    #rodehond
+	 >hond:    hond       zeehond      scheepshond?   prairiehond  vleerhond    #rodehond
 	 >kat:     kat        zeekat       meerkat        cat_325?    vliegende_kat #tijgerkat
 	#>haas:    haas       zeehaas      waterhaas      koolhaas?    ossenhaas?   #buidelhaas
 	 >muis:    muis       zeemuis      waterspitsmuis aardmuis     vleermuis    #computermuis
@@ -101,22 +89,27 @@ my @table = qw(
 	 >varken:  varken     zeevarken=bruinvis
 	                        waterzwijn=capibara       aardvarken   stekelvarken #feestvarken?
 	 >koe:     koe        zeekoe       meerkoetje     aardekoe??   koedoe       #haiku?
-	 >paard:   paard      zeepaardje   nijlpaard      aardpaard??  luipaard     #tijgerpaard
+	 >paard:   paard      zeepaardje   nijlpaard      (turn)paard? luipaard     #tijgerpaard
 	#>hoorn:   eenhoorn   zeehoorn     zee-eenhoorn?=narwal
 	                                             bergahorn=esdoorn neushoorn    #eekhoorn
 	#>bra:   bra(ssière)? zebra        -              -            cobra        #sabra
 	#>olifant: olifant    zeeolifant   olifantsvis    kamerolifant? -           #olifantsoor
 	 >beer:    beer       zeebeer      waterbeertje   ijsbeer      wasbeer      #neusbeer
 	 >leeuw:   leeuw      zeeleeuw     waterleeuw??   aardleeuw??=kameleon
-	                                                               mierenleeuw  #
+	                                                               mierenleeuw  #leeuwerik
 	 >wolf:    wolf       zeewolf      waterwolf??=snoek  aardwolf korenwolf    #strandwolf=bruine_hyena
 	 >haan:    haan       zeehaan      waterhaan      rotshaan     sprinkhaan   #wilde_haan??=wildrooster
 	#>pad:     pad        zebrapad?    waterpad?      landpad      schildpad    #paddenstoel
-	#>draak:   draak      zeedraak     waterdraak=agame          - komododraak=varaan #
-	#>vlo:     vlo        zeevlo       watervlo       aardvlo      vlok?        #
-	#>mot:     mot        marmot       watermot       bergamot     -            #
+	 >draak:   draak      zeedraak     waterdraak=agame aarddraak?=戊辰
+	                                                   komododraak=varaan       #drakenkop
+	#>vlo:     vlo        zeevlo       watervlo       aardvlo      -            vlok?
+	#>mot:     mot        marmot       watermot       bergamot     behemoth?    #
 	#>bij:     bij        -            waterbij       aardbei      moerbei      hommelbij
 );
+if ($Request eq 'standaard') {
+	$table[4 + 9*7] = 'grasmodderpaard?=草泥马'; # replace turnpaard
+	$table[1 + 18*7] = 'draak_'; # irl animal
+}
 
 @table = qw(
 	>hond    zeehond    prairiehond
@@ -147,7 +140,7 @@ if (exists $get{r}) {
 	}
 }
 
-say '<table>';
+say '<table class="gallery">';
 while (my $name = shift @table) {
 	if ($name =~ s/^#// and !$pageinfo->{prefix}) {
 		while ($name = shift @table) {
@@ -161,7 +154,7 @@ while (my $name = shift @table) {
 		print "<tr>";
 	}
 	$name =~ s/^-$//;
-	my ($img) = $name =~ /^([\w-]+)/;
+	my ($img) = $name =~ /([\w-]+)/;
 	$name =~ y/_/ /;
 	if ($name =~ s/:$//) {
 		# trailing colon indicates header text