From 0ec4d83edf83be1754f258090723d19ae1955086 Mon Sep 17 00:00:00 2001
From: Mischa POSLAWSKY <perl@shiar.org>
Date: Tue, 26 May 2020 09:27:17 +0200
Subject: [PATCH] word: distinguish include and images by language

Prepare for translations with different visualisations.
---
 word.plp | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/word.plp b/word.plp
index d594370..ca85070 100644
--- a/word.plp
+++ b/word.plp
@@ -1,6 +1,6 @@
 <(common.inc.plp)><:
 
-my $wordlist = 'wordlist.inc.pl';
+my $wordlist = 'wordlist.eng.inc.pl';
 Html({
 	title => 'words cheat sheet',
 	version => '1.0',
@@ -65,7 +65,7 @@ Zie ook <a href="/dieren">dieren</a>.
 </p>
 
 <:
-my %table = do 'wordlist.inc.pl' or die $@ // $!;
+my $table = do $wordlist or die $@ // $!;
 
 sub showimg {
 	my ($name) = @_;
@@ -76,7 +76,7 @@ sub showimg {
 	my $alt = $name;
 	$name = "<q>$name</q>" if $name =~ s/\?$//;
 
-	if ($img and -e ($img = "data/word/$img.jpg")) {
+	if ($img and -e ($img = "data/word/eng/$img.jpg")) {
 		my $alt = -l $img && readlink($img) =~ s/\.jpg$//r;
 		if ($alt) {
 			$name .= " ($alt)";
-- 
2.30.0