dieren: page description and links between verbosity

diff --git a/dieren.plp b/dieren.plp
index 5370377378e92ce55ad520ba72d36a7c51b7d0ab..e4dd7465185de6cd8f549806ca5731ae046b643f 100644 (file)
--- a/dieren.plp
+++ b/dieren.plp
@@ -1,9 +1,14 @@
 <(common.inc.plp)><:
 
+my $verbose = exists $get{v} && ($get{v} // 1);
+my $intro = 'dieren die in het Nederlands vernoemd zijn naar andere dieren.';
+$intro .= '.. en dergelijke.' if $verbose;
+$intro .= '.. enzo.' if $verbose >= 2;
+
 Html({
-       title => 'dieren cheat sheet',
+       title => ($verbose && 'uitgebreid ') . 'dieren cheat sheet',
        version => '1.0',
-       description => [],
+       description => "Tabeloverzicht met afbeeldingen van $intro",
        keywords => [qw'
                dier beest naam naamgeving woord taal nederlands gerelateerd
                relatie vernoemd vernoeming combinatie samenstelling onverwant
@@ -37,7 +42,17 @@ EOT
 :>
 <h1>Dierennamen <small>(Dutch animal names)</small></h1>
 
-<p>Dieren die in het Nederlands vernoemd zijn naar andere dieren.</p>
+<p>
+<:
+say ucfirst $intro;
+if ($verbose) {
+       say 'Zie het <a href="?">populaire overzicht</a> voor minder.';
+}
+else {
+       say 'Zie ook minderbekende en <a href="?v">verdergezochte verbanden</a>.';
+}
+:>
+</p>
 
 <:
 my @table = qw(
@@ -80,7 +95,7 @@ if (exists $get{r}) {
 
 say '<table>';
 while (my $name = shift @table) {
-       if ($name =~ s/^#// and not exists $get{v}) {
+       if ($name =~ s/^#// and !$verbose) {
                while ($name = shift @table) {
                        last if $name =~ m/^>/;
                }
@@ -101,7 +116,7 @@ while (my $name = shift @table) {
        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;
+               print ' hidden' if $hidden and $verbose < 2;
                print ' />';
        }
        elsif (!$hidden) {