From: Mischa POSLAWSKY <perl@shiar.org>
Date: Tue, 26 May 2020 07:27:17 +0000 (+0200)
Subject: word: distinguish include and images by language
X-Git-Tag: v1.13~250
X-Git-Url: http://git.shiar.net/sheet.git/commitdiff_plain/0ec4d83edf83be1754f258090723d19ae1955086

word: distinguish include and images by language

Prepare for translations with different visualisations.
---

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)";