From a2b323dc9c4fa576fc29c6267198d5fedd3362e2 Mon Sep 17 00:00:00 2001
From: Mischa POSLAWSKY <perl@shiar.org>
Date: Fri, 16 Oct 2020 08:08:18 +0200
Subject: [PATCH] word edit: translation shorthand slash for alternate names

---
 writer.plp | 1 +
 1 file changed, 1 insertion(+)

diff --git a/writer.plp b/writer.plp
index 05e1465..ad46616 100644
--- a/writer.plp
+++ b/writer.plp
@@ -172,6 +172,7 @@ elsif (defined $post{form}) {{
 				prio  => undef,
 			);
 			$subrow{wptitle} = $1 if $subrow{form} =~ s/\h*\[(.*)\]$//; # [Link] shorthand
+			$subrow{alt} = [split m{/}, $1] if $subrow{form} =~ s{/(\S.*)}{}; # /alternates shorthand
 			$db->insert(word => \%subrow);
 			delete $fields{$field};
 		}
-- 
2.30.0