From 701e8bf43829662a24ff1ecb6e8a0805573d4f6f Mon Sep 17 00:00:00 2001
From: Mark Shoulson <mark@kli.org>
Date: Tue, 22 Mar 2016 13:01:24 -0400
Subject: First pass for faces, using () mnemonic for some, anyway.

---
 emojitrans2.pl | 10 +++++++++-
 1 file changed, 9 insertions(+), 1 deletion(-)

(limited to 'emojitrans2.pl')

diff --git a/emojitrans2.pl b/emojitrans2.pl
index 4ec9337..692de27 100755
--- a/emojitrans2.pl
+++ b/emojitrans2.pl
@@ -17,6 +17,14 @@ BEGIN { binmode(STDOUT, ":utf8");
 	     '@' => 'at',
 	     '|' => 'bar',
 	     '~' => 'asciitilde',
+	     '(' => 'parenleft',
+	     ')' => 'parenright',
+	     '[' => 'bracketleft',
+	     ']' => 'bracketright',
+	     "'" => 'apostrophe',
+	     '\\' => 'backslash',
+	     ':' => 'colon',
+	     ';' => 'semicolon',
 	     ' ' => 'space',
 );
 
@@ -40,7 +48,7 @@ sub splitup {
 unless (/^#/) {
     my $hold=$_;
     s/<MM>/<Multi_key> <Multi_key>/;
-    s({([][[:alnum:] _+%@><,.^\$+#()!/|~-]+)})(splitup($1))e;
+    s({([][[:alnum:] _+:;%@><,.^\$+#()?!/|'\\~-]+)})(splitup($1))e;
     if (length($1) > 7) {
 	$_=$hold;
 	s/^<MM>/### <MM>/;
-- 
cgit v1.2.3