X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/07d8e0861073c9aabaf3592d52629114e8bf00b9..f12be29851e838f63640c9cac5f3f6216fc35fd7:/dieren.plp

diff --git a/dieren.plp b/dieren.plp
index 8abcdfd..f7935fe 100644
--- a/dieren.plp
+++ b/dieren.plp
@@ -9,18 +9,22 @@ my %subpages = (
 		intro => $intro,
 		altlink => 'Zie ook <a href="/dieren/uitgebreid">verdergezochte verbanden</a>' .
 		           ' of het <a href="/dieren/beknopt">beknopte overzicht</a>.',
+		prefix => qr/^(?!#)\+?/, # no # optional +
+		colfilter => 0,
 	},
 	uitgebreid => {
 		title => 'uitgebreid dieren',
 		intro => "$intro.. en dergelijke.",
 		altlink => 'Zie het <a href="/dieren">populaire overzicht</a> voor minder.',
-		prefix => '#',
+		prefix => qr/.*?[#]|^[#+]*/, # after optional # or +
 		secrets => 1,
 	},
 	beknopt => {
 		title => 'beknopt dieren',
 		intro => "een aantal $intro",
 		altlink => 'Zie het <a href="/dieren">populaire overzicht</a> voor meer.',
+		prefix => qr/^\+/, # only +
+		colfilter => 1,
 	},
 );
 
@@ -28,16 +32,21 @@ $Request ||= 'standaard';
 my $pageinfo = $subpages{$Request}
 	or Html(), Abort("Onbekende dierenpagina <q>$Request</q>", '404 request not found');
 
+my $proto = sprintf('http%s://', !!$ENV{HTTPS} && 's');
+my $preview = "$proto$ENV{HTTP_HOST}/dieren.jpg";
+
 Html({
 	title => $pageinfo->{title}.' cheat sheet',
-	version => '1.0',
+	version => '1.1',
+	lang => 'nl',
 	description => "Tabeloverzicht met afbeeldingen van $pageinfo->{intro}",
 	keywords => [qw'
 		dier beest naam naamgeving woord taal nederlands gerelateerd
 		relatie vernoemd vernoeming combinatie samenstelling voorvoegsel onverwant
 		land zee lucht  animals dutch language
 	'],
-	raw => <<'EOT',
+	raw => <<"EOT",
+<meta property="og:image" content="$preview" />
 <style>
 figure[hidden] {
 	opacity: 0; /* secret */
@@ -52,7 +61,7 @@ figure[hidden]:hover > figcaption {
 	transition-delay: 2s;
 }
 
-@media (max-width: 60em) {
+\@media (max-width: 60em) {
 	td, th {
 		font-size: 50%;
 	}
@@ -68,7 +77,7 @@ EOT
 });
 
 :>
-<h1>Dierennamen <small>(Dutch animal names)</small></h1>
+<h1>Dierennamen <small lang=en>(Dutch animal names)</small></h1>
 
 <p>
 <:
@@ -78,105 +87,63 @@ say $pageinfo->{altlink};
 </p>
 
 <:
-my @table = qw(
-	 >:        origineel: zee-:        meer_water:    land/aardig: anders:      #:
-	 >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
-	 >rat:     rat        zeerat       waterrat       woestijnrat  buidelrat    #beverrat
-	 >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      (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  #
-	 >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     -            #
-	#>bij:     bij        -            waterbij       aardbei      moerbei      hommelbij
-);
-$table[4 + 9*7] = 'grasmodderpaard?=草泥马' if $Request eq 'standaard'; # replace turnpaard
-
-@table = qw(
-	>hond    zeehond    prairiehond
-	>kat     zeekat     meerkat
-	>muis    zeemuis    vleermuis
-	>egel    zee-egel   mierenegel
-	>varken  zeevarken  stekelvarken
-	>koe     zeekoe     meerkoetje
-	>paard   zeepaardje nijlpaard
-	>olifant zeeolifant olifantsvis
-	>beer    zeebeer    wasbeer
-	>leeuw   zeeleeuw   mierenleeuw
-	>wolf    zeewolf    korenwolf
-	>haan    zeehaan    sprinkhaan
-	>mot     marmot     bergamot
-) if $Request eq 'beknopt';
+my $table = Data('dieren');
 
 if (exists $get{r}) {
 	use List::MoreUtils qw( part );
-	my @trans = (part { state $col; /^#?>/ ? ($col = 0) : ++$col } @table);
-	@table = ();
+	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;
+			push @$table, s/^#?\K>/$1/r;
 		}
 	}
 }
 
+for my $prefix ($pageinfo->{prefix}) {
+	for my $col ($pageinfo->{colfilter} // ()) {
+		@{$table} = grep { $_->[$col] =~ $prefix } @{$table};
+	}
+	$_ = [ grep { s/$prefix// } @{$_} ] for @{$table};
+}
+
 say '<table class="gallery">';
-while (my $name = shift @table) {
-	if ($name =~ s/^#// and !$pageinfo->{prefix}) {
-		while ($name = shift @table) {
-			last if $name =~ m/^>/;
+for my $row (@{$table}) {
+	print '<tr>';
+	for my $name (@{$row}) {
+		my $hidden = $name =~ s/^\?//;
+		$name =~ s/#.*//; # ignore prefixed part
+		$name =~ s/^-$//;
+		my ($img) = $name =~ /([\w-]+)/;
+		$name =~ y/_/ /;
+		if ($name =~ s/:$//) {
+			# trailing colon indicates header text
+			print "<th>$name</th>";
+			next;
 		}
-		$name or next;
-	}
-	if ($name =~ s/^>//) {
-		# leading dash starts a new row
-		say '</tr>' if $name;
-		print "<tr>";
-	}
-	$name =~ s/^-$//;
-	my ($img) = $name =~ /([\w-]+)/;
-	$name =~ y/_/ /;
-	if ($name =~ s/:$//) {
-		# trailing colon indicates header text
-		print "<th>$name</th>";
-		next;
-	}
-	print '<td>';
-	my $alt = $1 if $name =~ s/=(.*)//;
-	my $hidden = $name =~ s/\?$//;
-	$name = "<q>$name</q>" if $name =~ s/\?$//;
-	$name .= " <small>($alt)</small>" if $alt;
+		print '<td>';
+		my $alt = $1 if $name =~ s/=(.*)//;
+		$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")) {
-		printf '<img src="/%s"', $img;
-		printf ' alt="%s"', $alt || $name;
-		print ' />';
-		print "<figcaption>$name</figcaption>";
-	}
-	elsif ($hidden) {
-		printf '<figcaption>%s</figcaption>', "$name?";
-	}
-	else {
-		print $name;
+		printf '<figure%s>', $hidden && !$pageinfo->{secrets} && ' hidden';
+		if ($img and -e ($img = "data/dieren/$img.jpg")) {
+			printf '<img src="/%s"', $img;
+			printf ' alt="%s"', $alt || $name;
+			print ' />';
+			print "<figcaption>$name</figcaption>";
+		}
+		elsif ($hidden) {
+			printf '<figcaption>%s</figcaption>', "$name?";
+		}
+		else {
+			print $name;
+		}
+		print '</figure>';
+		print '</td>';
 	}
-	print '</figure>';
-	print '</td>';
+	say '</tr>';
 }
-say '</tr></table>';
+say '</table>';