From: Mischa POSLAWSKY <perl@shiar.org>
Date: Thu, 7 Dec 2023 22:48:13 +0000 (+0100)
Subject: writing: reformat phnx data (prefixless row names)
X-Git-Url: http://git.shiar.nl/sheet.git/commitdiff_plain/18ff65229f85952af3cc3f0646ee55e6a2dcd00a

writing: reformat phnx data (prefixless row names)

Identical data except for dashes and whitespace.
---

diff --git a/writing-brah.inc.pl b/writing-brah.inc.pl
index 913716f..463fa17 100644
--- a/writing-brah.inc.pl
+++ b/writing-brah.inc.pl
@@ -10,6 +10,7 @@ Also see more distant relatives of <a href="/writing">Phoenician</a>,
 including the <a href="/latin">Latin</a> alphabet.
 See <a href="/charset">charsets</a> for other characters.
 .
+
 list => [qw(
 	iso ipa
 	orya beng deva gujr guru tibt sidd
@@ -18,27 +19,27 @@ list => [qw(
 )],
 
 table => {
-iso      => [qw{ k  kh g  gh ṅ  c  ch j  jh > ñ  ṭ  ṭh ḍ  ḍh ṇ  t  th d  dh n ṉ  p  ph b  bh m  y  r ṟ  l  ḷ  ḻ  v  ś  ṣ  s  h }],
-ipa      => [qw{ k  kʰ ɡ  ɡʱ ŋ  c  cʰ ɟ  ɟʱ > ɲ  ʈ  ʈʰ ɖ  ɖʱ ɳ  t̪  t̪ʰ d̪  d̪ʱ n̪ n  p  pʰ b  bʱ m  j  r ɾ  l  ɭ  ɻ  ʋ  ʃ  ʂ  s  ɦ }],
-orya     => [qw{ କ  ଖ  ଗ  ଘ  ଙ  ଚ  ଛ  ଜ  ଝ  > ଞ  ଟ  ଠ  ଡ  ଢ  ଣ  ତ  ଥ  ଦ  ଧ  > ନ  ପ  ଫ  ବ  ଭ  ମ  ଯ  > ର  ଲ  >  ଳ  ଵ  ଶ  ଷ  ସ  ହ }], # <kalinga 10hCE
-beng     => [qw{ ক  খ  গ  ঘ  ঙ  চ  ছ  জ  ঝ  > ঞ  ট  ঠ  ড  ঢ  ণ  ত  থ  দ  ধ  > ন  প  ফ  ব  ভ  ম  য  > র/ৰ ল >  -  ৱ  শ  ষ  স  হ }], # <sidd 11hCE
-deva     => [qw{ क  ख  ग  घ  ङ  च  छ  ज  झ  > ञ  ट  ठ  ड  ढ  ण  त  थ  द  ध  न ऩ  प  फ  ब  भ  म  य  र ऱ  ल  ळ  ऴ  व  श  ष  स  ह }], # <nagari 13hCE <kalinga 8hCE <brah
-gujr     => [qw{ ક  ખ  ગ  ઘ  ઙ  ચ  છ  જ  ઝ  > ઞ  ટ  ઠ  ડ  ઢ  ણ  ત  થ  દ  ધ  > ન  પ  ફ  બ  ભ  મ  ય  > ર  લ  >  ળ  વ  શ  ષ  સ  હ }], # <deva 17hCE
-guru     => [qw{ ਕ  ਖ  ਗ  ਘ  ਙ  ਚ  ਛ  ਜ  ਝ  > ਞ  ਟ  ਠ  ਡ  ਢ  ਣ  ਤ  ਥ  ਦ  ਧ  > ਨ  ਪ  ਫ  ਬ  ਭ  ਮ  ਯ  > ਰ  ਲ  >  ਲ਼  ਵ  ਸ਼  -  ਸ  ਹ }], # <sharada 16hCE
-tibt     => [qw{ ཀ  ཁ  ག  -  ང  ཅ  ཆ  ཇ  -  > ཉ  ཊ  ཋ  ཌ  -  ཎ  ཏ  ཐ  ད  -  > ན  པ  ཕ  བ  -  མ  ཡ  > ར  ལ  >  -  ཝ  ཤ  ཥ  ས  ཧ }], # <sidd 7hCE
-sidd     => [qw{ 𑖎  𑖏  𑖐  𑖑  𑖒  𑖓  𑖔  𑖕  𑖖  > 𑖗  𑖘  𑖙  𑖚  𑖛  𑖜  𑖝  𑖞  𑖟  𑖠  > 𑖡  𑖢  𑖣  𑖤  𑖥  𑖦  𑖧  > 𑖨  𑖩  >  -  𑖪  𑖫  𑖬  𑖭  𑖮 }], # <brah 7hCE
+iso  => [qw{ k  kh g  gh ṅ  c  ch j  jh > ñ  ṭ  ṭh ḍ  ḍh ṇ  t  th d  dh n ṉ  p  ph b  bh m  y  r ṟ  l  ḷ  ḻ  v  ś  ṣ  s  h }],
+ipa  => [qw{ k  kʰ ɡ  ɡʱ ŋ  c  cʰ ɟ  ɟʱ > ɲ  ʈ  ʈʰ ɖ  ɖʱ ɳ  t̪  t̪ʰ d̪  d̪ʱ n̪ n  p  pʰ b  bʱ m  j  r ɾ  l  ɭ  ɻ  ʋ  ʃ  ʂ  s  ɦ }],
+orya => [qw{ କ  ଖ  ଗ  ଘ  ଙ  ଚ  ଛ  ଜ  ଝ  > ଞ  ଟ  ଠ  ଡ  ଢ  ଣ  ତ  ଥ  ଦ  ଧ  > ନ  ପ  ଫ  ବ  ଭ  ମ  ଯ  > ର  ଲ  >  ଳ  ଵ  ଶ  ଷ  ସ  ହ }], # <kalinga 10hCE
+beng => [qw{ ক  খ  গ  ঘ  ঙ  চ  ছ  জ  ঝ  > ঞ  ট  ঠ  ড  ঢ  ণ  ত  থ  দ  ধ  > ন  প  ফ  ব  ভ  ম  য  > র/ৰ ল >  -  ৱ  শ  ষ  স  হ }], # <sidd 11hCE
+deva => [qw{ क  ख  ग  घ  ङ  च  छ  ज  झ  > ञ  ट  ठ  ड  ढ  ण  त  थ  द  ध  न ऩ  प  फ  ब  भ  म  य  र ऱ  ल  ळ  ऴ  व  श  ष  स  ह }], # <nagari 13hCE <kalinga 8hCE <brah
+gujr => [qw{ ક  ખ  ગ  ઘ  ઙ  ચ  છ  જ  ઝ  > ઞ  ટ  ઠ  ડ  ઢ  ણ  ત  થ  દ  ધ  > ન  પ  ફ  બ  ભ  મ  ય  > ર  લ  >  ળ  વ  શ  ષ  સ  હ }], # <deva 17hCE
+guru => [qw{ ਕ  ਖ  ਗ  ਘ  ਙ  ਚ  ਛ  ਜ  ਝ  > ਞ  ਟ  ਠ  ਡ  ਢ  ਣ  ਤ  ਥ  ਦ  ਧ  > ਨ  ਪ  ਫ  ਬ  ਭ  ਮ  ਯ  > ਰ  ਲ  >  ਲ਼  ਵ  ਸ਼  -  ਸ  ਹ }], # <sharada 16hCE
+tibt => [qw{ ཀ  ཁ  ག  -  ང  ཅ  ཆ  ཇ  -  > ཉ  ཊ  ཋ  ཌ  -  ཎ  ཏ  ཐ  ད  -  > ན  པ  ཕ  བ  -  མ  ཡ  > ར  ལ  >  -  ཝ  ཤ  ཥ  ས  ཧ }], # <sidd 7hCE
+sidd => [qw{ 𑖎  𑖏  𑖐  𑖑  𑖒  𑖓  𑖔  𑖕  𑖖  > 𑖗  𑖘  𑖙  𑖚  𑖛  𑖜  𑖝  𑖞  𑖟  𑖠  > 𑖡  𑖢  𑖣  𑖤  𑖥  𑖦  𑖧  > 𑖨  𑖩  >  -  𑖪  𑖫  𑖬  𑖭  𑖮 }], # <brah 7hCE
 # ↑ northern
-brah     => [qw{ 𑀓  𑀔  𑀕  𑀖  𑀗  𑀘  𑀙  𑀚  𑀛  > 𑀜  𑀝  𑀞  𑀟  𑀠  𑀡  𑀢  𑀣  𑀤  𑀥  𑀦 -𑀷 𑀧  𑀨  𑀩  𑀪  𑀫  𑀬  𑀭 -𑀶 𑀮  𑀴  -𑀵 𑀯  𑀰  𑀱  𑀲  𑀳 }],
+brah => [qw{ 𑀓  𑀔  𑀕  𑀖  𑀗  𑀘  𑀙  𑀚  𑀛  > 𑀜  𑀝  𑀞  𑀟  𑀠  𑀡  𑀢  𑀣  𑀤  𑀥  𑀦 -𑀷 𑀧  𑀨  𑀩  𑀪  𑀫  𑀬  𑀭 -𑀶 𑀮  𑀴  -𑀵 𑀯  𑀰  𑀱  𑀲  𑀳 }],
 # ↓ southern
-telu     => [qw{ క  ఖ  గ  ఘ  ఙ  చ  ఛ  జ  ఝ  > ఞ  ట  ఠ  డ  ఢ  ణ  త  థ  ద  ధ  > న  ప  ఫ  బ  భ  మ  య  ర ఱ  ల  >  ళ  వ  శ  ష  స  హ }], # 11hCE
-knda     => [qw{ ಕ  ಖ  ಗ  ಘ  ಙ  ಚ  ಛ  ಜ  ಝ  > ಞ  ಟ  ಠ  ಡ  ಢ  ಣ  ತ  ಥ  ದ  ಧ  > ನ  ಪ  ಫ  ಬ  ಭ  ಮ  ಯ  ರ ಱ  ಲ  ಳ  ೞ  ವ  ಶ  ಷ  ಸ  ಹ }], # 9hCE
-sinh     => [qw{ ක  ඛ  ග  ඝ  ඞ  ච  ඡ  ජ  ඣ  > ඤ  ට  ඨ  ඩ  ඪ  ණ  ත  ථ  ද  ධ  > න  ප  ඵ  බ  භ  ම  ය  > ර  ල  >  ළ  ව  ශ  ෂ  ස  හ }], # <gran 12hCE
-mlym     => [qw{ ക  ഖ  ഗ  ഘ  ങ  ച  ഛ  ജ  ഝ  > ഞ  ട  ഠ  ഡ  ഢ  ണ  ത  ഥ  ദ  ധ  ന -ഩ പ  ഫ  ബ  ഭ  മ  യ  ര റ  ല  ള  ഴ  വ  ശ  ഷ  സ  ഹ }], # <gran 12hCE
-taml     => [qw{ க  -  -  -  ங  ச  -  ஜ  -  > ஞ  ட  -  -  -  ண  த  -  -  -  ந ன  ப  -  -  -  ம  ய  ர ற  ல  ள  ழ  வ  ஶ  ஷ  ஸ  ஹ }], # 3hCE
-mymr     => [qw{ က  ခ  ဂ  ဃ  င  စ  ဆ  ဇ  ဈ  ဉ ည  ဋ  ဌ  ဍ  ဎ  ဏ  တ  ထ  ဒ  ဓ  > န  ပ  ဖ  ဗ  ဘ  မ  ယ  > ရ  လ  ဠ  ၔ  ဝ  ၐ  ၑ  သ  ဟ }], # <gran 11hCE
-khmr     => [qw{ ក  ខ  គ  ឃ  ង  ច  ឆ  ជ  ឈ  > ញ  ដ  ឋ  ឌ  ឍ  ណ  ត  ថ  ទ  ធ  > ន  ប  ផ  ព  ភ  ម  យ  > រ  ល  >  -  វ  ឝ  ឞ  ស  ហ }], # <gran 11hCE
-thai     => [qw{ ก  ข  ค  ฆ  ง  จ  ฉ  ช  ฌ  > ญ  ฏ  ฐ  ฑ  ฒ  ณ  ต  ถ  ท  ธ  > น  ป  ผ  พ  ภ  ม  ย  > ร  ล  >  -  ว  ศ  ษ  ส  ห }], # <khmr 13hCE
-laoo     => [qw{ ກ  ຂ  -  ຄ  ງ  ຈ  ສ  ຊ  -  > ຍ  -  -  -  -  -  ຕ  ຖ  ທ  -  > ນ  ປ  ຜ  ຟ  ພ  ມ  ຢ  > ຣ  ລ  >  -  ວ  -  -  -  ຫ }], # <khmr 14hCE
-tglg     => [qw{ ᜃ  -  ᜄ  -  ᜅ  -  -  -  -  > -  -  -  -  -  -  ᜆ  -  ᜇ  -  > ᜈ  ᜉ  -  ᜊ  -  ᜋ  ᜌ  > ᜇ  ᜎ  >  -  -  -  -  ᜐ  ᜑ }], # <kawi 14hCE
+telu => [qw{ క  ఖ  గ  ఘ  ఙ  చ  ఛ  జ  ఝ  > ఞ  ట  ఠ  డ  ఢ  ణ  త  థ  ద  ధ  > న  ప  ఫ  బ  భ  మ  య  ర ఱ  ల  >  ళ  వ  శ  ష  స  హ }], # 11hCE
+knda => [qw{ ಕ  ಖ  ಗ  ಘ  ಙ  ಚ  ಛ  ಜ  ಝ  > ಞ  ಟ  ಠ  ಡ  ಢ  ಣ  ತ  ಥ  ದ  ಧ  > ನ  ಪ  ಫ  ಬ  ಭ  ಮ  ಯ  ರ ಱ  ಲ  ಳ  ೞ  ವ  ಶ  ಷ  ಸ  ಹ }], # 9hCE
+sinh => [qw{ ක  ඛ  ග  ඝ  ඞ  ච  ඡ  ජ  ඣ  > ඤ  ට  ඨ  ඩ  ඪ  ණ  ත  ථ  ද  ධ  > න  ප  ඵ  බ  භ  ම  ය  > ර  ල  >  ළ  ව  ශ  ෂ  ස  හ }], # <gran 12hCE
+mlym => [qw{ ക  ഖ  ഗ  ഘ  ങ  ച  ഛ  ജ  ഝ  > ഞ  ട  ഠ  ഡ  ഢ  ണ  ത  ഥ  ദ  ധ  ന -ഩ പ  ഫ  ബ  ഭ  മ  യ  ര റ  ല  ള  ഴ  വ  ശ  ഷ  സ  ഹ }], # <gran 12hCE
+taml => [qw{ க  -  -  -  ங  ச  -  ஜ  -  > ஞ  ட  -  -  -  ண  த  -  -  -  ந ன  ப  -  -  -  ம  ய  ர ற  ல  ள  ழ  வ  ஶ  ஷ  ஸ  ஹ }], # 3hCE
+mymr => [qw{ က  ခ  ဂ  ဃ  င  စ  ဆ  ဇ  ဈ  ဉ ည  ဋ  ဌ  ဍ  ဎ  ဏ  တ  ထ  ဒ  ဓ  > န  ပ  ဖ  ဗ  ဘ  မ  ယ  > ရ  လ  ဠ  ၔ  ဝ  ၐ  ၑ  သ  ဟ }], # <gran 11hCE
+khmr => [qw{ ក  ខ  គ  ឃ  ង  ច  ឆ  ជ  ឈ  > ញ  ដ  ឋ  ឌ  ឍ  ណ  ត  ថ  ទ  ធ  > ន  ប  ផ  ព  ភ  ម  យ  > រ  ល  >  -  វ  ឝ  ឞ  ស  ហ }], # <gran 11hCE
+thai => [qw{ ก  ข  ค  ฆ  ง  จ  ฉ  ช  ฌ  > ญ  ฏ  ฐ  ฑ  ฒ  ณ  ต  ถ  ท  ธ  > น  ป  ผ  พ  ภ  ม  ย  > ร  ล  >  -  ว  ศ  ษ  ส  ห }], # <khmr 13hCE
+laoo => [qw{ ກ  ຂ  -  ຄ  ງ  ຈ  ສ  ຊ  -  > ຍ  -  -  -  -  -  ຕ  ຖ  ທ  -  > ນ  ປ  ຜ  ຟ  ພ  ມ  ຢ  > ຣ  ລ  >  -  ວ  -  -  -  ຫ }], # <khmr 14hCE
+tglg => [qw{ ᜃ  -  ᜄ  -  ᜅ  -  -  -  -  > -  -  -  -  -  -  ᜆ  -  ᜇ  -  > ᜈ  ᜉ  -  ᜊ  -  ᜋ  ᜌ  > ᜇ  ᜎ  >  -  -  -  -  ᜐ  ᜑ }], # <kawi 14hCE
 },
 }
diff --git a/writing-phnx.inc.pl b/writing-phnx.inc.pl
index e16f8da..f44eadd 100644
--- a/writing-phnx.inc.pl
+++ b/writing-phnx.inc.pl
@@ -27,43 +27,43 @@ list => [qw(
 )],
 
 table => {
- latn     => [qw{ A >  B C  G  D  > E  F  Y U V  W Z H -Þ -  I  J K L M N >  X O  P  > >  -  Q  R >  S T }],
-#runr_ys  => [qw{ ᚭ -  ᛓ ᚴ  ᛆ  -  > -  ᚠ  > > >  - ᛧ ᚽ  ᚦ -  >  ᛁ - ᛚ ᛙ ᚿ >  - -  -  > >  -  -  ᚱ >  ᛌ ᛐ }], # short-twig fuþark
-#runr_m   => [qw{ ᚮ -  ᛒ ᚲ  ᛆ  -  > -  ᚠ  > > >  - ᛧ ᚼ  ᚦ -  ᛁ  ᛂ - ᛚ ᛘ ᚿ >  - -  -  > >  -  -  ᚱ >  ᛋ ᛐ }], # fuþork (medieval)
--runr     => [qw{ ᚨ ᛈ  ᛒ ᚲ  ᛃ  ᛞ  > ᛖ  ᚠ  ᛉ > ᚢ  ᚣ ᛇ ᚺ  ᚦ -  >  ᛁ - ᛚ ᛗ ᚾ >  ᚷ ᛟ  ᚹ  > >  -  ᛜ  ᚱ >  ᛊ ᛏ }], # <ital 2hCE (elder fuþark)
--ital     => [qw{ 𐌀 >  𐌁 >  𐌂  𐌃  > 𐌄  𐌅  > > 𐌖 -𐌞 𐌆 𐌇  𐌈 𐌘  𐌉 -𐌝 𐌊 𐌋 𐌌 𐌍 𐌗  𐌎 𐌏  𐌐  > >  𐌑  𐌒  𐌓 𐌯  𐌔 𐌕 }], # <grek -7hCE; new: 𐌚
--goth     => [qw{ 𐌰 >  𐌱 𐌲  𐌾  𐌳  > 𐌴  𐍆  > > >  𐍅 𐌶 𐌷  𐌸 𐍈  >  𐌹 𐌺 𐌻 𐌼 𐌽 > -𐍇 𐌿 𐍀𐌵 -𐍊 >  - -𐍁  𐍂 >  𐍃 𐍄 }],
--copt     => [qw{ Ⲁ >  Ⲃ >  Ⲅ  Ⲇ  > Ⲉ  >  > > >  Ⲩ Ⲍ Ⲏ  Ⲑ Ⲫ  >  Ⲓ Ⲕ Ⲗ Ⲙ Ⲛ Ⲭ  Ⲝ Ⲟ  Ⲡ -Ⳁ >  Ⲋ  -  Ⲣ >  Ⲥ Ⲧ }],
- cyrl     => [qw{ А Б  В >  Г  Д  Е Э  > -Ѵ > У -Ү З И -Ѳ Ф  І -Ј К Л М Н Х -Ѯ О  П  Ц Ч -Џ -Ҁ  Р Ш  С Т }],
--perm     => [qw{ 𐍐 𐍣  𐍮 >  𐍒  𐍓  𐍔 -  >  > > >  - 𐍘 𐍞  𐍤 𐍑  >  𐍙 𐍚 𐍛 𐍜 𐍝 -  𐍥 -  𐍟  > >  -  -  𐍠 𐍦  𐍡 𐍢 }], # <cyrl 14hCE
--lyci     => [qw{ 𐊀 𐊂  𐊃 >  𐊄  𐊅  > 𐊆  >  > > >  𐊇 𐊈 -  > 𐊉  >  𐊊 𐊋 𐊍 𐊎 𐊏 𐊐  𐊑 𐊒  𐊓  > >  -  𐊔  𐊕 >  𐊖 𐊗 }],
- grek     => [qw{ Α >  Β >  Γ  Δ  > Ε -Ϝ  > > >  Υ Ζ Η  Θ Φ  Ι -Ϳ Κ Λ Μ Ν Χ  Ξ Ο  Π -Ϡ > -Ϻ -Ϟ  Ρ Σ -Ϲ Τ }], # <phnx -8hCE
--cari     => [qw{ 𐊠 𐊩  𐊷 > -𐊱  𐊢  > 𐊹  𐊤  𐊿 > >  𐊲 𐋂 𐊺  > -  >  - 𐊼 𐊣 𐊪 𐊵 >  𐊴 𐊫  -  𐊸 >  𐊰  𐊨  𐊥 >  𐊮 𐊭 }], # <grek -7hCE
--lydi     => [qw{ 𐤠 >  𐤡 𐤢  𐤹  𐤣  > 𐤤  𐤥  𐤧 > >  𐤰 - -  > 𐤱  >  𐤦 𐤨 𐤩 𐤪 𐤫 >  - 𐤬  -  > >  𐤳  𐤲  𐤭 >  𐤮 𐤯 }], # <E-grek -7hCE
-#qaai     => [qw{ - -  - >  𐈒  𐈢  > 𐈃  >  > > >  𐈉 - 𐈇  > 𐈜  >  𐈅 - 𐈣 𐈥 𐈧 >  𐈖 -  𐈌  > >  𐈲  𐈘  𐈫 >  𐈯 𐈚 }], # <phnx -7hCE
- phnx     => [qw{ 𐤀 >  𐤁 >  𐤂  𐤃  > 𐤄  >  > > >  𐤅 𐤆 𐤇  > 𐤈  >  𐤉 𐤊 𐤋 𐤌 𐤍 >  𐤎 𐤏  𐤐  > >  𐤑  𐤒  𐤓 >  𐤔 𐤕 }],
--egyp     => [qw{ 𓃾 >  𓉐 >  𓌙  𓉿  > 𓀠  >  > > >  𓌉 𓍿 𓉗  > 𓄤  >  𓂝 𓂧 𓋿 𓈖 𓆓 >  𓊽 𓁹  𓂋  > >  𓎤  𓎗  𓁶 >  𓐮 𓏴 }], #      -33hCE
--samr     => [qw{ ࠀ >  ࠁ >  ࠂ  ࠃ  > ࠄ  >  > > >  ࠅ ࠆ ࠇ  > ࠈ  >  ࠉ ࠊ ࠋ ࠌ ࠍ >  ࠎ ࠏ  ࠐ  > >  ࠑ  ࠒ  ࠓ >  ࠔ ࠕ }], # <phnx -6hCE
--armi     => [qw{ 𐡀 >  𐡁 >  𐡂  𐡃  > 𐡄  >  > > >  𐡅 𐡆 𐡇  > 𐡈  𐡉  ꜜ 𐡊 𐡋 𐡌 𐡍 >  𐡎 𐡏  𐡐  > >  𐡑  𐡒  𐡓 >  𐡔 𐡕 }], # <phnx -8hCE
- hebr     => [qw{ א >  ב >  ג  ד  > ה  >  > > ו  װ ז ח  > ט  י  ײ כ ל מ נ >  ס ע  פ  > צ  ץ  ק  ר >  ש ת }], # <armi -3hCE
--sarb     => [qw{ 𐩱 >  𐩨 >  𐩴  𐩵  𐩠 𐩭  >  > > >  𐩥 𐩸 𐩢  > 𐩷  >  𐩺 𐩫 𐩡 𐩣 𐩬 >  𐩯 𐩲  𐩰  > 𐩮  𐩪  𐩤  𐩧 >  𐩦 𐩩 }], # unmatched: 𐩹 𐩳 𐩶 𐩻 𐩼
- ethi     => [qw{ አ በ -ቨ ገ -ጐ  ደ  ኀ ሀ  >  > > >  ወ - ሐ  > ጠ  >  የ ከ ለ መ ነ >  - ዐ  ፈ  ጸ ጰ  ሰ  ቀ  ረ >  ሠ ተ }], # unmatched: ዘ ፀ; new: ፐ
--narb     => [qw{ 𐪑 >  𐪈 >  𐪔  𐪕  𐪀 𐪍  >  > > >  𐪅 𐪘 𐪂  > 𐪗  >  𐪚 𐪋 𐪁 𐪃 𐪌 >  𐪏 𐪒  𐪐  > 𐪎  𐪊  𐪄  𐪇 >  𐪆 𐪉 }], # unmatched: 𐪙 𐪓 𐪖 𐪛 𐪜
--nbat     => [qw{ 𐢁 >  𐢃 >  𐢄  𐢅  > 𐢇  >  > > >  𐢈 𐢉 𐢊  > 𐢋  >  𐢍 𐢏 𐢑 𐢓 𐢕 >  𐢖 𐢗  𐢘  > >  𐢙  𐢚  𐢛 >  𐢝 𐢞 }], # <syrc -2hCE
- arab     => [qw{ ا >  ب >  ج  د  > ه  >  > > >  و ز ح  > ط  >  ي ك ل م ن >  - ع  ف  > >  ص  ق  ر >  س ت }], # <nbat  4hCE
- syrc     => [qw{ ܐ >  ܒ >  ܓ  ܕ  > ܗ  >  > > >  ܘ ܙ ܚ  > ܛ  >  ܝ ܟ ܠ ܡ ܢ >  ܣ ܥ  ܦ  > >  ܨ  ܩ  ܪ >  ܫ ܬ }], # <armi -2hCE
--sogo     => [qw{ 𐼀 >  𐼂 >  𐼄  -  > 𐼅  >  > > >  𐼇 𐼈 𐼉  > -  >  𐼊 𐼋 𐼌 𐼍 𐼎 >  𐼑 𐼒  𐼔  > >  𐼕  -  𐼘 >  𐼙 𐼚 }], # <syrc  3hCE
--sogd     => [qw{ 𐼰 >  𐼱 >  𐼲  -  > 𐼳  >  > > >  𐼴 𐼵 𐼶  > -  >  𐼷 𐼸 𐼹 𐼺 𐼻 >  𐼼 𐼽  𐼾  > >  𐼿  -  𐽀 >  𐽁 𐽂 }], # <sogo  6hCE
-#ougr     => [qw{                                                                                        }], # <sogd  7hCE
- mong     => [qw{ ᠠᠡ ᠧ ᠸ ᠬ  ᠭ  -  > -  >  > > > ᠣᠤᠥᠦ ᠰ᠋ ᠬᠭ > - > ᠢᠵᠶ ᠬᠭ ᠲ ᠮ ᠨ ᠰ ᠱ - ᠪ ᠴ ᠵ   -  - ᠯᠷ ᠰ ᠱ ᠲᠳ }], # <ougr 12hCE
-#tfng     => [qw{ ⴰ >  ⴱ >  ⴳ  ⴷ  > ⴻ  >  > > >  ⵓ ⵣ ⵃ  > ⵟ  ⵉ  ⵢ ⴽ ⵍ ⵎ ⵏ >  ⵙ ⵄ  ⵒ  > >  ⵚ  ⵇ  ⵔ >  ⵛ ⵜ }], # <phnx? -3hCE
--hatr     => [qw{ 𐣠 >  𐣡 >  𐣢  𐣣  > 𐣤  >  > > >  𐣥 𐣦 𐣧  > 𐣨  >  𐣩 𐣪 𐣫 𐣬 𐣭 >  𐣮 𐣯  𐣰  > >  𐣱  𐣲 -𐣣 >  𐣴 𐣵 }], # <armi -1hCE
--prti     => [qw{ 𐭀 >  𐭁 >  𐭂  𐭃  > 𐭄  >  > > >  𐭅 𐭆 𐭇  > 𐭈  >  𐭉 𐭊 𐭋 𐭌 𐭍 >  𐭎 𐭏  𐭐  > >  𐭑  𐭒  𐭓 >  𐭔 𐭕 }], # <armi -1hCE
--phli     => [qw{ 𐭠 >  𐭡 >  𐭢  𐭣  > 𐭤  >  > > >  𐭥 𐭦 𐭧  > 𐭨  >  𐭩 𐭪 𐭫 𐭬 𐭭 >  𐭮 -  𐭯  > >  𐭰  -  - >  𐭱 𐭲 }], # <armi  3hCE
--phlp     => [qw{ 𐮀 >  𐮁 >  𐮂  𐮃  > 𐮄  >  > > >  𐮅 𐮆 𐮇  > -  >  𐮈 𐮉 𐮊 𐮋 𐮌 >  𐮍 -  𐮎  > >  𐮏  -  - >  𐮐 𐮑 }], # <phli  5hCE
-#phlv     => [qw{-𐮳𐮳 > 𐮰 >  𐮳 -𐮶  > -  >  > > >  𐮷 𐮸 -  > -  >  𐮲 𐮹 𐮼 𐮾 -𐮷 > 𐯀 -  𐯂  > >  𐯁  - -𐮷 >  𐮿 𐯃 }], # <phli  6hCE
--avst     => [qw{ 𐬀 >  𐬠 >  𐬔  𐬛  > 𐬵  >  > > >  𐬎 𐬰 𐬑  > 𐬚  >  𐬌 𐬐 𐬮 𐬨 𐬥 >  𐬯 -  𐬞  > 𐬗  𐬘  -  𐬭 >  𐬱 𐬙 }], # <phlv  7hCE
- mand     => [qw{ ࡀ >  ࡁ >  ࡂ  ࡃ  > ࡄ  >  > > >  ࡅ ࡆ ࡇ  > ࡈ  >  ࡉ ࡊ ࡋ ࡌ ࡍ >  ࡎ ࡏ  ࡐ  > >  ࡑ  ࡒ  ࡓ >  ࡔ ࡕ }], # <prti
- brah     => [qw{ 𑀅 >  𑀩 >  𑀕  𑀥  > -  >  > > >  𑀯 𑀤 -  𑀣 𑀞  >  𑀬 𑀓 𑀮 𑀫 𑀦 >  𑀰 -  𑀧  > >  𑀲  𑀔  𑀭 >  𑀱 𑀢 }],
+latn   => [qw{ A >  B C  G  D  > E  F  Y U V  W Z H -Þ -  I  J K L M N >  X O  P  > >  -  Q  R >  S T }],
+runr_ys=> [qw{ ᚭ -  ᛓ ᚴ  ᛆ  -  > -  ᚠ  > > >  - ᛧ ᚽ  ᚦ -  >  ᛁ - ᛚ ᛙ ᚿ >  - -  -  > >  -  -  ᚱ >  ᛌ ᛐ }], # short-twig fuþark
+runr_m => [qw{ ᚮ -  ᛒ ᚲ  ᛆ  -  > -  ᚠ  > > >  - ᛧ ᚼ  ᚦ -  ᛁ  ᛂ - ᛚ ᛘ ᚿ >  - -  -  > >  -  -  ᚱ >  ᛋ ᛐ }], # fuþork (medieval)
+runr   => [qw{ ᚨ ᛈ  ᛒ ᚲ  ᛃ  ᛞ  > ᛖ  ᚠ  ᛉ > ᚢ  ᚣ ᛇ ᚺ  ᚦ -  >  ᛁ - ᛚ ᛗ ᚾ >  ᚷ ᛟ  ᚹ  > >  -  ᛜ  ᚱ >  ᛊ ᛏ }], # <ital 2hCE (elder fuþark)
+ital   => [qw{ 𐌀 >  𐌁 >  𐌂  𐌃  > 𐌄  𐌅  > > 𐌖 -𐌞 𐌆 𐌇  𐌈 𐌘  𐌉 -𐌝 𐌊 𐌋 𐌌 𐌍 𐌗  𐌎 𐌏  𐌐  > >  𐌑  𐌒  𐌓 𐌯  𐌔 𐌕 }], # <grek -7hCE; new: 𐌚
+goth   => [qw{ 𐌰 >  𐌱 𐌲  𐌾  𐌳  > 𐌴  𐍆  > > >  𐍅 𐌶 𐌷  𐌸 𐍈  >  𐌹 𐌺 𐌻 𐌼 𐌽 > -𐍇 𐌿 𐍀𐌵 -𐍊 >  - -𐍁  𐍂 >  𐍃 𐍄 }],
+copt   => [qw{ Ⲁ >  Ⲃ >  Ⲅ  Ⲇ  > Ⲉ  >  > > >  Ⲩ Ⲍ Ⲏ  Ⲑ Ⲫ  >  Ⲓ Ⲕ Ⲗ Ⲙ Ⲛ Ⲭ  Ⲝ Ⲟ  Ⲡ -Ⳁ >  Ⲋ  -  Ⲣ >  Ⲥ Ⲧ }],
+cyrl   => [qw{ А Б  В >  Г  Д  Е Э  > -Ѵ > У -Ү З И -Ѳ Ф  І -Ј К Л М Н Х -Ѯ О  П  Ц Ч -Џ -Ҁ  Р Ш  С Т }],
+perm   => [qw{ 𐍐 𐍣  𐍮 >  𐍒  𐍓  𐍔 -  >  > > >  - 𐍘 𐍞  𐍤 𐍑  >  𐍙 𐍚 𐍛 𐍜 𐍝 -  𐍥 -  𐍟  > >  -  -  𐍠 𐍦  𐍡 𐍢 }], # <cyrl 14hCE
+lyci   => [qw{ 𐊀 𐊂  𐊃 >  𐊄  𐊅  > 𐊆  >  > > >  𐊇 𐊈 -  > 𐊉  >  𐊊 𐊋 𐊍 𐊎 𐊏 𐊐  𐊑 𐊒  𐊓  > >  -  𐊔  𐊕 >  𐊖 𐊗 }],
+grek   => [qw{ Α >  Β >  Γ  Δ  > Ε -Ϝ  > > >  Υ Ζ Η  Θ Φ  Ι -Ϳ Κ Λ Μ Ν Χ  Ξ Ο  Π -Ϡ > -Ϻ -Ϟ  Ρ Σ -Ϲ Τ }], # <phnx -8hCE
+cari   => [qw{ 𐊠 𐊩  𐊷 > -𐊱  𐊢  > 𐊹  𐊤  𐊿 > >  𐊲 𐋂 𐊺  > -  >  - 𐊼 𐊣 𐊪 𐊵 >  𐊴 𐊫  -  𐊸 >  𐊰  𐊨  𐊥 >  𐊮 𐊭 }], # <grek -7hCE
+lydi   => [qw{ 𐤠 >  𐤡 𐤢  𐤹  𐤣  > 𐤤  𐤥  𐤧 > >  𐤰 - -  > 𐤱  >  𐤦 𐤨 𐤩 𐤪 𐤫 >  - 𐤬  -  > >  𐤳  𐤲  𐤭 >  𐤮 𐤯 }], # <E-grek -7hCE
+qaai   => [qw{ - -  - >  𐈒  𐈢  > 𐈃  >  > > >  𐈉 - 𐈇  > 𐈜  >  𐈅 - 𐈣 𐈥 𐈧 >  𐈖 -  𐈌  > >  𐈲  𐈘  𐈫 >  𐈯 𐈚 }], # <phnx -7hCE TODO
+phnx   => [qw{ 𐤀 >  𐤁 >  𐤂  𐤃  > 𐤄  >  > > >  𐤅 𐤆 𐤇  > 𐤈  >  𐤉 𐤊 𐤋 𐤌 𐤍 >  𐤎 𐤏  𐤐  > >  𐤑  𐤒  𐤓 >  𐤔 𐤕 }],
+egyp   => [qw{ 𓃾 >  𓉐 >  𓌙  𓉿  > 𓀠  >  > > >  𓌉 𓍿 𓉗  > 𓄤  >  𓂝 𓂧 𓋿 𓈖 𓆓 >  𓊽 𓁹  𓂋  > >  𓎤  𓎗  𓁶 >  𓐮 𓏴 }], #      -33hCE
+samr   => [qw{ ࠀ >  ࠁ >  ࠂ  ࠃ  > ࠄ  >  > > >  ࠅ ࠆ ࠇ  > ࠈ  >  ࠉ ࠊ ࠋ ࠌ ࠍ >  ࠎ ࠏ  ࠐ  > >  ࠑ  ࠒ  ࠓ >  ࠔ ࠕ }], # <phnx -6hCE
+armi   => [qw{ 𐡀 >  𐡁 >  𐡂  𐡃  > 𐡄  >  > > >  𐡅 𐡆 𐡇  > 𐡈  𐡉  ꜜ 𐡊 𐡋 𐡌 𐡍 >  𐡎 𐡏  𐡐  > >  𐡑  𐡒  𐡓 >  𐡔 𐡕 }], # <phnx -8hCE
+hebr   => [qw{ א >  ב >  ג  ד  > ה  >  > > ו  װ ז ח  > ט  י  ײ כ ל מ נ >  ס ע  פ  > צ  ץ  ק  ר >  ש ת }], # <armi -3hCE
+sarb   => [qw{ 𐩱 >  𐩨 >  𐩴  𐩵  𐩠 𐩭  >  > > >  𐩥 𐩸 𐩢  > 𐩷  >  𐩺 𐩫 𐩡 𐩣 𐩬 >  𐩯 𐩲  𐩰  > 𐩮  𐩪  𐩤  𐩧 >  𐩦 𐩩 }], # unmatched: 𐩹 𐩳 𐩶 𐩻 𐩼
+ethi   => [qw{ አ በ -ቨ ገ -ጐ  ደ  ኀ ሀ  >  > > >  ወ - ሐ  > ጠ  >  የ ከ ለ መ ነ >  - ዐ  ፈ  ጸ ጰ  ሰ  ቀ  ረ >  ሠ ተ }], # unmatched: ዘ ፀ; new: ፐ
+narb   => [qw{ 𐪑 >  𐪈 >  𐪔  𐪕  𐪀 𐪍  >  > > >  𐪅 𐪘 𐪂  > 𐪗  >  𐪚 𐪋 𐪁 𐪃 𐪌 >  𐪏 𐪒  𐪐  > 𐪎  𐪊  𐪄  𐪇 >  𐪆 𐪉 }], # unmatched: 𐪙 𐪓 𐪖 𐪛 𐪜
+nbat   => [qw{ 𐢁 >  𐢃 >  𐢄  𐢅  > 𐢇  >  > > >  𐢈 𐢉 𐢊  > 𐢋  >  𐢍 𐢏 𐢑 𐢓 𐢕 >  𐢖 𐢗  𐢘  > >  𐢙  𐢚  𐢛 >  𐢝 𐢞 }], # <syrc -2hCE
+arab   => [qw{ ا >  ب >  ج  د  > ه  >  > > >  و ز ح  > ط  >  ي ك ل م ن >  - ع  ف  > >  ص  ق  ر >  س ت }], # <nbat  4hCE
+syrc   => [qw{ ܐ >  ܒ >  ܓ  ܕ  > ܗ  >  > > >  ܘ ܙ ܚ  > ܛ  >  ܝ ܟ ܠ ܡ ܢ >  ܣ ܥ  ܦ  > >  ܨ  ܩ  ܪ >  ܫ ܬ }], # <armi -2hCE
+sogo   => [qw{ 𐼀 >  𐼂 >  𐼄  -  > 𐼅  >  > > >  𐼇 𐼈 𐼉  > -  >  𐼊 𐼋 𐼌 𐼍 𐼎 >  𐼑 𐼒  𐼔  > >  𐼕  -  𐼘 >  𐼙 𐼚 }], # <syrc  3hCE
+sogd   => [qw{ 𐼰 >  𐼱 >  𐼲  -  > 𐼳  >  > > >  𐼴 𐼵 𐼶  > -  >  𐼷 𐼸 𐼹 𐼺 𐼻 >  𐼼 𐼽  𐼾  > >  𐼿  -  𐽀 >  𐽁 𐽂 }], # <sogo  6hCE
+ougr   => [qw{                                                                                        }], # <sogd  7hCE TODO
+mong   => [qw{ ᠠᠡ ᠧ ᠸ ᠬ  ᠭ  -  > -  >  > > > ᠣᠤᠥᠦ ᠰ᠋ ᠬᠭ > - > ᠢᠵᠶ ᠬᠭ ᠲ ᠮ ᠨ ᠰ ᠱ - ᠪ ᠴ ᠵ   -  - ᠯᠷ ᠰ ᠱ ᠲᠳ }], # <ougr 12hCE
+tfng   => [qw{ ⴰ >  ⴱ >  ⴳ  ⴷ  > ⴻ  >  > > >  ⵓ ⵣ ⵃ  > ⵟ  ⵉ  ⵢ ⴽ ⵍ ⵎ ⵏ >  ⵙ ⵄ  ⵒ  > >  ⵚ  ⵇ  ⵔ >  ⵛ ⵜ }], # <phnx? -3hCE
+hatr   => [qw{ 𐣠 >  𐣡 >  𐣢  𐣣  > 𐣤  >  > > >  𐣥 𐣦 𐣧  > 𐣨  >  𐣩 𐣪 𐣫 𐣬 𐣭 >  𐣮 𐣯  𐣰  > >  𐣱  𐣲 -𐣣 >  𐣴 𐣵 }], # <armi -1hCE
+prti   => [qw{ 𐭀 >  𐭁 >  𐭂  𐭃  > 𐭄  >  > > >  𐭅 𐭆 𐭇  > 𐭈  >  𐭉 𐭊 𐭋 𐭌 𐭍 >  𐭎 𐭏  𐭐  > >  𐭑  𐭒  𐭓 >  𐭔 𐭕 }], # <armi -1hCE
+phli   => [qw{ 𐭠 >  𐭡 >  𐭢  𐭣  > 𐭤  >  > > >  𐭥 𐭦 𐭧  > 𐭨  >  𐭩 𐭪 𐭫 𐭬 𐭭 >  𐭮 -  𐭯  > >  𐭰  -  - >  𐭱 𐭲 }], # <armi  3hCE
+phlp   => [qw{ 𐮀 >  𐮁 >  𐮂  𐮃  > 𐮄  >  > > >  𐮅 𐮆 𐮇  > -  >  𐮈 𐮉 𐮊 𐮋 𐮌 >  𐮍 -  𐮎  > >  𐮏  -  - >  𐮐 𐮑 }], # <phli  5hCE
+phlv   => [qw{-𐮳𐮳 > 𐮰 >  𐮳 -𐮶  > -  >  > > >  𐮷 𐮸 -  > -  >  𐮲 𐮹 𐮼 𐮾 -𐮷 > 𐯀 -  𐯂  > >  𐯁  - -𐮷 >  𐮿 𐯃 }], # <phli  6hCE TODO
+avst   => [qw{ 𐬀 >  𐬠 >  𐬔  𐬛  > 𐬵  >  > > >  𐬎 𐬰 𐬑  > 𐬚  >  𐬌 𐬐 𐬮 𐬨 𐬥 >  𐬯 -  𐬞  > 𐬗  𐬘  -  𐬭 >  𐬱 𐬙 }], # <phlv  7hCE
+mand   => [qw{ ࡀ >  ࡁ >  ࡂ  ࡃ  > ࡄ  >  > > >  ࡅ ࡆ ࡇ  > ࡈ  >  ࡉ ࡊ ࡋ ࡌ ࡍ >  ࡎ ࡏ  ࡐ  > >  ࡑ  ࡒ  ࡓ >  ࡔ ࡕ }], # <prti
+brah   => [qw{ 𑀅 >  𑀩 >  𑀕  𑀥  > -  >  > > >  𑀯 𑀤 -  𑀣 𑀞  >  𑀬 𑀓 𑀮 𑀫 𑀦 >  𑀰 -  𑀧  > >  𑀲  𑀔  𑀭 >  𑀱 𑀢 }],
 },
 }
diff --git a/writing.plp b/writing.plp
index a12c1f9..dfd78a4 100644
--- a/writing.plp
+++ b/writing.plp
@@ -40,12 +40,11 @@ $_ = showlink($_, "/latin") for $scriptname->{latn} || ();
 $_ = showlink($_, "/writing/brahmi") for $scriptname->{brah} || ();
 
 say $glyphs->table([map {
-		my $ref = $_;
-		my $lead = s/^(-)// && $1;
-		(map { ".>$lead$_" }
-			$scriptname->{$source.'_'.$_} || $scriptname->{$_} || $_
-		),
-		@{ $info->{table}->{$ref} || [] }
+	my $lead = s/^(-)// && $1;
+	(map { ".>$lead$_" }
+		$scriptname->{$source.'_'.$_} || $scriptname->{$_} || $_
+	),
+	@{ $info->{table}->{$_} || [] }
 } @{$rows}]);
 
 say "</div>\n";