From 8da117a41c1c761b470b933ebb96da7134ac6195 Mon Sep 17 00:00:00 2001
From: Mischa POSLAWSKY <perl@shiar.org>
Date: Tue, 19 Oct 2021 00:03:19 +0200
Subject: [PATCH] dieren: aliases in name definitions (instead of image
 symlinks)

Move metadata from untracked file names.
---
 dieren.plp | 31 ++++++++++++++-----------------
 1 file changed, 14 insertions(+), 17 deletions(-)

diff --git a/dieren.plp b/dieren.plp
index 50410e2..50f9981 100644
--- a/dieren.plp
+++ b/dieren.plp
@@ -97,20 +97,23 @@ my @table = qw(
 	#>haas:    haas       zeehaas      waterhaas      koolhaas?    ossenhaas?   #buidelhaas
 	 >muis:    muis       zeemuis      waterspitsmuis aardmuis     vleermuis    #computermuis
 	 >rat:     rat        zeerat       waterrat       woestijnrat  buidelrat    #beverrat
-	 >egel:    egel       zee-egel     wateregel?     aardegel??   mierenegel   #
-	 >varken:  varken     zeevarken    waterzwijn     aardvarken   stekelvarken #
+	 >egel:    egel       zee-egel     wateregel? aardegel??=cactus mierenegel  #kegel?
+	 >varken:  varken     zeevarken=bruinvis
+	                        waterzwijn=capibara       aardvarken   stekelvarken #feestvarken?
 	 >koe:     koe        zeekoe       meerkoetje     aardekoe??   koedoe       #haiku?
 	 >paard:   paard      zeepaardje   nijlpaard      aardpaard??  luipaard     #tijgerpaard
-	#>hoorn:   eenhoorn   zeehoorn     zee-eenhoorn?  bergahorn    neushoorn    #eekhoorn
+	#>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??  mierenleeuw  #
-	 >wolf:    wolf       zeewolf      waterwolf??    aardwolf     korenwolf    #buidelwolf
-	 >haan:    haan       zeehaan      waterhaan      rotshaan     sprinkhaan   #wilde_haan??
+	 >leeuw:   leeuw      zeeleeuw     waterleeuw??   aardleeuw??=kameleon
+	                                                               mierenleeuw  #
+	 >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     -            komododraak  #
-	#>vlo:     vlo        zeevlo       watervlo       aardvlo      -            #vlok?
+	#>draak:   draak      zeedraak     waterdraak=agame          - komododraak=varaan #
+	#>vlo:     vlo        zeevlo       watervlo       aardvlo      vlok?        #
 	#>mot:     mot        marmot       watermot       bergamot     -            #
 	#>bij:     bij        -            waterbij       aardbei      moerbei      hommelbij
 );
@@ -166,21 +169,15 @@ while (my $name = shift @table) {
 		next;
 	}
 	print '<td>';
+	my $alt = $1 if $name =~ s/=(.*)//;
 	my $hidden = $name =~ s/\?$//;
-	my $alt = $name;
 	$name = "<q>$name</q>" if $name =~ s/\?$//;
+	$name .= " <small>($alt)</small>" if $alt;
 
 	printf '<figure%s>', $hidden && !$pageinfo->{secrets} && ' hidden';
 	if ($img and -e ($img = "data/dieren/$img.jpg")) {
-		my $alt = -l $img && readlink($img) =~ s/\.jpg$//r;
-		if ($alt) {
-			$name .= " <small>($alt)</small>";
-		}
-		else {
-			$alt = $name;
-		}
 		printf '<img src="/%s"', $img;
-		printf ' alt="%s"', $alt;
+		printf ' alt="%s"', $alt || $name;
 		print ' />';
 		print "<figcaption>$name</figcaption>";
 	}
-- 
2.30.0