X-Git-Url: http://git.shiar.net/sheet.git/blobdiff_plain/6311c65d7397e07947d6cf38df772545a3fa296d..bda31c6e71685413018bc60c274277205a8855a2:/dieren.plp

diff --git a/dieren.plp b/dieren.plp
index deb2ac3..03d0dc9 100644
--- a/dieren.plp
+++ b/dieren.plp
@@ -16,7 +16,7 @@ my %subpages = (
 		title => 'uitgebreid dieren',
 		intro => "$intro.. en dergelijke.",
 		altlink => 'Zie het <a href="/dieren">populaire overzicht</a> voor minder.',
-		prefix => qr/^[#+]*/, # optional # or +
+		prefix => qr/.*?[#]|^[#+]*/, # after optional # or +
 		secrets => 1,
 	},
 	beknopt => {
@@ -34,14 +34,16 @@ my $pageinfo = $subpages{$Request}
 
 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',
+	image => 'dieren.jpg',
+	raw => <<"EOT",
 <style>
 figure[hidden] {
 	opacity: 0; /* secret */
@@ -56,7 +58,7 @@ figure[hidden]:hover > figcaption {
 	transition-delay: 2s;
 }
 
-@media (max-width: 60em) {
+\@media (max-width: 60em) {
 	td, th {
 		font-size: 50%;
 	}
@@ -72,7 +74,7 @@ EOT
 });
 
 :>
-<h1>Dierennamen <small>(Dutch animal names)</small></h1>
+<h1>Dierennamen <small lang=en>(Dutch animal names)</small></h1>
 
 <p>
 <:
@@ -82,11 +84,7 @@ say $pageinfo->{altlink};
 </p>
 
 <:
-my $table = readdata('dieren');
-if ($Request eq 'standaard') {
-	$table->[ 9][4] = '?grasmodderpaard=草泥马'; # replace turnpaard
-	$table->[18][1] = 'draak_'; # irl animal
-}
+my $table = Data('dieren');
 
 if (exists $get{r}) {
 	use List::MoreUtils qw( part );
@@ -113,6 +111,7 @@ 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/_/ /;