From 985c78396272e460deb52c8729bd57a5706e404e Mon Sep 17 00:00:00 2001
From: Mark Shoulson <mark@kli.org>
Date: Thu, 17 Mar 2016 21:21:56 -0400
Subject: Add some missed emoji, add conventions to interim, add sorter, add
 emoji.compose, even though it's derived.

---
 emojitrans2.pl | 5 +++++
 1 file changed, 5 insertions(+)

(limited to 'emojitrans2.pl')

diff --git a/emojitrans2.pl b/emojitrans2.pl
index 2637c19..a4676b6 100755
--- a/emojitrans2.pl
+++ b/emojitrans2.pl
@@ -35,6 +35,11 @@ sub splitup {
 }
 
 unless (/^#/) {
+    my $hold=$_;
     s/<MM>/<Multi_key> <Multi_key>/;
     s({([][[:alnum:] _+%@><,.^\$+#()!/-]+)})(splitup($1))e;
+   if (length($1) > 7) {
+       $_=$hold;
+       s/^<MM>/### <MM>/;
+   }
 }
-- 
cgit v1.2.3