From dcc8a72751585d4359ea945151fbd97f1288a41e Mon Sep 17 00:00:00 2001
From: Mischa POSLAWSKY <perl@shiar.org>
Date: Sat, 16 Oct 2021 18:07:05 +0200
Subject: [PATCH] dieren: 3 column beknopt mode of 39 custom words

---
 dieren.plp | 24 +++++++++++++++++++++++-
 1 file changed, 23 insertions(+), 1 deletion(-)

diff --git a/dieren.plp b/dieren.plp
index 2626cbe..6ab5117 100644
--- a/dieren.plp
+++ b/dieren.plp
@@ -7,7 +7,8 @@ my %subpages = (
 	standaard => {
 		title => 'dieren',
 		intro => $intro,
-		altlink => 'Zie ook <a href="/dieren/uitgebreid">verdergezochte verbanden</a>.',
+		altlink => 'Zie ook <a href="/dieren/uitgebreid">verdergezochte verbanden</a>' .
+		           ' of het <a href="/dieren/beknopt">beknopte overzicht</a>.',
 	},
 	uitgebreid => {
 		title => 'uitgebreid dieren',
@@ -16,6 +17,11 @@ my %subpages = (
 		prefix => '#',
 		secrets => 1,
 	},
+	beknopt => {
+		title => 'beknopt dieren',
+		intro => "een aantal $intro",
+		altlink => 'Zie het <a href="/dieren">populaire overzicht</a> voor meer.',
+	},
 );
 
 $Request ||= 'standaard';
@@ -92,6 +98,22 @@ my @table = qw(
 	#>bij:     bij        -            waterbij       aardbei      moerbei      hommelbij
 );
 
+@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';
+
 if (exists $get{r}) {
 	use List::MoreUtils qw( part );
 	my @trans = (part { state $col; /^#?>/ ? ($col = 0) : ++$col } @table);
-- 
2.30.0