From ae4ac683abb8a60d182b948bf7b5b6b31a729975 Mon Sep 17 00:00:00 2001
From: Mischa POSLAWSKY <perl@shiar.org>
Date: Sat, 13 Jun 2020 19:26:27 +0200
Subject: [PATCH] word edit: preserve wikipedia links in translation
 suggestions

---
 writer.js  | 4 +++-
 writer.plp | 9 ++++++---
 2 files changed, 9 insertions(+), 4 deletions(-)

diff --git a/writer.js b/writer.js
index da8229a..6470a39 100644
--- a/writer.js
+++ b/writer.js
@@ -30,7 +30,9 @@ document.addEventListener('DOMContentLoaded', () => {
 				if (wplangs) wplangs.forEach(wptrans => {
 					let transrow = document.getElementById('trans-' + wptrans.lang);
 					if (!transrow || transrow.value) return;
-					transrow.value = wptrans['*'];
+					transrow.value = wptrans['*'].replace(/([^,(]*).*/, (link, short) => {
+						return short.toLocaleLowerCase(wptrans.lang).trimEnd() + ' [' + link + ']';
+					});
 				});
 
 				// list images in article html
diff --git a/writer.plp b/writer.plp
index 4df6f8c..b549917 100644
--- a/writer.plp
+++ b/writer.plp
@@ -245,11 +245,14 @@ elsif (defined $post{form}) {{
 		while (my ($lang, $val) = each %post) {
 			my $field = $lang;
 			$lang =~ s/^trans-// or next;
-			$db->insert(word => {
+			$val = parseinput($val) or next;
+			my %subrow = (
 				ref   => $row->{id},
 				lang  => $lang,
-				form  => $_,
-			}) for parseinput($val);
+				form  => $val,
+			);
+			$subrow{wptitle} = $1 if $subrow{form} =~ s/\h*\[(.*)\]$//; # [Link] shorthand
+			$db->insert(word => \%subrow);
 			delete $fields{$field};
 		}
 		return 1;
-- 
2.30.0