From 729cd54c52950380bbedabe9d76e5ce41692fdcc Mon Sep 17 00:00:00 2001
From: Mischa POSLAWSKY <perl@shiar.org>
Date: Fri, 20 Feb 2015 00:07:47 +0100
Subject: [PATCH] digraphs: proposals for common formatting control characters

Cover HTML4 entities.
---
 shiar.inc.txt       | 10 +++++++---
 tools/mkcharinfo    |  4 ++++
 tools/mkdigraphlist |  3 +++
 3 files changed, 14 insertions(+), 3 deletions(-)

diff --git a/shiar.inc.txt b/shiar.inc.txt
index c5064ca..e784cc9 100644
--- a/shiar.inc.txt
+++ b/shiar.inc.txt
@@ -504,6 +504,13 @@ oK ㅛ
 eK ㅕ
 EK ㅖ
 
+# common formatting control
+ZS ​  # ZWSP; capitals like other Cc
+ZN ‌  # ZWNJ;                           less obvious alt: 'Z
+ZW ‍  # ZWJ; ZJ somewhy used for tsadi; less obvious alt: "Z
+LR ‎  # LRM
+RL ‏  # RLM; keep rl for ɼ
+
 ###
 # under development or temporary
 
@@ -535,9 +542,6 @@ $vy ×±
 $yy ײ
 $g1 ׳
 $g2 ×´
-$lr ‎
-$rl ‏
-$zw ‍
 
 # rfc (incorrectly?) maps double to heavy
 $vL ╡
diff --git a/tools/mkcharinfo b/tools/mkcharinfo
index 27c11d9..ef1e215 100755
--- a/tools/mkcharinfo
+++ b/tools/mkcharinfo
@@ -11,9 +11,13 @@ use Data::Dump 'pp';
 our $VERSION = '1.00';
 
 my %info = (
+	# prepare presentational string for some control(lish) entries
 	"\xAD"     => {string => '-'},
 	"\x{200E}" => {string => '→'},
 	"\x{200F}" => {string => '←'},
+	"\x{200B}" => {string => '␣'},
+	"\x{200C}" => {string => '|'}, # ISO-9995-7-081 lookalike (alt: ∣ ⊺ ⟙)
+	"\x{200D}" => {string => '⁀'}, # join (alt: ∤ |ͯ ⨝)
 );
 $info{chr $_} //= {} for 32 .. 126;
 
diff --git a/tools/mkdigraphlist b/tools/mkdigraphlist
index a1bfbcd..d50f7b5 100755
--- a/tools/mkdigraphlist
+++ b/tools/mkdigraphlist
@@ -141,6 +141,9 @@ for (keys %di) {
 }
 # presentational string for some control(lish) entries
 $info{$_}->{string} = '-' for grep { $di{$_} == 0x00AD } keys %di;
+$info{$_}->{string} = '␣' for grep { $di{$_} == 0x200B } keys %di;
+$info{$_}->{string} = '|' for grep { $di{$_} == 0x200C } keys %di;
+$info{$_}->{string} = '⁀' for grep { $di{$_} == 0x200D } keys %di;
 $info{$_}->{string} = '→' for grep { $di{$_} == 0x200E } keys %di;
 $info{$_}->{string} = '←' for grep { $di{$_} == 0x200F } keys %di;
 
-- 
2.30.0