X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/49f25a80a01717e058638d70f0888031a81f67cf..fb71762b9382b5dff5c032bdc81a1d9c5cdfe9ee:/dieren.plp

diff --git a/dieren.plp b/dieren.plp
index 42ca5ec..5370377 100644
--- a/dieren.plp
+++ b/dieren.plp
@@ -41,22 +41,50 @@ EOT
 
 <:
 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
-	>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
-	>leeuw:    leeuw      zeeleeuw     waterleeuw?  aardleeuw?   mierenleeuw
-	>wolf:     wolf       zeewolf      waterwolf?   aardwolf     buidelwolf
-	>haan:     haan       zeehaan      waterhaan    rotshaan     sprinkhaan
+	>:         origineel: zee-:        meer_water:    aardig:      anders:      #:
+	>hond:     hond       zeehond      waterhond?     aardhond?    vleerhond    #rodehond
+	>kat:      kat        zeekat       meerkat        caterpillar? tijgerkat    #
+	#>haas:    haas       zeehaas      waterhaas      aardhaas?    ossenhaas?   #
+	>muis:     muis       zeemuis      waterspitsmuis 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?     koedoe       #haiku?
+	>paard:    paard      zeepaardje   nijlpaard      aardpaard?   luipaard     #
+	#>hoorn:   eenhoorn   zeehoorn     zee-eenhoorn?  aardhoorn?   neushoorn    #eekhoorn
+	#>bra:     brassiere? 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   #
+	#>pad:     pad        zeepad?      waterpad?      landpad      schildpad    #
+	#>draak:   draak      zeedraak     waterdraak     aarddraak?   komododraak  #
+	#>vlo:     vlo        strandvlo    watervlo       aardvlo      #            #
+	#>mot:     mot        zeemot?      watermot       aardmot?     marmot       #
+	#>bij:     bij        zeebij?      waterbij       aardbij      #            #
 );
 
+if (exists $get{r}) {
+	use List::MoreUtils qw( part );
+	my @trans = (part { state $col; /^#?>/ ? ($col = 0) : ++$col } @table);
+	@table = ();
+	for (@trans) {
+		unshift @$_, '?:' if $_->[0] !~ /:$/;
+		$_->[0] =~ s/^#?\K>?/>>/;
+		for (@$_) {
+			push @table, s/^#?\K>/$1/r;
+		}
+	}
+}
+
 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;
@@ -68,9 +96,9 @@ for my $name (@table) {
 		print "<th>$name</th>";
 		next;
 	}
-	print qq{<td title="$name">};
+	printf '<td title="%s">', $name // '?';
 	my $hidden = $name =~ s/\?$//;
-	if (-e (my $img = "data/dieren/$name.jpg")) {
+	if ($name and -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;