From 8cd8b696d867095b360be613130d8207cb68d992 Mon Sep 17 00:00:00 2001
From: Mischa POSLAWSKY <perl@shiar.org>
Date: Mon, 6 Jun 2022 18:53:45 +0200
Subject: [PATCH] word: prepare common setup of quizzy subpages

---
 word.plp        | 20 ++++++++++++++++----
 word/finder.plp | 15 ---------------
 2 files changed, 16 insertions(+), 19 deletions(-)
 delete mode 100644 word/finder.plp

diff --git a/word.plp b/word.plp
index 6b42866..a3be917 100644
--- a/word.plp
+++ b/word.plp
@@ -4,13 +4,25 @@ our $lang = $get{lang} || 'en';
 our $wordlistbase = "data/wordlist";
 
 if ($Request and $Request =~ m{\A([^/]+)}) {
-	my $page = "word/$1.plp";
-	utf8::downgrade($page); # unicode filename breaks contents encoding
+	my $name = $1;
+	my $page = "word/$name.plp";
+	$wordlistbase .= ".$lang";
 	if (-e $page) {
-		$wordlistbase .= ".$lang";
+		utf8::downgrade($page); # unicode filename breaks contents encoding
 		Include $page;
-		exit;
 	}
+	else {
+		Html({
+			raw => join("\n", map qq(<script src="/word/$_"></script>),
+				'put.min.js', 'quiz.js', "$name.js",
+			),
+			lang => $lang,
+		});
+		say '<h1>Words</h1>';
+		say '<section id="gallery"></section>';
+		say "<script>new Word\u$name('/$wordlistbase.json')</script>";
+	}
+	exit;
 }
 
 my $limit = $get{v} // (exists $get{v} ? 5 : 3);
diff --git a/word/finder.plp b/word/finder.plp
deleted file mode 100644
index ffaeb12..0000000
--- a/word/finder.plp
+++ /dev/null
@@ -1,15 +0,0 @@
-<(../common.inc.plp)><:
-
-our $wordlistbase;
-
-Html({
-	raw => <<'EOT',
-<script src="/word/put.min.js"></script>
-<script src="/word/quiz.js"></script>
-<script src="/word/finder.js"></script>
-EOT
-});
-
-say '<h1>Words</h1>';
-say '<section id="gallery"></section>';
-say "<script>new WordFinder('/$wordlistbase.json')</script>";
-- 
2.30.0