From c8800eadf3392aa902cef871bbdb7e388d08a881 Mon Sep 17 00:00:00 2001
From: "Mark E. Shoulson" <mark@kli.org>
Date: Thu, 30 May 2019 09:25:00 -0400
Subject: More emoji, and also math-base and tags-base

Changes languished in my working dir for months, might as well commit & push.
---
 emojitrans2.pl | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'emojitrans2.pl')

diff --git a/emojitrans2.pl b/emojitrans2.pl
index 27ee545..c3984e0 100755
--- a/emojitrans2.pl
+++ b/emojitrans2.pl
@@ -36,6 +36,7 @@ BEGIN { binmode(STDOUT, ":utf8");
 	     '=' => 'equal',
 	     ' ' => 'space',
 	     '*' => 'asterisk',
+             '&' => 'ampersand',
 	     '♫' => 'Multi_key',
 );
 
@@ -60,7 +61,7 @@ unless (/^#/) {
     my $hold=$_;
     s/<M_>/<Multi_key>/;
     s/<MM>/<Multi_key> <Multi_key>/;
-    s({([][[:alnum:] _+:;%@>=`<,.^\$+#()?!/|'"\\~*{}♫-]+)})(splitup($1))e;
+    s({([][[:alnum:] _+:;%@>=`<,.^\$+#()?&!/|'"\\~*{}♫-]+)})(splitup($1))e;
     if (length($1) > 7) {
 	$_=$hold;
 	s/^<M([M_])>/### <M$1>/;
-- 
cgit v1.2.3