From 9ca66560b4c11884f0bc23d95231a71b50b2d286 Mon Sep 17 00:00:00 2001
From: Mark Shoulson <mark@kli.org>
Date: Tue, 22 Mar 2016 10:24:20 -0400
Subject: Added yet more.

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

(limited to 'emojitrans2.pl')

diff --git a/emojitrans2.pl b/emojitrans2.pl
index 34c8204..4ec9337 100755
--- a/emojitrans2.pl
+++ b/emojitrans2.pl
@@ -15,6 +15,8 @@ BEGIN { binmode(STDOUT, ":utf8");
 	     '/' => 'slash',
 	     '#' => 'numbersign',
 	     '@' => 'at',
+	     '|' => 'bar',
+	     '~' => 'asciitilde',
 	     ' ' => 'space',
 );
 
@@ -38,9 +40,9 @@ sub splitup {
 unless (/^#/) {
     my $hold=$_;
     s/<MM>/<Multi_key> <Multi_key>/;
-    s({([][[:alnum:] _+%@><,.^\$+#()!/-]+)})(splitup($1))e;
-   if (length($1) > 7) {
-       $_=$hold;
-       s/^<MM>/### <MM>/;
-   }
+    s({([][[:alnum:] _+%@><,.^\$+#()!/|~-]+)})(splitup($1))e;
+    if (length($1) > 7) {
+	$_=$hold;
+	s/^<MM>/### <MM>/;
+    }
 }
-- 
cgit v1.2.3