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 => {
Html({
title => $pageinfo->{title}.' cheat sheet',
- version => '1.0',
+ version => '1.2',
+ 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 */
transition-delay: 2s;
}
-@media (max-width: 60em) {
+\@media (max-width: 60em) {
td, th {
font-size: 50%;
}
});
:>
-<h1>Dierennamen <small>(Dutch animal names)</small></h1>
+<h1>Dierennamen <small lang=en>(Dutch animal names)</small></h1>
<p>
<:
</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 );
print '<tr>';
for my $name (@{$row}) {
my $hidden = $name =~ s/^\?//;
+ $name =~ s/#.*//; # ignore prefixed part
$name =~ s/^-$//;
my ($img) = $name =~ /([\w-]+)/;
$name =~ y/_/ /;
$name .= " <small>($alt)</small>" if $alt;
printf '<figure%s>', $hidden && !$pageinfo->{secrets} && ' hidden';
- if ($img and -e ($img = "data/dieren/$img.jpg")) {
+ if ($img and -e ($img = lc "data/dieren/$img.jpg")) {
printf '<img src="/%s"', $img;
printf ' alt="%s"', $alt || $name;
print ' />';