From e98c955c2c375377f5af889f04dbd4bee947e8a1 Mon Sep 17 00:00:00 2001
From: Mark Shoulson <mark@kli.org>
Date: Fri, 2 Dec 2016 09:23:00 -0500
Subject: Added more emoji, including big lists of (raw) new characters from
 other blocks and unicode 9.0 Also added makefile

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

(limited to 'emojitrans2.pl')

diff --git a/emojitrans2.pl b/emojitrans2.pl
index 3b98ad2..b18fb3a 100755
--- a/emojitrans2.pl
+++ b/emojitrans2.pl
@@ -1,9 +1,12 @@
 #!/usr/bin/perl -p
+use feature 'unicode_strings';
+use utf8;
 BEGIN { binmode(STDOUT, ":utf8");
 	binmode(STDIN, ":utf8");
 
 %specials = ('%' => 'percent',
 	     '-' => 'minus',
+	     '_' => 'underscore',
 	     '>' => 'greater',
 	     '<' => 'less',
 	     ',' => 'comma',
@@ -16,17 +19,23 @@ BEGIN { binmode(STDOUT, ":utf8");
 	     '#' => 'numbersign',
 	     '@' => 'at',
 	     '|' => 'bar',
+	     '`' => 'grave',
 	     '~' => 'asciitilde',
 	     '^' => 'asciicircum',
 	     '(' => 'parenleft',
 	     ')' => 'parenright',
 	     '[' => 'bracketleft',
 	     ']' => 'bracketright',
+	     '{' => 'braceleft',
+	     '}' => 'braceright',
 	     "'" => 'apostrophe',
 	     '\\' => 'backslash',
 	     ':' => 'colon',
 	     ';' => 'semicolon',
+	     '=' => 'equal',
 	     ' ' => 'space',
+	     '*' => 'asterisk',
+	     '♫' => 'Multi_key',
 );
 
 sub splitup {
@@ -49,7 +58,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