From 09d717e37fb372aa459fa1aab3cc5334ddb849b8 Mon Sep 17 00:00:00 2001
From: Mischa POSLAWSKY <perl@shiar.org>
Date: Sun, 11 Jul 2021 05:32:51 +0200
Subject: [PATCH] word/edit: chinese language (and pinyin transliteration)

Propose <pronunciation> syntax to append alternate scripts in multiple
columns.
---
 writer.plp | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/writer.plp b/writer.plp
index 39a373b..6177fcd 100644
--- a/writer.plp
+++ b/writer.plp
@@ -72,6 +72,7 @@ my %lang = (
 	en => ["\N{REGIONAL INDICATOR SYMBOL LETTER G}\N{REGIONAL INDICATOR SYMBOL LETTER B}", 'english'],
 	eo => ['<span style="color:green">★</span>', 'esperanto'],
 	ru => ["\N{REGIONAL INDICATOR SYMBOL LETTER R}\N{REGIONAL INDICATOR SYMBOL LETTER U}", 'русский'],
+	zh => ["\N{REGIONAL INDICATOR SYMBOL LETTER C}\N{REGIONAL INDICATOR SYMBOL LETTER N}", '中文'],
 	la => ["\N{PUSHPIN}", 'latin'],
 );
 my @wordcols = pairkeys
@@ -390,7 +391,7 @@ my $parents = $db->select(word => '*', [{id => $row->{cat}}, {id => $row->{ref}}
 while (my $ref = $parents->hash) {
 	printf '<li><a href="/writer/%d">%s</a></li>', $ref->{id}, Entity($ref->{form});
 }
-say "<li><strong>$row->{form}</strong></li>";
+say "<li><strong>$_</strong></li>" for Entity($row->{form});
 my $children = $db->select(word => '*', {cat => $row->{id}, ref => undef}, 'grade, id');
 while (my $ref = $children->hash) {
 	printf '<li><a href="/writer/%d">%s</a></li>', $ref->{id}, Entity($ref->{form});
-- 
2.30.0