diff options
author | Mark E. Shoulson <mark@kli.org> | 2019-05-30 09:25:00 -0400 |
---|---|---|
committer | Mark E. Shoulson <mark@kli.org> | 2019-05-30 09:25:00 -0400 |
commit | c8800eadf3392aa902cef871bbdb7e388d08a881 (patch) | |
tree | 5d000dfe890fc30e20069a6b0d2f9545b5c4d47e /emojitrans2.pl | |
parent | Typos in ⟪⟫, oops. And ⬳ ⟿ added. (diff) | |
download | dotXCompose-c8800eadf3392aa902cef871bbdb7e388d08a881.tar.gz dotXCompose-c8800eadf3392aa902cef871bbdb7e388d08a881.tar.bz2 dotXCompose-c8800eadf3392aa902cef871bbdb7e388d08a881.zip |
More emoji, and also math-base and tags-base
Changes languished in my working dir for months, might as well commit & push.
Diffstat (limited to 'emojitrans2.pl')
-rwxr-xr-x | emojitrans2.pl | 3 |
1 files changed, 2 insertions, 1 deletions
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>/; |