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

diff --git a/dieren.plp b/dieren.plp
index 5370377..63049cf 100644
--- a/dieren.plp
+++ b/dieren.plp
@@ -1,9 +1,13 @@
 <(common.inc.plp)><:
 
+my $intro = 'dieren die in het Nederlands vernoemd zijn naar andere dieren.';
+$intro .= '.. en dergelijke.' if $Request;
+$intro .= '.. enzo.' if exists $get{v};
+
 Html({
-	title => 'dieren cheat sheet',
+	title => (!!$Request && '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,32 +41,42 @@ 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 ($Request) {
+	say 'Zie het <a href="/dieren">populaire overzicht</a> voor minder.';
+}
+else {
+	say 'Zie ook minderbekende en <a href="/dieren/uitgebreid">verdergezochte verbanden</a>.';
+}
+:>
+</p>
 
 <:
 my @table = qw(
-	>:         origineel: zee-:        meer_water:    aardig:      anders:      #:
-	>hond:     hond       zeehond      waterhond?     aardhond?    vleerhond    #rodehond
-	>kat:      kat        zeekat       meerkat        caterpillar? tijgerkat    #
+	 >:        origineel: zee-:        meer_water:    aardig:      anders:      #:
+	 >hond:    hond       zeehond      waterhond?     prairiehond  vleerhond    #rodehond
+	 >kat:     kat        zeekat       meerkat        cat_325?     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     #
+	 >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        #
+	#>bra:     brassiere? zebra        waterbra?      aardbra?     cobra        #sabra
 	#>olifant: olifant    zeeolifant   waterolifant?  landolifant? #            #
-	>beer:     beer       zeebeer      waterbeertje   ijsbeer      wasbeer      #neusbeer
-	>leeuw:    leeuw      zeeleeuw     waterleeuw?    aardleeuw?   mierenleeuw  #
+	 >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    #
+	 >haan:    haan       zeehaan      waterhaan      rotshaan     sprinkhaan   #
+	#>pad:     pad        zeepad?      waterpad?      landpad      schildpad    #paddenstoel
 	#>draak:   draak      zeedraak     waterdraak     aarddraak?   komododraak  #
-	#>vlo:     vlo        strandvlo    watervlo       aardvlo      #            #
+	#>vlo:     vlo        strandvlo    watervlo       aardvlo      vlok?        #
 	#>mot:     mot        zeemot?      watermot       aardmot?     marmot       #
-	#>bij:     bij        zeebij?      waterbij       aardbij      #            #
+	#>bij:     bij        zeebij?      waterbij       aardbei      #            #
 );
 
 if (exists $get{r}) {
@@ -80,11 +94,12 @@ if (exists $get{r}) {
 
 say '<table>';
 while (my $name = shift @table) {
-	if ($name =~ s/^#// and not exists $get{v}) {
+	if ($name =~ s/^#// and !$Request) {
 		while ($name = shift @table) {
 			last if $name =~ m/^>/;
 		}
 	}
+	$name =~ y/_/ /;
 	if ($name =~ s/^>//) {
 		# leading dash starts a new row
 		say '</tr>' if $name;
@@ -92,7 +107,6 @@ while (my $name = shift @table) {
 	}
 	if ($name =~ s/:$//) {
 		# trailing colon indicates header text
-		$name =~ y/_/ /;
 		print "<th>$name</th>";
 		next;
 	}
@@ -101,7 +115,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 not exists $get{v};
 		print ' />';
 	}
 	elsif (!$hidden) {