aboutsummaryrefslogtreecommitdiff
path: root/emojitrans2.pl
diff options
context:
space:
mode:
Diffstat (limited to 'emojitrans2.pl')
-rwxr-xr-xemojitrans2.pl10
1 files changed, 9 insertions, 1 deletions
diff --git a/emojitrans2.pl b/emojitrans2.pl
index 4ec9337..692de27 100755
--- a/emojitrans2.pl
+++ b/emojitrans2.pl
@@ -17,6 +17,14 @@ BEGIN { binmode(STDOUT, ":utf8");
'@' => 'at',
'|' => 'bar',
'~' => 'asciitilde',
+ '(' => 'parenleft',
+ ')' => 'parenright',
+ '[' => 'bracketleft',
+ ']' => 'bracketright',
+ "'" => 'apostrophe',
+ '\\' => 'backslash',
+ ':' => 'colon',
+ ';' => 'semicolon',
' ' => 'space',
);
@@ -40,7 +48,7 @@ sub splitup {
unless (/^#/) {
my $hold=$_;
s/<MM>/<Multi_key> <Multi_key>/;
- s({([][[:alnum:] _+%@><,.^\$+#()!/|~-]+)})(splitup($1))e;
+ s({([][[:alnum:] _+:;%@><,.^\$+#()?!/|'\\~-]+)})(splitup($1))e;
if (length($1) > 7) {
$_=$hold;
s/^<MM>/### <MM>/;