From 7869ffd37d02677f54eab0c49fdef15248982230 Mon Sep 17 00:00:00 2001
From: Las <las@protonmail.ch>
Date: Sat, 19 Jan 2019 21:35:55 +0100
Subject: Make emojitrans2.pl not assume location of perl installation

---
 emojitrans2.pl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'emojitrans2.pl')

diff --git a/emojitrans2.pl b/emojitrans2.pl
index 27ee545..a93c9ba 100755
--- a/emojitrans2.pl
+++ b/emojitrans2.pl
@@ -1,4 +1,4 @@
-#!/usr/bin/perl -p
+#!/usr/bin/env -S perl -p
 use feature 'unicode_strings';
 use utf8;
 BEGIN { binmode(STDOUT, ":utf8");
-- 
cgit v1.2.3


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


From da9918431d37f85a38c0e1ab7e4479996b757695 Mon Sep 17 00:00:00 2001
From: "Mark E. Shoulson" <mark@kli.org>
Date: Thu, 19 Dec 2019 09:21:19 -0500
Subject: Fixed some .py utils to use python3; added a few chars.

After all, Python2 reaches EOL very soon!

More emoji added.

Also improved the Makefile.

A few additions, improvements to translator.
---
 emojitrans2.pl | 12 ++++++++++++
 1 file changed, 12 insertions(+)

(limited to 'emojitrans2.pl')

diff --git a/emojitrans2.pl b/emojitrans2.pl
index e3eec7c..420129f 100755
--- a/emojitrans2.pl
+++ b/emojitrans2.pl
@@ -38,6 +38,18 @@ BEGIN { binmode(STDOUT, ":utf8");
 	     '*' => 'asterisk',
              '&' => 'ampersand',
 	     '♫' => 'Multi_key',
+             '←' => 'Left',
+             '→' => 'Right',
+             '↑' => 'Up',
+             '↓' => 'Down',
+             '⇐' => 'BackSpace',
+             '⇤' => 'Home',
+             '⇥' => 'End',
+             '⇑' => 'Prior',    # PageUp
+             '⇓' => 'Next',     # PageDown
+             '↵' => 'Return',
+             '∇' => 'Delete',   # Del, get it?
+             '˅' => 'Insert',   # it'll do.
 );
 
 sub splitup {
-- 
cgit v1.2.3


From 23dc941b67d06389679829a02262e224d1c2e186 Mon Sep 17 00:00:00 2001
From: "Mark E. Shoulson" <mark@kli.org>
Date: Mon, 1 Jun 2020 12:56:03 -0400
Subject: A bunch more emoji, including some new ones.

Fix to emojitrans2.pl to keep the RE correct.
---
 emojitrans2.pl | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

(limited to 'emojitrans2.pl')

diff --git a/emojitrans2.pl b/emojitrans2.pl
index 420129f..4ee9eac 100755
--- a/emojitrans2.pl
+++ b/emojitrans2.pl
@@ -52,6 +52,11 @@ BEGIN { binmode(STDOUT, ":utf8");
              '˅' => 'Insert',   # it'll do.
 );
 
+        $specials = join "", keys %specials;
+        # Because of reasons
+        $specials =~ s/[]\\-]/\\$&/g;
+        $RE = qr{([[:alnum:]$specials]+)};
+
 sub splitup {
     my $arg=shift;
     local $_;
@@ -73,7 +78,7 @@ unless (/^#/) {
     my $hold=$_;
     s/<M_>/<Multi_key>/;
     s/<MM>/<Multi_key> <Multi_key>/;
-    s({([][[:alnum:] _+:;%@>=`<,.^\$+#()?&!/|'"\\~*{}♫-]+)})(splitup($1))e;
+    s({($RE)})(splitup($1))e;
     if (length($1) > 7) {
 	$_=$hold;
 	s/^<M([M_])>/### <M$1>/;
-- 
cgit v1.2.3


From ae4b90c411d444e9c2595ecc917748b285e4c986 Mon Sep 17 00:00:00 2001
From: "Mark E. Shoulson" <mark@kli.org>
Date: Tue, 18 Aug 2020 19:16:06 -0400
Subject: A few set-related things, roman numerals.

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

(limited to 'emojitrans2.pl')

diff --git a/emojitrans2.pl b/emojitrans2.pl
index 4ee9eac..4f70288 100755
--- a/emojitrans2.pl
+++ b/emojitrans2.pl
@@ -50,6 +50,9 @@ BEGIN { binmode(STDOUT, ":utf8");
              '↵' => 'Return',
              '∇' => 'Delete',   # Del, get it?
              '˅' => 'Insert',   # it'll do.
+             '˃' => 'Control_R',
+             '˂' => 'Control_L',
+             # Function-keys? ¹ ²..ˣ ᵉ ᵗ?
 );
 
         $specials = join "", keys %specials;
-- 
cgit v1.2.3