From 1a1445238307079771732342d00cc0a3af52d23a Mon Sep 17 00:00:00 2001
From: Mischa POSLAWSKY <perl@shiar.org>
Date: Thu, 25 Jan 2024 20:02:57 +0100
Subject: [PATCH] keyboard/altgr/ipa: preformatted (double) combining
 diacritics

Build missing string representations mostly by including common pairs
in unicode-table, with preset exceptions for infix characters such as
U+0361 COMBINING DOUBLE INVERTED BREVE.
---
 tools/mkcharinfo     |  3 +++
 unicode-table.inc.pl | 20 ++++++++++++++++++--
 2 files changed, 21 insertions(+), 2 deletions(-)

diff --git a/tools/mkcharinfo b/tools/mkcharinfo
index 61f674f..ace9dbe 100755
--- a/tools/mkcharinfo
+++ b/tools/mkcharinfo
@@ -18,6 +18,9 @@ my %info = (
 	"\x{200B}" => {string => '␣'}, # nbsp: ~ in TeX
 	"\x{200C}" => {string => '|'}, # ISO-9995-7-081 lookalike (alt: ∣ ⊺ ⟙)
 	"\x{200D}" => {string => '⁀'}, # join (alt: ∤ |ͯ ⨝)
+	(map {( $_ => {string => chr(9676).$_.chr(9676)} )} map {chr} # combining double
+		0x35C .. 0x362, 0x1DCD, 0x1DFC,
+	),
 );
 $info{chr $_} //= {} for 32 .. 126;
 
diff --git a/unicode-table.inc.pl b/unicode-table.inc.pl
index 4d8a9a8..d1875ef 100644
--- a/unicode-table.inc.pl
+++ b/unicode-table.inc.pl
@@ -193,8 +193,8 @@ ipa => {
 		.>Implosive                 ɓ  ɗ̪  >  >  ɗ -ᶑ  ʄ  ɠ  ʛ  =  =  =
 		.>Articulation              ʷ  ᶹ   ̪   ͇  -  ˞  ʲ  ˠ   ̴  >  ˤ  ʰ
 	}], #TODO: > Labial  > > > Coronal  > Dorsal  > > Laryngeal
-	consco => [qw{
-		- co:coarticulated .>sç ɕ .>zʝ ʑ .>ʃx ɧ .>jʷ ɥ .>lˠ ɫ .>hw̥ ʍ .>ɰʷ w
+	consco => [chr(865), qw{
+		co:coarticulated .>sç ɕ .>zʝ ʑ .>ʃx ɧ .>jʷ ɥ .>lˠ ɫ .>hw̥ ʍ .>ɰʷ w
 	}],
 	vowels => [(
 		'-',
@@ -230,6 +230,22 @@ ipa => {
 		. ̆ ˑ ː
 		. ‿ | ‖
 	}],
+	diacritics => [
+		'.' => (map chr, 809, 781, 815, 785), # syllabic
+		'.' => (map chr, '>', 'Ê°', '>', 794), # aspirated
+		'.' => (map chr, 771, 'ⁿ', 734, 'ˡ'), # nasal/rhotic/lateral
+		'.' => (map chr, '>', 812, 805, 778), # voiced
+		'.' => (map chr, '>', 804, '>', 816), # breathy
+		'.' => (map chr, 810, 838, '>', 828), # dental
+		'.' => (map chr, '>', 826, '>', 827), # apical
+		'.' => (map chr, 799,6856, 800, 772), # advanced
+		'.' => (map chr, '>', 776, 829,7498), # centralized
+		'.' => (map chr, 797, 724, 798, 725), # raised
+		'.' => (map chr, 825, 855, 796, 849), # rounding
+		'.' => (map chr, '>', 'ʷ', '>', 'ʲ'),
+		'.' => (map chr, 'ˠ', 'ˤ', '>', 820), # velar/pharyngeal
+		'.' => (map chr, 792, 'ê­ª', 793, 'ê­«'), # tounge root
+	],
 },
 
 japanese => {
-- 
2.30.0